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 p >
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) p>
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 p >
Siguiente t
Finalizar sub
Con este libro de trabajo.