preguntar por archivo a exportar desde macro

Te paso el siguiente codigo para que llames a los archivbos no importando la
ubicación de los mismos

' SOLICITA EL ARCHIVO DE TEXTO A PROCESAR
With Texto
If .Show = -1 Then
For Each Ruta In .SelectedItems
Destino = Ruta
Next Ruta
Else
Exit Sub
End If
End With
' PROCESA EL ARCHIVO SELECCIONADO PARA COLOCARLO EN COLUMNAS
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Destino, Destination:=Range("A15"))
.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)
.TextFileFixedColumnWidths = Array(7, 2, 11, 16, 19)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With


"Paolita" wrote:

Tengo una macro de donde llamo un txt para abrirlo en el excel, el
cual me resulta bien, le pido al usuario que le ponga el mismo nombre
del archivo excel y la macro lo busca en el mismo directorio del
excel, necesito exportar 2 archivo txt al excel y necesito que el
usuario los llame de forma libre, como puedo preguntar desde una macro
por los txt que deseo abrir en el excel

hola, Paolita !

Tengo una macro de donde llamo un txt para abrirlo en el excel, el cual me resulta bien
le pido al usuario que le ponga el mismo nombre del archivo excel y la macro lo busca en el mismo directorio del excel
necesito exportar 2 archivo txt al excel y necesito que el usuario los llame de forma libre
como puedo preguntar desde una macro por los txt que deseo abrir en el excel

suponiendo que tu maco ya utiliza el metodo .OpenText... etc. etc. etc.
y que solo quieres que sea el usuario quien seleccione cual archvo *.txt es el que necesita...
prueba con instrucciones +/- como el siguiente ejemplo:

Dim Archivo As String
Archivo = Application.GetOpenFilename("Archivos CSV (*.csv),*.csv")
If Dir(CStr(Archivo)) = "" Then MsgBox "Operacion cancelada !!!": Exit Sub
Workbooks.OpenText FileName:=Archivo

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.