Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Como importar un archivo con macro

19/12/2006 - 12:49 por Anibal | Informe spam
Ayuda Hacer una pregunta
Hola a todos.

Como puedo hacer para importar un archivo de texto, tengo en la Hoja1
celda A1 la ubicación y el nombre del archivo Ej.: C:\Trabajo\Tipo1 el
archivo no tiene extensión y el nombre cambia, en este caso el archivo
se llama Tipo1.
Quisiera que el archivo se ubique en la Hoja1 celda D1.

Yo intente grabando una macro importando datos pero no puedo lograr que
me tome el nombre del archivo que esta en la celda A1. Este es el
código que genera.

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 19/12/2006
'

ActiveCell.Offset(0, 2).Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Trabajo\Tipo1", Destination:=ActiveCell)
.Name = "Tipo1_3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
End Sub

Muchas gracias.
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Tux
22/12/2006 - 12:35 | Informe spam
Anibal escribió:
Hola a todos.

Como puedo hacer para importar un archivo de texto, tengo en la Hoja1
celda A1 la ubicación y el nombre del archivo Ej.: C:\Trabajo\Tipo1 el
archivo no tiene extensión y el nombre cambia, en este caso el archivo
se llama Tipo1.
Quisiera que el archivo se ubique en la Hoja1 celda D1.

Yo intente grabando una macro importando datos pero no puedo lograr que
me tome el nombre del archivo que esta en la celda A1. Este es el
código que genera.
...



Hola Anibal :-)

Suponiendo que tienes la ruta correcta ,en la celda A1 de la hoja1,
Prueba algo como esto:

'-
Sub Importar_Txt_Segun_Celda()

ruta = Sheets("Hoja1").Range("A1")

If ruta = vacia Then
MsgBox ("la celda no tiene ruta, jejejej! :))) ")
Exit Sub
Else
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& ruta, Destination _
:=Range("A6"))
.Name = filenametxt
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False

End With

End If

End Sub


'-


Nos comentas ok? :-)

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Preguntas similares

 

Busqueda sugerida :