LLEVAR A MACRO EL NOMBRE DE UN FICHERO A IMPORTAR

30/04/2004 - 11:34 por Jose Antonio Cortijo | Informe spam
Hola al grupo.

En una celda tengo el nombre de un fichero txt que quiero importar a una
hoja.
Necesito que una macro coja este nombre y haga el proceso de importacion a
una hoja de calculo.

El codigo que tengo es el siguiente:

Sub IMPORTAR()
Sheets("DATOS_IN").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\REMESAS\REMESA.TXT", Destination:=Range("A1") _
)
.Name = "EXPER_4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.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)
.Refresh BackgroundQuery:=False
End With
Range("NUMERO") = ">"""""
Sheets("FORMULARIO").Select
End Sub

La celda donde esta el nombre del fichero se llama NOMBRE_FISICO_REMESA y la
llevo a una variable mediante el siguiente comando:

NOMBRE_FICHERO = Range("NOMBRE_FISICO_FICHERO")


¿COMO HAGO PARA INCORPORAR AL COMANDO DE IMPORTACION EL NOMBRE_FICHERO?

Muchas Gracias
 

Leer las respuestas

#1 Fernando Arroyo
30/04/2004 - 12:07 | Informe spam
Prueba con:

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & NOMBRE_FICHERO , Destination:=Range("A1") _
)

o, si sólo necesitas la variable NOMBRE_FICHERO para esto, puedes ahorrártela con:

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Range("NOMBRE_FISICO_FICHERO") , Destination:=Range("A1") _
)

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Jose Antonio Cortijo" escribió en el mensaje news:g4pkc.55979$
Hola al grupo.

En una celda tengo el nombre de un fichero txt que quiero importar a una
hoja.
Necesito que una macro coja este nombre y haga el proceso de importacion a
una hoja de calculo.

El codigo que tengo es el siguiente:

Sub IMPORTAR()
Sheets("DATOS_IN").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\REMESAS\REMESA.TXT", Destination:=Range("A1") _
)
.Name = "EXPER_4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.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)
.Refresh BackgroundQuery:=False
End With
Range("NUMERO") = ">"""""
Sheets("FORMULARIO").Select
End Sub

La celda donde esta el nombre del fichero se llama NOMBRE_FISICO_REMESA y la
llevo a una variable mediante el siguiente comando:

NOMBRE_FICHERO = Range("NOMBRE_FISICO_FICHERO")


¿COMO HAGO PARA INCORPORAR AL COMANDO DE IMPORTACION EL NOMBRE_FICHERO?

Muchas Gracias


Preguntas similares