使用更新按钮VBA从Access将信息填充到Excel

Question

我正在尝试使用“更新”按钮从Access数据库查询到Excel电子表格中获取信息。 我发现一些代码应该可以运行，但是当我运行它时，它上面写着“运行错误'3061'。给定的参数太少，预期至少要有1个”。

这是代码：

---

Sub Rektangelmedrundadehörn1_Klicka()

Sheets("Blad1").Range("A2:B500").ClearContents

    Set DB1 = DBEngine.OpenDatabase("Path to my DB")
    Set QD1 = DB1.QueryDefs("Name of my Query")
    Set RS1 = QD1.OpenRecordset(dbOpenSnapshot, dbReadOnly)
    Sheets("Blad1").Range("A2").CopyFromRecordset RS1



    RS1.Close
    QD1.Close
    DB1.Close

End Sub

---

当我调试时，它停在“ Set RS1”并说它是空的。 也许我什至没有与Access列的连接？ 我检查了列的名称，它们是相同的。 我还在excel vba中添加了对access和DBO的引用。

我只在Excel中使用2列。 A1，B1

Answer 1

查询的SQL中有一些db引擎认为是参数的东西。 我猜您的查询包含一个可以在Access应用程序会话中使用的函数，但不能在从Access会话外部运行的查询中使用。 可能包括用户定义的功能和许多VBA功能。

无论我的猜测是否正确，db引擎都认为这是一个参数。 找出那是什么。

如果您知道如何设置临时断点，请在“ Set QD1行上设置一个。 否则，在该行之后添加Stop语句。 （完成测试后，请删除“ Stop 。）

Set QD1 = DB1.QueryDefs("Name of my Query")
Stop

在您运行代码时，这两种方法都会触发中断模式。 在中断模式下，您可以使用立即窗口检查查询的Parameters集合。

Debug.Print QD1.Parameters.Count

如果那告诉您Parameters.Count为1，则可以找出该参数的名称。 请注意，参数收集项从0开始编号。

Debug.Print QD1.Parameters(0).Name

希望一旦您看到参数名称，问题便会解决。 如果不是，请向我们显示参数名称和查询的SQL。