SourceConnectionFile Property

Microsoft Excel Visual Basic

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