Cómo copiar el contenido de un archivo en Excel usando el método de programación VBA

Inserte el módulo en la ventana de VBE y pegue el siguiente código:

Sub txta_txtb()

Const ForReading = 1, ForWriting = 2, ForAppending = 8 , TristateFalse = 0

Establecer fso = CreateObject("Scripting. Filesystem Object")

Establecer fa = aplicación. Diálogo de archivo(msoFileDialogOpen)

Si fa. Mostrar = -1 entonces

ArchivoA = fa. Seleccione Editar elemento (1)

"Else" si no hay ningún archivo seleccionado.

MsgBox "No se seleccionó ningún archivo, ¡inténtalo de nuevo!",, " txta_txtb "

' Exit Sub 'Salir del programa.

Terminará si...

Establezca fb = aplicación. Diálogo de archivo(msoFileDialogOpen)

Si fb. Mostrar = -1 entonces

ArchivoB = fb. Seleccione el elemento de edición (1)

Otros

MsgBox "No hay ningún archivo seleccionado, ¡inténtelo de nuevo!",, " txta_txtb "

Conector de exportación

Finalizar si...

Establecer sFile = fso. OpenTextFile(FileB, ForAppending, TristateFalse)

Abrir el archivo a con la entrada n.º 1

Hacerlo hasta EOF(1)

Entrada de línea n.º 1, tmp

sArchivo. WriteLine tmp ampvbTab ampvbCrLf

sFile. Escribe tmp ampvbTab ampvbCrLf

ring

Cierra el archivo #1

s. Cerrar

Finalizar ajuste

Nota: Durante la ejecución, seleccione el archivo de texto dos veces abriendo el cuadro de diálogo. El archivo seleccionado por primera vez son los datos extraídos y el archivo seleccionado por segunda vez es el archivo en el que se escriben los datos.