Excel - Macro para importar archivo Txt

Saludos.

Hice un macro que importa varios archivos Txt a una hoja, solo que tengo una duda. el primer archivo Importa la informacion de la A2 A la A100, y el segundo de la A100 A la A150, al macro le puse un impubox y pregunta en celda quieres la informacion, mi duda es puedo quitarle al macro la el numero de celda Fija $A$2 y que lo importe a la celda que yo quiera.


Gracias por su ayuda.

entendí o mal o el InputBox lo usás para seleccionar la celda destino?
en tal caso, cuál es el problema?

Saludos, desde Baires, JuanC

Si, para eso es, pero a lo que me refiero que si a la macro que le puse ($A$2) que es en la celda que lo importa la informacion, quiero ver que si esta celda puede quedar vacia o que lleve algun caracter o funcion para que el archivo lo importe en la celda que que yo quiera.?


Graciasr tomarte tu tiempo.

entiendo menos que antes!

Saludos, desde Baires, JuanC

O.K. a ver si me explico bien. este es el macro.


Sub Res()
'
' Txt Restautant
'

'

R = MsgBox("Esta acción importara el archivo, ¿Esta seguro? ", vbYesNo, "Sistema")
If R = vbYes Then


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$3 ")) [b]Aqui es donde te coloca la informacion, y es donde me gustaria saber si en lugar de que llever celda y numero fijo , poner algun comando para que te lo importe en A50 U a90 o donde tu le tecles al inputbox

.Name = "Compra de DolaresRes._1"
.FieldNames = True
.RowNumbers = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.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 If
End Sub

Gracias.

Destination:=Range(Ubica)

Saludos, desde Baires, JuanC

A ver no compredi muy bien tu repuesta ( ) dejp el parentesis vacio..? por que ya lo hice pero me marca error.?

te esta diciendo que pongas la celda o rango donde quieras que aparezca la información

Ok. eso si le entiendo pero mi gran dudad que tengo 5 macros similares a esa pero son para archivos diferentes.

Ejemplo El archixo (X) importa la informacion de la A3 a la a 50. Archivo Y de la A100 a la A 150. estos con celdas fijas. por eso ando buscando si hay un comando para que el siguiente archivo (Y) en lugar de ponerlo en A100 lo ponga el A51 (Donde termina el ultimo dato del archivo ( X).

Juan:
Como bien te indico JuanC, tienes que cambiar lo siguiente:

Tu codigo


por esto
.

Esto hace que el nro de celda que ingrese cuando te aparece el inputbox (ejemplo: a51 o a151 o av999) lo tome para cargar los datos.

Espero hayas entendido.

Saludos,

Gonzalo

Estimado Gonzalo, esta interesante tu macro para importar archivos txt, es lo que necesitaba para complementar un reporte que estoy elaborando.
Serias tan amable darme esta misma macro pero que me de la opción de buscar y seleccionar el archivo a importar.

Gracias,

LANDU RAMIREZ

Hola!!! estoy importando datos de diferentes archivos txt y todo funciona perfecto. Mi consulta es la siguiente:
en una hoja de Excel escribo en distintas celdas los nombres de los archivos a importar, si el usuario escribe bien los nombres de los archivos todo marcha bien, pero si introduce el nombre con error, obviamente no encuentra el archivo y da Error y da error la macro y se corta. Lo que yo necesito hacer es que aparezca un mensaje en la pantalla que diga que el archico "lckxlkcxl" no se ha podido importar, que revise si se a tipeado correctamente.
Pero no se donde poner ese mensaje!!!
GRACIAS a quien pueda responder!!

Hola a tod@s

Se une un tema (consulta) con varias y creo y me parece que ningun usuario debiera hacer nueva consulta dentro de otra, la cual pertenece a un solo usuario.

Postear algo dentro del tema expuesto por un usuario, si no es referente al tema, SE DEBIERA crear nuevo tema