Elegir una ruta desde macro de excel

05/05/2006 - 11:21 por kusflo | Informe spam
Tengo una macro que me importa una hoja de excel en el libro abierto si le
indico la ruta donde se encuentra. Lo que quiero es el código necesario para
que en vez de tener que escribir la ruta de dicha hoja a mano, la macro me
abra el explorador de windows para poder así elegir la ruta y que de alguna
forma esta pase a una variable de la macro.
"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.

Preguntas similare

Leer las respuestas

#1 kusflo
08/05/2006 - 11:07 | Informe spam
Vamos a ver.:
Pero como siempre mientras no de mas detalles la solucion se queda en el
"tintero"


¿Más detalles?. Creo que he dado bien los detalles pero los repito por sí no
me he explicado bien. En una exposición anterior Francisco me daba una
solución:
-
shell ("explorer.exe la_ruta_de_tcarpeta")
Esta solución no me vale por que como bien decía Hector Miguel me refería al
explorador del método Getopenfilename. También aclarar que NO tengo los
archivos que quiero importar por todo el PC sino en una ruta específica. El
problema es que esta ruta es de red del tipo "\\Server\\Archivos
Excel\Importaciones\"
¿Cómo podriamos hacer para que el mini explorador del método GetOpenfilename
se abriese en dicha carpeta de red, ("sin previamente tener que capturar
dicha carpeta como unidad de red") ?
Tiene que haber alguna forma pero no se me ocurre cual. Por supuesto,
agradeceros a los tres el interés y el tiempo empleado en el tema, valoro
enórmemente vuestra ayuda.

"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.


"Francisco MTY" escribió:

El detalle es si el usuario tiene definida la carpeta donde almacena los
archivos a elegir o bien los tiene por todo el disco de la Pc.
Si lo tiene dentro de una sola carpeta creo que ya se le dieron suficientes
opciones para elegir al menos que metodo le conviene mas.

1.- Buscar dentro de las subcarpetas todos los archivos con extencion *.xls
2.- Redireccionar al busqueda a un fichero TXT
3.- Abrir el fichero para con las lineas obtenidas (ruta de directorios)
llenar un combo
4.- Con la ruta del combo1 sacar los archivos existente dentro de esa
carpeta y mostrarselos al usuario bien un combo2 o un listbox1
5.- De alli sacar los eventos necesarios a requerimiento del usuario.

Pero como siempre mientras no de mas detalles la solucion se queda en el
"tintero" :-)

Mas tarde tal vez lo intente de ese modo pero por lo pronto me retiro a
laborar

Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."





Respuesta Responder a este mensaje
#2 Francisco Mty
08/05/2006 - 11:29 | Informe spam
Actualizando:

"GetOpenfilename"
Con metodos WSH se puede capturar la unidad de red "definida por el usuario"
Por lo demas un poco mas de time :)

Saludos
Respuesta Responder a este mensaje
#3 Francisco Mty
08/05/2006 - 11:41 | Informe spam
Dos cosas:

La ruta la tienes definida y la puedes pasar ya se por nombre de servidor o
bien la direccion IP, unidad de disco duro en la cual estan los archivos asi
como la carpeta.
Es decir:

Tu direccion IP ó nombre de servidor =
Unidad de disco =
Ruta de la carpeta completa =

Me imagino que tienes permisos dentro del servidor de archivos, si no es asi
con que metodo accesas, necesitas identificarte con usuario para el acceso.
Si es asi
Nombre de usuario Clave =


si te interesa espero la respuesta ya se aqui o via mail a


saludos
Respuesta Responder a este mensaje
#4 kusflo
08/05/2006 - 12:44 | Informe spam
'--
Problema resuelto con:

'Establecer ruta para abrir
ChDir "\\Server\Archivos Excel\Importación"

'Buscamos el fichero con el explorador de Windows
Dim ARCHIVO As String
ARCHIVO = Application.GetOpenFilename("Archivo Microsoft Excel (*.xls),
*.xls")

Al final a mi me funciona utilizando el ChDir. Yo tengo Windows 2000
Profesional y Office 2000, lo que no sé es si esto servirá para el Windows XP
y Office 2003 porque al parecer KL tenía problemas en este sentido. Bueno
muchas gracias otra vez y seguiré atento a este tema haber como se resuelve
para los de Windows XP y Office 2003.
"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.


"Francisco Mty" escribió:

Dos cosas:

La ruta la tienes definida y la puedes pasar ya se por nombre de servidor o
bien la direccion IP, unidad de disco duro en la cual estan los archivos asi
como la carpeta.
Es decir:

Tu direccion IP ó nombre de servidor =
Unidad de disco =
Ruta de la carpeta completa =

Me imagino que tienes permisos dentro del servidor de archivos, si no es asi
con que metodo accesas, necesitas identificarte con usuario para el acceso.
Si es asi
Nombre de usuario > Clave =


si te interesa espero la respuesta ya se aqui o via mail a


saludos




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida