Cómo indicar una ruta si cambia el directorio

No sé por qué razón, cuando pregunto desaparece mi saludo y la línea final XD.

Bueno, a lo que vamos: Con respecto a la pregunta anterior, ya he encontrado la respuesta. El problema era que no indicaba la ruta completa, pero además, hay que añadir otra cosita. El código quedaría así:

commandbutton1.picture = LoadPicture("H:\reloj\imágenes\flechaabajo.jpg")

En mi caso, el directorio es "H", el archivo "reloj", la carpeta donde están guardadas las imágenes es "imágenes" y la imagen a cargar "flechaabajo.jpg". Vale, esto ya funciona. Pero... ¿y si cambia el directorio? En Access lo solucionaba de la siguiente manera:

Dim miruta As String
miruta = Application.CurrentProject.Path & "\reloj\imágenes\flechaabajo.jpg"

Pero en Excel no encuentro la manera. Se trataría de no tener que cambiar el código cuando cambia la unidad en la que está la aplicación...

En fin, a ver si podéis ayudarme.

1 respuesta

Respuesta
1

Jesús Gallego

A mi también me suele desaparecer el saludo inicial, no sé por qué XD

Contesto a tu pregunta.

Lo que en Access es:

miruta = Application.CurrentProject.Path & "\reloj\imágenes\flechaabajo.jpg"

En Excel sería:

miruta = Application.ThisWorkbook.Path & "\reloj\imágenes\flechaabajo.jpg"

o

miruta = Application.ActiveWorkbook.Path & "\reloj\imágenes\flechaabajo.jpg"

ThisWorkbook hace referencia al libro excel donde esta la macro
ActiveWorkbook hace referencia al libro excel que tienes activo (que no tiene que ser el mismo en donde se encuentra la macro)

Saludos,
Carlos

[email protected]

¡Gracias! Muchísimas gracias Carlos por tu pronta respuesta. En efecto, con eso todo solucionado, funciona perfecto.

Muchas gracias una vez más.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas