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