expression.SourceConnectionFile
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example determines if a connection exists for the PivotTable cache and, if there is a connection, displays the file name. If no connection exists, the code handles the run-time error and notifies the user. This example assumes a PivotTable exists on the active worksheet.
Sub CheckSourceConnection()
Dim pvtCache As PivotCache
Set pvtCache = Application.ActiveWorkbook.PivotCaches.Item(1)
On Error GoTo No_Connection
MsgBox "The source connection is: " & pvtCache.SourceConnectionFile
Exit Sub
No_Connection:
MsgBox "PivotCache source can not be determined."
End Sub