Buenas tardes amigos de Todo excel... Tengo una consulta ...
Es posible ejecutar un explorador de windows ke me extraiga la ruta de un archivo que designe?
dejo algo que se parece bastante a lo que quiero :S
Explorador de Windows
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
Explorador de Windows
por Drak0_ » 16 Ene 2012 10:42
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- Drak0_
- Miembro Frecuente
- Registrado: 24 Oct 2011 13:00
Re: Explorador de Windows
por Adrian » 16 Ene 2012 10:55
Hola, no entiendo bien lo pedido (y vi el archivo) pero pongo macro que a lo mejor te puede ayudar:
- Código: Seleccionar todo
Sub ObtenerDirectorio()
Dim Ruta As String, Directorio As FileDialog, i As Integer, Nombre As String
Set Directorio = Application.FileDialog(msoFileDialogFolderPicker)
Directorio.Show
Ruta = Directorio.SelectedItems(1) & "\*.*"
Nombre = Dir(Ruta, 0)
i = 1
Do While Nombre <> ""
Cells(i, 1) = Nombre
i = i + 1
Nombre = Dir
Loop
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Adrian - Moderator
- Registrado: 13 Jun 2004 17:24
- Ubicación: Chamical La Rioja ARG
Re: Explorador de Windows
por Drak0_ » 16 Ene 2012 14:31
Muchas Gracias!! 
Era muy parecido a lo que buscaba!!
Edite algunas cosas y me sirvió
esto era lo que necesitaba x)
Era muy parecido a lo que buscaba!!
Edite algunas cosas y me sirvió
- Código: Seleccionar todo
Dim Ruta As String, Directorio As FileDialog, i As Integer, Nombre As String
Set Directorio = Application.FileDialog(msoFileDialogOpen)
Directorio.Show
Ruta = Directorio.SelectedItems(1)
range("a1").value = ruta
esto era lo que necesitaba x)
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- Drak0_
- Miembro Frecuente
- Registrado: 24 Oct 2011 13:00
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados
