Excel - IMPORTAR ARCHIVO TXT

   
Vista:

IMPORTAR ARCHIVO TXT

Publicado por Tony Vega (1 intervención) el 26/04/2009 03:58:48
Sres:

necesito su apoyo,tengo que abrir y copiar un archivo "ASIGNACION.TXT" en una hoja de excel alinearlo y ordenarlo para otros procesos.
este es el codigo que solo me copia el titulo mas no el archivo completo y tampoco me alinea el texto en columnas.

Sub leer_linea_de_un_fichero_de_texto()
On Error Resume Next
Application.ScreenUpdating = False
fichero_de_texto = "ASIGNACION.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = ActiveWorkbook.Path
Set archivo = fso.OpenTextFile(ruta & "" & fichero_de_texto, 1)
contenido = archivo.readline()
archivo.Close
'Limpiamos los objetos
Set fso = Nothing
Set archivo = Nothing
Range("A1") = contenido
'Mostramos el procedimiento
Application.ScreenUpdating = True
End Sub

Atte.

Tony
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder