Cómo importar TXT por lotes en EXCEL

Debido a que no existe un código de operación de importación, el siguiente código se utiliza para copiar el código para guardar un archivo de texto como un archivo XLS en un nuevo archivo EXCEL en la carpeta de texto y ejecutar el procedimiento de subarchivo 1 () buscar archivo dim como búsqueda de archivo .

Marcar fs como variable

Marcar la ruta del archivo como una cadena

estilo de archivo tenue Como ruta del archivo de cadena = este libro. 小路

file style="*.txt"

Aplicación. Búsqueda de archivos

. BuscarEn = RutaDeArchivo

. Nombre de archivo = Estilo de archivo

. Ejecutar

para cada sistema de archivos en. Descubrir archivos

Establezca XLSHEET = Libros de trabajo. Abrir(fs)

XLSHEET. Guardar como nombre de archivo := Reemplazar(fs,"txt","xls")

XLSHEET. Rescate

XLSHEET. Cerrar

Siguiente fs

Finalizar con...

Finalizar conector