LLEVAR A MACRO EL NOMBRE DE UN FICHERO A IMPORTAR

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

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

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

MUCHAS GRACIAS FERNANDO, funciona de maravilla.
Si no es mucho pedir, ¿puedo llevarme los nombres de ficheros que hay en

carpeta a una fila de celdas?
Gracias de nuevo.


"Fernando Arroyo" escribió en el mensaje
news:
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") ,

_
)

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

> 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

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
>
>

Queria decir: Si no es mucho pedir, ¿puedo llevarme los nombres de ficheros
que hay en una carpeta a una COLUMNA de celdas?

"Jose Antonio Cortijo" escribió en el mensaje
news:Qpqkc.56963$
> MUCHAS GRACIAS FERNANDO, funciona de maravilla.
> Si no es mucho pedir, ¿puedo llevarme los nombres de ficheros que hay en
una
> carpeta a una fila de celdas?
> Gracias de nuevo.
>
>

Queria decir: Si no es mucho pedir, ¿puedo llevarme los nombres de

que hay en una carpeta a una COLUMNA de celdas?

"Jose Antonio Cortijo" escribió en el mensaje
news:Qpqkc.56963$
> MUCHAS GRACIAS FERNANDO, funciona de maravilla.
> Si no es mucho pedir, ¿puedo llevarme los nombres de ficheros que hay en
una
> carpeta a una fila de celdas?
> Gracias de nuevo.
>
>