Foro Excel

Hola a todos. ojala puedan ayudarme.

tengo una macro que abre un archivo TXT y hace una serie de cambios y lo adapto a mis gustos...pero estos archivos son muchos y siempre hay archivos txt nuevos.Para poder abrir un archivo lo hago con el sigte comando:

Workbooks.OpenText FileName:= _
"C:\Documents and Settings\nmartelli\Escritorio\GD 109074 RETIRO INDELEC RL1 16-10-06.txt" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(17, 1))

Pero como ven es solo para abrir determinado archivo.
Lo que quiero es abrir una ventana de buscador, eso lo logro hacer con el comando:

Application.Dialogs(xlDialogOpen).Show

Pero no logro relacionar el archivo seleccionado del buscador y los siguientes comandos que lo modifican.


Ojala me haya dado a entender para que me puedan ayudar.


Saludos y gracias de antemano.

Yo creo que algo así­ te puede servir.

Código: Seleccionar todo

Sub Importar_txt()
    Dim FName As Variant
    FName = Application.GetOpenFilename(filefilter:="Text Files(*.txt),*.txt,All Files (*.*),*.*")
    If FName = False Then
        MsgBox "No selecciono ningún archivo"
        Exit Sub
    End If
    Workbooks.OpenText Filename:=FName, _
    Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 1), Array(17, 1))
End Sub

Saludos

UHHHHH!!!!
BACAN!!! ...ahi si me quedo weno weno weno..

Muchisimas gracias.....hace tiempo que queria hacer esto...


GRACIAS!!!!!