Question

我有一个指向外部Excel文件的连接。我所有的数据透视表都指向此连接。有什么方法可以交换我的连接而无需更改任何数据透视表。

我编写了使用ADO从受密码保护的Excel文件中读取的代码。但是，我想使用工作簿启动时使用的新连接来更改连接。

这是到目前为止的代码。

Public Sub readFile()
Dim xl As Object
Dim conn As New ADODB.connection
Dim recSet As ADODB.Recordset
Dim conString As String
Dim wkbName As String
Dim SQL As String
Dim DBPath As String

'Path to excel file
DBPath = "path\to\file.xlsx"
Set xl = GetObject(DBPath)

'Name of table
wkbName = "[table1$]"

conString = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"

'Query
SQL = "select * from " & wkbName

'Open connection
conn.Open conString

'Itterate over record set
Set recSet = New ADODB.Recordset
recSet.Open SQL, conn

'Print out col1 from table
Do Until recSet.EOF
    'process your data here
    Debug.Print recSet!Data
    recSet.MoveNext
Loop
End Sub

Answer 1

我想出了如何更改所有现有数据透视表的连接。将连接名称替换为连接名称，并将workbookName替换为工作簿名称

@property UIView *mainView;

-(UIView *)mainView;

VBA Excel 2010如何交换连接

1 个答案: