Skip to content
Archivos de Excel

Como ABRIR un DIRECTORIO DEPENDIENDO de una FECHA en Excel VBA #585

Abri Explorador de Archivos con Excel en base a lo escrito en celda

ABRIR UN DIRECTORIO DEPENDIENDO DE UNA FECHA

En esta macro de Excel se muestra como abrir un directorio dependiendo del nombre escrito en una celda, en este caso puntual en las celdas se encuentra escrita una fecha, la macro toma esa fecha y abre el directorio que lleva ese nombre, en el ejemplo las celdas tienen fecha y cada fecha tiene un directorio asociado que tiene la fecha de la celda.

Maneja Excel como los mejores deber铆as hacer click ac谩, si quieres aprender sobre聽Excel聽en ingl茅s, entonces debes hacer聽click here. Si lo que necesitas es aprender o profundizar sobre la programaci贸n de macros con VBA este es unos de los ❤️MEJORES CURSOS de EXCEL ON LINE❤️ que he visto en internet, te lo recomiendo no te arrepentir谩s.

聽聽
Puedes ver la macro en acci贸n y una explicaci贸n m谩s detallada de su codificaci贸n y funcionamiento, descarga el archivo y mira el video para una m谩s f谩cil comprensi贸n de la macro; suscribe a nuestro canal de You Tube, mira el playlist con聽 v铆deos relacionados donde podr谩s ver la macros relacionadas en acci贸n con una explicaci贸n en forma visual que ayudar谩 a entender el ejemplo en forma m谩s f谩cil. Te pido que me sigas y comentes en DTube y Odysee para poder seguir publicado macros gratis.

MACRO PARA ABRIR EXPLORADOR DE WINDOWS

En el ejemplo se puede observa una hoja de Excel en la fila 2 hay una serie de fechas, haciendo doble click en la celda que contiene la fecha requerida, se abre el explorador de archivos de Windows, abriendo el directorio que coincide con la fecha seleccionada en la celda, en este caso es una fecha, pero puede ser cualquier nombre, abriendo la carpeta que coincide con ese nombre.

La macro de Excel verifica si existe el directorio en primer lugar, en caso que no exista lo crea, si existe abre el directorio mostrando los archivos correspondientes.

Explicaci贸n de la Macro Excel PARA ABRIR EXPLORADOR DE ARCHIVOS DE WINDOWS

La macro se debe agregar en la hoja donde estemos trabajando o donde requiramos que se ejecute la macro, es decir en “Worksheet” evento “BeforeDoubleClick”, cuando se haga un doble click, la macro verificar谩 si se produjo sobre la fila dos columna B en adelante, para eso se usa el c贸digo siguiente:

If Target.Row = 2 And Target.Column > 1 And Cells(Target.Row, Target.Column) <> Empty Then

En caso positivo se obtiene la direccion de la celda donde se hizo doble click con el objeto de determinar el nombre string o cadena de texto que hay en esa celda, cargandose en la variable “MyDirec”, el nombre, string o cadena de carateres que haya en la celda donde se hizo click, se usa el siguiente c贸digo

MyDirec = Replace(Cells(Target.Row, Target.Column), “/”, “”)

Notese que en la celda existen fechas, en este caso se debe reemplazar las “/” por otro car谩cter o por nada, ya que es un caracter reservado de Windows y no puede ser usado como nombre de una carpeta o archivo, en el ejemplo se reemplaza la “/” por nada quedando la fecha en este formato “20122021” en vez de “20/12/2021”, siendo el nombre del directorio que buscar谩 para abrir la macro.

Luego se llama a la macro “OpenDirec”, as铆:

Call OpenDirec

La macro que se llama en el procedimiento anterior se encuentra en un m贸dulo, dicha macro forma la ruta donde que se debe abrir seg煤n la fecha seleccionada, en este caso la ruta de la carpeta se encuentra en el mismo directorio que la macro, en caso que ustedes tengan otra ruta deben reemplazar ActiveWorkbook.path por la ruta correcta, 茅ste c贸digo nos brinda la ruta del archivo actual que contiene la macro y que estamos usando:

ruta = ActiveWorkbook.path & “\” & MyDirec

N贸tese que la ruta se conforma con el nombre existente en la celda donde se hizo click y se guardo en la variable “MyDirec”

Posteriormente la macro determina si existe el directorio con este c贸digo

If Dir(ruta, vbDirectory) = “” Then

En caso que la ruta o carpeta NO exista crea la carpeta y luego abre el explorador de archivos de Windows en la ruta del directorio creado, as铆:

MkDir ruta
ShellExecute 0, “Open”, ruta, “”, “”, 1

En caso que la ruta o directorio exista directamente abre la carpeta seleccionada, con el siguiente c贸digo:

ShellExecute 0, “Open”, ruta, “”, “”, 1

C贸digo Para Abrir UN DIRECTORIO O CARPETA CUYO NOMBRE EST脕 ESCRITO EN UNA CELDA

C贸digo que va en Worksheet

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.Row = 2 And Target.Column > 1 And Cells(Target.Row, Target.Column) <> Empty Then
MyDirec = Replace(Cells(Target.Row, Target.Column), “/”, “”)
Call OpenDirec
End If
End Sub

C贸digo que va en un m贸dulo

Sub OpenDirec()
On Error Resume Next
ruta = ActiveWorkbook.path & “\” & MyDirec

If Dir(ruta, vbDirectory) = “” Then
MkDir ruta
ShellExecute 0, “Open”, ruta, “”, “”, 1
Else
ShellExecute 0, “Open”, ruta, “”, “”, 1
End If
End Sub


聽

Puedes DESCARGAR el Libro Como Abrir Explorador de Windows dependiendo del nombre que est茅 en una celda

Descarga el fichero usado como ejemplo en este post y en el v铆deo explicativo, el mismo es totalmente gratuito y su uso es libre, solicito aportar para sostener esta web, si est谩 dentro de tus posibilidades, desde ya muchas gracias.

Si te fue de utilidad puedes聽INVITARME UN CAF脡聽y de esta manera ayudar a seguir manteniendo la p谩gina,聽CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful聽INVITE ME A COFFEE聽and so help keep up the page,聽CLICK聽to download free example.

Donate:
👉⏩ Cuenta Paypal: https://paypal.me/programarexcel

👉⏩ Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd

👉⏩ Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407

👉⏩ Cuenta Skrill: marcrodos@yahoo.es

👉⏩ Cuenta Neteller: marcrodos@yahoo.es

👉⏩ Apoya mi trabajo https://www.patreon.com/programarexcel

👉⏩ S铆gueme en DTube: https://d.tube/#!/c/programarexcel01

👉⏩ S铆gueme en Odysee: https://odysee.com/@programarexcel:3