RE:Importar desde archivo plano
al aporte de JuanC...
completaria :
Dim sLinea$
Dim fileToOpen
Dim intFila As Integer
Dim inColum, intColumPon As Integer
intFila = 5 ' Numero de fila a empezar
intColumPon = 3 ' Numero de columna a empezar
' siendo coma (,) el separador de campo o columna y enter(13) el cambiador de linea
' es obvio... estas ubicado en la hoja que deseas que importe datos
fileToOpen = Application.GetOpenFilename("Archivos de texto (*.txt), *.txt")
If False = fileToOpen Then Exit Sub
Open fileToOpen For Input As #1
Do While Not EOF(1)
Line Input #1, sLinea
intcolum = intColumPon
For intcuenta = 1 To Len(sLinea)
Select Case Asc(Mid(sLinea, intcuenta, 1))
Case 32, 65 To 90, 46, 48 To 57
strpalabra = strpalabra & Mid(sLinea, intcuenta, 1)
Case 13 'enter
intFila = intFila + 1
Case 44 'coma
Cells(intFila, intcolum) = strpalabra
strpalabra = ""
intcolum = intcolum + 1
Case Else
strMensaje = MsgBox("Caracter no previsto --> " & Mid(sLinea, intcuenta, 1), vbCritical _
, "Importando Datos de : " & fileToOpen)
End
End Select
Next
'Hacer lo que sea con la línea y seguir leyendo...
Loop
desde Arequipa-Peru
al pie del volcan "misti"... que ruge en cualquier momento...