2014-04-25

Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel

Title En Excel, dos alternativas para abrir otros ficheros o aplicaciones son el cuadro de diálogo y el hipervínculo.

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 Sub
   2. 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

No hay comentarios:

Publicar un comentario

Nube de datos