Programación General > VBA

 Exportar Un Archivo De Texto A Excel

(1/1)

Gallagher:
Es posible
Exportar un archivo de Texto, dividido por columnas, mediante Excel
con VBA?

shakka:
/* si se puede */
para eso necesitas abrir un archivo con la intruccion open y guardar los registro en arreglo tipo cadena con la instruccion input

ej:
 Open ("C:\TEXTO.TXT") For Input As #1

y luego cerrar el archivo con Close #1  <-numero de archivo

donde cada registro se encuentre en una linea diferente ademas sus campos deben de estar esparados por comas y entre comillas.
ej:

"1-campo1","1-campo2"
"2-campo1","2-campo2"
...

esto para que puedas obtener las tiras de registro mediante un ciclo y verificando cuando llegues al fin de archivo con EOF(NUMERO_DE_ARCHIVO)
    Do While Not EOF(1)
...
    Loop

luego para ingresar los datos en la hoja con otro ciclo, le agregas la informacion
a cada celda por registro:

    With ActiveSheet
      .Cells(fila+1, 1).Value = sCampo1(fila)
      .Cells(fila+1, 2).Value = sCampo2(fila)
      .Cells(fila+1, 3).Value = sCampo3(fila)
    End With

Navegación

[0] Índice de Mensajes