- ActiveWorkbook.LinkSources(tipo)
restituisce array dei link del file
tipo:
- xlExcelLinks link a file esterno Excel
- xlOLELinks link tipo OLE
esempio: elenco dei link del file in una scheda a parte
Dim aLinks As Variant
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) array link
If Not IsEmpty(aLinks) Then se array non é vuoto
Sheets.Add
For i = LBound(arLinks) To UBound(aLinks)
Cells(i, 1).Value = aLinks(i)
Next i
End If
esempio: scrivo tutti i link di un foglio in una lista
Dim aLinks As Variant
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) array link
Dim lista As Object
Set lista = CreateObject("System.Collections.ArrayList") creo lista
If Not IsEmpty(aLinks) Then se array non é vuoto
For intIndex = LBound(arLinks) To UBound(arLinks)
lista.Add arLinks(intIndex)
Next intIndex
End If
- ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
aggiorna tutti i link esterni del foglio attivo
- ActiveWorkbook.LinkInfo("file", tipo)
restituisce lo stato del link
tipo:
- xlLinkInfoStatus stato del link
- xlUpdateState se il link é settato con aggiornamento automatico o manuale
valori xlLinkInfoStatus restituiti
- 0 No errori (xlLinkStatusOK)
- 1 manca file (xlLinkStatusMissingFile)
- 2 manca scheda (xlLinkStatusMissingSheet)
- 3 stato potrebbe essere non aggiornato (xlLinkStatusOld)
- 4 stato non calcolato (xlLinkStatusSourceNotCalculated)
- 5 impossibile determinare lo stato (xlLinkStatusIndeterminate)
- 6 non iniziato (xlLinkStatusNotStarted)
- 7 nome non valido (xlLinkStatusInvalidName)
- 8 file aperto (xlLinkStatusSourceNotOpen)
- 9 documento sorgente aperto (xlLinkStatusSourceOpen)
- 10 valore copiato (xlLinkStatusCopiedValues)
esempio: messaggio con lo ststo del tile test.xlsx
MsgBox (ActiveWorkbook.LinkInfo("test.xlsx", xlLinkInfoStatus))