如何使用VBA在Excel中添加連接（到外部數據源）並將其保存到該Excel電子表格的連接列表

Question

我可以使用VBA創建新的ADODB.Connection和關聯的ADODB.Command和ADOBD。參數，然後創建一個PivotCache和數據透視表

Sub CreatePivotTable() 
    'Declare variables 
    Dim objMyConn As ADODB.Connection 
    Dim objMyCmd As ADODB.Command 
    Dim objMyParam As ADODB.Parameter 
    Dim objMyRecordset As ADODB.Recordset 

    Set objMyConn = New ADODB.Connection 
    Set objMyCmd = New ADODB.Command 
    Set objMyRecordset = New ADODB.Recordset 

    'Open Connection' 
    objMyConn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=myMIS;Data Source=localhost;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=WKSTN101;Use Encryption for Data=False;Tag with column collation when possible=False" 
    objMyConn.Open 

    'Set and Excecute SQL Command' 
    Set objMyCmd.ActiveConnection = objMyConn 
    objMyCmd.CommandText = "select a.col1, a.col2, b.col3, b.col4" & _ 
          "from TableA a, TableB b " & _ 
          "where a.col3=b.col5 " & _ 
          "and a.col1=?" 
    objMyCmd.CommandType = adCmdText 

    Set objMyParam = objMyCmd.CreateParameter("COLUMN1", adChar, adParamInput, 20, Range("AnotherSheet!A3").Value) 

    objMyCmd.Parameters.Append objMyParam 

    'Open Recordset' 
    Set objMyRecordset.Source = objMyCmd 
    objMyRecordset.Open 

    'Create a PivotTable cache and report. 
    Set objPivotCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal) 
    Set objPivotCache.Recordset = objMyRecordset 
    objPivotCache.CreatePivotTable TableDestination:=Range("A11"), TableName:="PivotTable1" 

    With ActiveSheet.PivotTables("PivotTable1") 
     .SmallGrid = False 
     With .PivotFields("Col3") 
      .Orientation = xlRowField 
      .Position = 1 
     End With 
     With .PivotFields("Col4") 
      .Orientation = xlRowField 
      .Position = 1 
     End With 
     With .PivotFields("Col1") 
      .Orientation = xlColumnField 
      .Position = 1 
     End With 
     With .PivotFields("Col2") 
      .Orientation = xlDataField 
      .Position = 1 
     End With 
    End With 

......但之後，我已經運行這個宏，如果我檢查的連接列表中的連接屬性（功能區中的數據選項卡），他們會被禁用（顯示爲灰色），並且SQL命令不會顯示在那裏（僅限通過VBA進一步的更改）。

如何創建這些相同的對象，但讓它們與Excel UI集成，以便將來的用戶不需要使用VBA？有任何想法嗎？

Answer 1

您可以使用macro recorder生成一個VBA代碼，該代碼將添加一個連接到您的Excel實例。
我添加的代碼在這個答案的末尾，但是你可以生成你自己，如果你按照下面的步驟：
1）啓動宏錄製
2）在功能區上，單擊Data標籤。點擊Connections，然後選擇Add按鈕一樣顯示在下面的截圖

3）在下一屏幕上，選擇現有的數據庫連接，並按照未來2個或3個屏幕的步驟配置您的連接。
4）一旦建立連接，並出現在連接列表中，單擊Properties按鈕，下一個屏幕Export Connection File

5）停止你的宏錄製和開放VBE(alt+F11)和編輯在Module1 6）代碼從宏代碼刪除這些行

.ServerFillColor = False 
.ServerFontStyle = False 
.ServerNumberFormat = False 
.ServerTextColor = False 

7）保存並關閉該文件現在

注意當您重新打開該文件，並運行連接應該被添加到您的聯繫列表中的宏

您現在可以添加從導出文件的連接與此代碼

Workbooks("Book1").Connections.AddFromFile _ 
     "C:\Users\...\exported_file_name.odc" 

或可運行記錄的代碼，讓宏添加爲您