Código: Seleccionar todo
#include <Excel.au3>
Global $mensaje = "Selecciona el archivo de texto a convertir"
Global $linea = ""
Global $fila = 2
$var = FileOpenDialog($mensaje, "C:\*.*", "Todos (*.*)", 1 + 4 ) ;Abre cuadro de diálogo de selección de fichero
; Rutina de selección de fichero
While 1
If @error Then
MsgBox(4096,"Conversor txt_excel","Ningún archivo seleccionado")
Exit
Else
MsgBox(4096,"Conversor txt_excel","Seleccionaste el archivo: " & $var)
ExitLoop
EndIf
WEnd
$oExcel = _ExcelBookNew (1) ;Abre un nuevo libro de Excel
$fichero = FileOpen ($var) ;Abre el archivo que hemos seleccionado
If $fichero = -1 Then
MsgBox(0, "Conversor txt_excel", "Incapaz de abrir el fichero.") ;En caso de error de apertura cierra la aplicación
Exit
EndIf
While 1
$letra = FileRead($fichero, 1) ;Va leyendo el fichero carácter a carácter
If @error = -1 Then ExitLoop ;Si ve un error sale del bucle, cierra el fichero y termina la aplicación
If $letra <> chr(10) Then ;Si el carácter es distinto a LF lo va almacenando en la variable $linea
$linea = $linea & $letra
Else
$campo = StringSplit ($linea, @TAB, 2) ;Va identificando cada uno de los campos (palabras) mediante el caracter Tabulador
$dim = UBound ($campo) ;Calcula cuantos campos hay en cada línea
For $i = 0 To $dim - 1
_ExcelWriteCell ($oExcel, $campo[$i], $fila, $i + 1) ;Va escribiendo cada campo en c/u de las columnas de la hoja Excel
Next
$fila = $fila + 1
$linea = ""
EndIf
Wend
$fich = StringSplit ($var, ".", 2)
_ExcelBookSaveAs ($oExcel, $fich[0] & ".xls", "xls") ;Guarda el fichero excel con el mismo nombre pero extensión xls
_ExcelBookClose ($oExcel, 1) ;Cierra el fichero excel
FileClose($fichero) ;Cierra el fichero de texto
