Visual Basic - Macro para importar archivo Txt

Life is soft - evento anual de software empresarial
   
Vista:

Macro para importar archivo Txt

Publicado por Juan (1 intervención) el 12/04/2012 06:39:02
saludos.

Quiero importar varios archivos Txt a una hoja de calculo ya hice una macro con la grabadora, tuve que hacer varios macros para cada archivo, no se si es la mejor forma o hay una manera mas practica. a cada macro le puse un imputbox para que pregunte en que numero de celda quieres la informacion y le tuve que poner un numero de celda fija lo que ocupo es que al momento de pregunta te lo ponga donde teclas la celda, ahorita la que tienes es una celda fija.

Sub Res()
'
' Txt Restaurant
'

'
Ubica = InputBox("En qué celda va empezar la importación del Texto")

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\JUAN\Desktop\Compra de DolaresRes.", Destination:=Range( _
"$A$2"))
.Name = "Compra de DolaresRes._1"
.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 = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(4, 4, 7, 14, 12, 14, 15, 21, 9, 30, 15, 20)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Esta es la macro mi duda es donde esta la ceda A2, le puedo poner una variante.? para que te lo ponga donde quieras?
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