Apertura link della cella

Hai un problema con Excel?

Nuova discussione

Apertura link della cella
di Federica (utente non iscritto) data: 20/05/2010
Buona sera,

avrei bisogno per favore di un aiuto per creare una macro che apra eventuali link presenti nella cella attiva.
vorrei in altre parole trovare una scorciatoia rispetto ai passaggi edit - links... - open source che risultano troppo time consuming quando un file è linkato a troppe fonti esterne.
vorrei partire dal seguente codice ma non riesco a modificarlo in maniera efficace:

Sub OpenAllLinks()
'
' OpenAllLinks Macro
' Macro written 13/05/2010 by s15500
'
' Keyboard Shortcut: Ctrl+q

    Dim arLinks As Variant
    Dim intIndex As Integer
    arLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
   
    If Not IsEmpty(arLinks) Then
        For intIndex = LBound(arLinks) To UBound(arLinks)
            ActiveWorkbook.OpenLinks arLinks(intIndex)
            Next intIndex
    Else
        MsgBox "The active workbook contains no external links."
    End If

End Sub

di Ricky53 (utente non iscritto) data: 20/05/2010
Ciao federica,
puoi descrive in modo po' più dettagliato la tua neceessità

la macro così come è scritta funziona: apre i file xls che hanno un collegamento nel tuo file di lavoro.
cosa vorresti che facesse?

ricorda: chi legge non conosce nulla di quello che vuoi fare e ... quindi parole chiare e concetti semplici e schematici.

ciao da ricky53

Vuoi Approfondire?