Programación de procesamiento de archivos

Sub txt_saveas_excel()

Atenuar target_path como cadena

Atenuar nombre de destino como cadena

Atenuar result_fName como cadena

p>

target_path = "D:\ "

target_name = "123.txt "

Abra el archivo de destino.

Libro de ejercicios. Abrir (ruta de destino y nombre de destino del amplificador)

Eliminar todas las columnas después de la quinta columna. Si es posible que las versiones anteriores de Excel no tengan 16384 columnas, reduzca este valor.

Rango (columna (6), columna (16384)). Eliminar shift:=xlLeft

Eliminar las columnas 2-4, shift:=xlLeft no es necesario y el valor predeterminado es Izquierda.

Rango(columna(2), columna(4)). Elimine shift:=xlLeft

en la carpeta de resultados debajo de la ruta del archivo de destino y cambie el sufijo txt al sufijo xlsx.

ResultName = Ruta de destino&&"Resultado"&Replace(TargetName.txt",".xlsx")

FileExtStr = ". xlsb ":Número de formato de archivo = 50

FileExtStr = ". xlsx": FileFormatNum = 51

FileExtStr = ". xlsm": FileFormatNum = 52

FileExtStr = ". csv": FileFormatNum = 6

FileExtStr = ". txt ":Número de formato de archivo = -4158

FileExtStr = ". prn": FileFormatNum = 36

Guarde el archivo y use diferentes códigos de formato para diferentes sufijos.

ActiveWorkbook. Guarde como result_fName, 51

Cierre el archivo sin guardar

ActiveWorkbook.Close false

Conector final