将访问查询导入 Excel 表时出现“无效的过程调用或参数”

Question

我有一个 Excel 工作簿，其中包含链接到 Excel 表的数据透视表和图表。我想创建一个按钮，当按下该按钮时，它会删除表中的任何数据，并将其替换为访问数据库中保存的查询中的更新数据。我已经编写了以下代码，但是当我运行该过程时出现“无效的过程调用或参数”错误。有谁知道我哪里出错了？

   'button on excel form runs procedure to remove current data in table then 
   'import data from query in MS access database

Sub ImportData()
    Call CleanTheTable("MMPres_MainData", "MainData")
    Call ImportAccessData("qry_MMPres_Main", "MMPres_MainData", "MainData"
End Sub   

   'procedure finds database file and imports query into excel table

Sub ImportAccessData(qry As String, sht As String, tbl As String)

On Error GoTo ErrorHandler

    Const dbLoc As String = "D:\AccessPractice\CTDB\CardiothoracicDB_v2_Current.accdb"
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim bk As Workbook
    Dim Wsht As Worksheet

    Set bk = ActiveWorkbook
    Set Wsht = bk.Worksheets(sht)
    Set db = DBEngine.OpenDatabase(dbLoc)
    Set rs = db.OpenRecordset(qry, dbOpenSnapshot)

    Wsht.ListObjects(tbl).Range("A1").CopyFromRecordset (rs)

    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Set Wsht = Nothing
    Set bk = Nothing
    Exit Sub

ErrorHandler:
    Application.StatusBar = ""
    MsgBox ("Error: " & Err.Number & " " & Err.Description)
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Set Wsht = Nothing
    Set bk = Nothing

End Sub

Answer 1

假设你已经为DAO 设置了必要的库引用，你得到的错误就在这一行：

Wsht.ListObjects(tbl).Range("A1").CopyFromRecordset (rs)

改成这样：

Wsht.ListObjects(tbl).Range(2, 1).CopyFromRecordset rs

也可以：

Wsht.ListObjects(tbl).HeaderRowRange.Offset(1).CopyFromRecordset rs

总结：

1- 去掉(rs)周围的括号

2- 不要覆盖表头（即第 1 行），从第二行开始复制记录集。

3- ListObject 的方法 Range 有点混乱，它返回表格的整个范围，但不能直接提供 "A1-style" 引用，它的作用更大像Cells 工作表方法。