全部显示

Connection 属性

       

返回或设置包含下列某项的字符串:允许 Microsoft Excel 连接到 OLE DB 数据源的 OLE DB 设置;允许 Microsoft Excel 连接到 ODBC 数据源的 ODBC 设置;允许 Microsoft Excel 连接到 Web 数据源的 URL;或者文本文件的名称或路径,或是指定某个数据库或 Web 查询的文件名称或路径。Variant 类型,可读写。

说明

设置 Connection 属性并不会立即启动与数据源的连接。必须使用 Refresh 方法来建立连接和检索数据。

在使用脱机多维数据集文件时,请将 UseLocalConnection 属性设置为 True,并使用 LocalConnection 属性,而不是用 Connection 属性。

有关连接字符串语法的详细信息,请参阅 QueryTables 集合的 Add 方法和 PivotCaches 集合的 Add 方法。

用户可选择 Microsoft ActiveX 数据对象 (ADO) 库以直接访问数据源。

示例

本示例在活动工作表的 A3 单元格上新建一个基于 OLAP 提供程序的数据透视表高速缓存,然后基于该高速缓存创建一个新的数据透视表。

With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
    .Connection = _
        "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National"
    .MaintainConnection = True
    .CreatePivotTable TableDestination:=Range("A3"), _
        TableName:= "PivotTable1"
End With
With ActiveSheet.PivotTables("PivotTable1")
    .SmallGrid = False
    .PivotCache.RefreshPeriod = 0
    With .CubeFields("[state]")
        .Orientation = xlColumnField
        .Position = 0
    End With
    With .CubeFields("[Measures].[Count Of au_id]")
        .Orientation = xlDataField
        .Position = 0
    End With
End With

本示例为第一张工作表上的第一个查询表提供新的 ODBC 连接信息。

Worksheets(1).QueryTables(1) _
    .Connection:="ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;"

本示例指定一个文本文件。

Worksheets(1).QueryTables(1) _
    Connection := "TEXT;C:\My Documents\19980331.txt"