Cómo importar texto por lotes a Excel (si comprende las macros de Excel, asegúrese de leer esto, gracias) ¡También puede tener herramientas!

Paso 1: Exportar lista de archivos

Haga clic en el menú de inicio del sistema XP, haga clic en el comando "Ejecutar", ingrese cmd y presione Entrar para ingresar a la ventana de comandos e ingresar

comando dir D:\text\*.txt /b /on gt;c:\list.txt, presione Enter. Ahora habrá un archivo de lista en la unidad c: que contiene los nombres de los archivos que se procesarán.

Paso 2: Ejecute el siguiente código.

Opción explícita

Public Const sPath As String = "D. Text" 'Cambie a "D:\text" 'Cambie a la ruta donde se encuentra su txt

Public FileName() As String 'El nombre del archivo a procesar

Public MyString() As String 'Lee el contenido del texto

Sub ReadFile( )

Dim getLine 'Lee una línea de datos a la vez

Dim i, t, k

i = FreeFile

Abrir "c:\list. txt" Para entrada como #i 'Abra el archivo de entrada.

Hacer mientras no sea EOF(i)

Entrada #i, getLine 'Leer datos en variables.

t = t 1

Bucle

k = t - 1

ReDim FileName(k), MyString(k)

t = 0

Buscar #i, 1 'Establecer el primer registro del archivo

Hacer mientras no sea EOF(i)<

Entrada #i, Nombre de archivo(t)

Nombre de archivo(t) = sPath & "\" & Nombre de archivo(t)

t = t 1

Bucle

Cerrar #i ' Cierra el archivo.

'Leer el contenido de texto en este formulario de Excel

Para t = 0 Para k

i = FreeFile

Abrir FileName(t ) Para entrada como #i

Hacer mientras no sea EOF(i)

Entrada #i, getLine

MyString(t) = MyString(t) amp; amp; getLine

Bucle

Cerrar #i

Con ThisWorkbook.Sheets(1)

.Cells(t 1, 1 ) = FileName(t)

.Cells(t 1, 2) = Right(MyString(t), Len(MyString(t)) - 2)

Terminar con

Siguiente t

Finalizar sub

Con este libro de trabajo.