Dvě? Ve skutečnosti míst, kde se mohou objevit propojení jinam, je nespočet. A co je horší, VBA podporuje velmi často jen informaci "je/není", ne výpis "kde a kam".
Sub ExterniOdkazy()
Dim blnExtLinkyVzorce As Boolean
Dim blnExtLinkyOLE As Boolean
Dim blnExtLinkyQuery As Boolean
Dim blnExtLinkyXML As Boolean
Dim blnExtLinkyRef As Boolean
Dim wshList As Worksheet
'jsou v sešitu externí odkazy?
'odkazy ze vzorců
blnExtLinkyVzorce = Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks))
'odkazy typu OLE, resp. DDE (vložené objekty)
blnExtLinkyOLE = Not IsEmpty(ActiveWorkbook.LinkSources(xlOLELinks))
'odkazy ve formě dotazů (SQL, web, databáze)
For Each wshList In ActiveWorkbook.Worksheets
If wshList.QueryTables.Count > 0 Then
blnExtLinkyQuery = True
Exit For
End If
Next wshList
'odkazy v podobě dat XML
blnExtLinkyXML = ActiveWorkbook.XmlMaps.Count > 0
'odkazy v podobě referencí z VBA
blnExtLinkyRef = False
With ActiveWorkbook.VBProject.References
For i = 1 To .Count
If Right(.Item(i).FullPath, 3) Like "xl?" Then
blnExtLinkyRef = True
Exit For
End If
Next i
End With
SesitObsahujeExtOdkazy = blnExtLinkyVzorce Or blnExtLinkyOLE Or _
blnExtLinkyQuery Or blnExtLinkyXML Or blnExtLinkyRef
End Subcitovat
Sub ExterniOdkazy()
Dim blnExtLinkyVzorce As Boolean
Dim blnExtLinkyOLE As Boolean
Dim blnExtLinkyQuery As Boolean
Dim blnExtLinkyXML As Boolean
Dim blnExtLinkyRef As Boolean
Dim wshList As Worksheet
'jsou v sešitu externí odkazy?
'odkazy ze vzorců
blnExtLinkyVzorce = Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks))
'odkazy typu OLE, resp. DDE (vložené objekty)
blnExtLinkyOLE = Not IsEmpty(ActiveWorkbook.LinkSources(xlOLELinks))
'odkazy ve formě dotazů (SQL, web, databáze)
For Each wshList In ActiveWorkbook.Worksheets
If wshList.QueryTables.Count > 0 Then
blnExtLinkyQuery = True
Exit For
End If
Next wshList
'odkazy v podobě dat XML
blnExtLinkyXML = ActiveWorkbook.XmlMaps.Count > 0
'odkazy v podobě referencí z VBA
blnExtLinkyRef = False
With ActiveWorkbook.VBProject.References
For i = 1 To .Count
If Right(.Item(i).FullPath, 3) Like "xl?" Then
blnExtLinkyRef = True
Exit For
End If
Next i
End With
SesitObsahujeExtOdkazy = blnExtLinkyVzorce Or blnExtLinkyOLE Or _
blnExtLinkyQuery Or blnExtLinkyXML Or blnExtLinkyRef
End Subcitovat
RSS nejnovější články