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