/* 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
