Seleccionar *.txt e importar la info a un *.xls

[Maka_oju]

 
alguien me puede ayudar?

De momento en la macro que estoy utilizando, le digo al ordenador que archivo tiene que abrir para importar la info... pero me gustaria que el usuario pudiera elegir cualkier archivo...

Ej. Aqui le digo que fichero quiero que abra...

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\BL1WEEK" & Format(Now(), "ww", 2, 2) & "-" & Format(Now(), "yy") & ".txt" _
        , Destination:=Range("A1"))


Y Aqui, el usuario puede elegir que fichero abrir...

Application.Dialogs(xlDialogOpen).Show "c:\*.txt"

Pero... con la segunda opcion lo que hace es abrir el fichero, y no quiero que lo abra.. solo quiero seleccionar el nombre.. y despues mas adelante, importar informacion...


No se si me he explicado muy bien...
alguine me puede ayudar????


Muchas gracias por tomaros la molestia...
???


Maka_oju

[Numeros]

Puedes usar controles Activex en todas las aplicaciones del Office.
Vas al menu View (Ver) -> Toolbars (barra de herramientas) -> Control Toolbox (cuadro de herramientas).



Añades el Dialog control en Activex avanzados y ya tienes tu interfaz de windows.

Te pongo el ejemplo con un CommandButton, luego lo adaptas a ti

Código [Seleccionar] Expandir

Private Sub CommandButton1_Click()
    Dim file As String
    CommonDialog1.ShowOpen
    file = CommonDialog1.Filename
    MsgBox file '<--< Ejemplo para ver el path
End Sub


Saludos.

[Maka_oju]

gracias!
Lo probare, aunque creo que no es lo que realmente quiero...

Gracias por la ayuda de todas formas!
He aprendido algo nuevo!!

Maka_oju