如何在Excel中獲取Access查詢的結果？

Question

我想在訪問數據庫中做一個查詢，然後得到這個查詢結果並插入到一個Excel工作表，但沒有任何工作。這是我的代碼

Sub Analise() 
    Dim cnn As ADODB.Connection 
    Dim rst As ADODB.Recordset 
    Dim sSQL As String 
    Sheets("Plan1").Range("A2:A23").Select 
    For Each Regra In Selection 
     If Regra = "MYRULE" Then 
      sSQL = "SELECT ITEM !, ITEM2 FROM base WHERE NomeRegra = ""'MyValue'"" " 
      MyConn = "MyPath\base.mdb" 
      Set cnn = New ADODB.Connection 
      With cnn 
       .Provider = "Microsoft.Jet.OLEDB.4.0" 
       .Open MyConn 
      End With 
      Set rst = New ADODB.Recordset 

      rst.CursorLocation = adUseServer 

      rst.Open Source:=sSQL, ActiveConnection:=cnn, CursorType:=AdForwardOnly, LockType:=adLockOptimistic, Options:=adCmdText 

      Sheets("Plan1").Range("D1:E1") = Array("Field1", "Field2") 

      Range("D2:E100000").CopyFromRecordset rst 

      rst.Close 
      cnn.Close 
     End If 

    Next Regra 

Answer 1

您是否嘗試過在MS Excel中使用Access文件作爲數據庫？在Excel中的數據標籤，

「獲取外部數據」「自其他來源」下拉菜單，然後「從MS查詢」

選擇MS Access數據庫，然後找到你的文件。出現「查詢嚮導」彈出窗口時，點擊取消，然後點擊「是」繼續在MS Query中編輯。如果你想自己寫SQL，你可以按下sql按鈕，但是這種語言與Access有點不同。這可能需要一些玩耍，但MS查詢可以是一個非常強大的工具。