Formulario Excel para explorar y abrir archivos de windows?

[afigueroaf]

Algún formulario Excel que permita explorar y abrir archivos de windows?

[Héctor Miguel]

depende de lo que busques (???)

- archivos "de excel" ?... (o cualquier tipo de archivos ?)
- abrirlos y trabajarlos "en excel" ? (solo archivos que pueda procesar excel)
- algun otro "detalle en el tintero" ?

[afigueroaf]

Hace 14 horas, Héctor Miguel dijo:

depende de lo que busques (???)

- archivos "de excel" ?... (o cualquier tipo de archivos ?)
- abrirlos y trabajarlos "en excel" ? (solo archivos que pueda procesar excel)
- algun otro "detalle en el tintero" ?

Si, algún formulario que sirva para buscar y abrir cualquier archivo

Algo como esto, pero que en lugar de tener que copiar y pegar la ruta, se pueda explorar y buscar

[Héctor Miguel]

Hace 12 horas, afigueroaf dijo:

algún formulario que sirva para buscar y abrir cualquier archivo

si buscas solamente identificar una carpeta (?), prueba de esta forma:

Sub ObtenerDirectorio()
  Dim Directorio As String, Titulo As String
  Titulo = "Selecciona por favor una carpeta"
  On Error Resume Next ' por si el usuario pulsa {esc} y no selecciona nada :)) '
  With CreateObject("shell.application")
    Directorio = .BrowseForFolder(0, Titulo, 0, "c:").Items.Item.Path
  End With: On Error GoTo 0
  If Directorio = "" Then
    MsgBox "No se ha seleccionado ningun directorio.", , "Operacion cancelada !!!"
  Else
    MsgBox Directorio
  End If
End Sub

o bien;

application.filedialog(msofiledialogfolderpicker).show

si lo que necesitas es navegar hasta x_archivo...

application.filedialog(msofiledialogfilepicker).show

ojo: si la ejecutas desde excel (obviamente) solo se abriran archivos que excel pueda gestionar

si (aun) hay detalles que "siguen en el tintero"... (?)

[afigueroaf]

Hola Héctor, muchas gracias por el código, funcionó a la perfección, era justo lo que necesitaba ?