Visual Basic para Aplicaciones - Importar desde archivo plano

Muchachos, tengo que exportar datos de un archivo plano a una hoja excel, lo queise gestionar a traves de las sentencias Open y lo logro abrir pero al mometo de pasarlo a la hoja pasa con caracteres que no se encuentran el el archivo plano.. a ver si alguen me puede ayudar. de antemano gracias y saludos.

un saludo
esos caracteres extraños... pueden ser separadores...
... no conozco tu termino... de plano... no indicas el tipo de archivo origen...
saludos
desde Arequipa-Peru
... donde el volcan "misti"... ruge permanentemente...

Hola, el archivo plano es un .txt y si al al parecer si son separadores ya que cuando abro este archivo con abrir de Excel lo separo por tabulacion y no tengo problema... lo que quiero es automatisar esta tarea con una macro.

Desde ya gracias por la resp.

un saludo
te entendi... podrias mostrarnos tres lineas de tu .txt...? ... y probamos una macro

desde la ciudad.. del volcan... que ya conoces...

Quizá el fragmento siguiente te sirva de algo...

Sub LeerArchivo()
Dim sLinea$
Dim fileToOpen

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
'Hacer lo que sea con la línea y seguir leyendo...
Loop

Close #1
End Sub

Saludos y buena suerte, desde Buenos Aires, JuanC

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...