Cuadro de diálogo
1. Copiamos una de las siguientes subrutinas en un módulo.
'Para un único fichero de Excel Sub AbrirCuadroDialogo1() Application.Dialogs(xlDialogOpen).Show End Sub
'Para abrir múltiples ficheros o aplicaciones Sub AbrirCuadroDialogo2() Dim cd As FileDialog Set cd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With cd .AllowMultiSelect = True If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems ActiveWorkbook.FollowHyperlink vrtSelectedItem Next End If End With Set cd = Nothing End Sub2. Asignamos la macro a la autoforma: clic sobre el botón secundario y elegir Asignar macro en el menú contextual.
3. Al hacer clic en la autoforma abrirá el cuadro de diálogo y podremos seleccionar uno o múltiples ficheros.
Una alternativa, en el caso de abrir siempre el mismo fichero de Excel, es crear esta subrutina que abrirá el fichero especificado tras Filename:=
Sub AbrirFichero() Workbooks.Open Filename:="C:\Carpeta\Libro.xlsx" End Sub
Hipervínculo
Los hipervínculos nos permiten acceder a la información dentro del mismo documento o en otros archivos desde Excel. Vamos a tratar de los vínculos a otros documentos, ya sean otros ficheros de Excel, páginas webs u otros programas.
El hipervínculo se puede asociar a una celda, pero también a un objeto, imagen o gráfico. Seleccionamos la celda u objeto:
- clic sobre el botón secundario y elegir Hipervínculo en el menú contextual; o
- presionamos Ctrl+Alt+K
Entradas relacionadas:
Abrir ficheros con hipervínculos o cuadro de diálogo en Access
Abrir ficheros con hipervínculos o cuadro de diálogo en Access
No hay comentarios:
Publicar un comentario