如何将参数从Excel工作表传递到Access生成表查询

时间:2017-10-30 21:09:55

标签: excel-vba access-vba vba excel

我使用一个小函数打开ADODB连接(这很好),我试图将参数传递给Make Table Query。并收到以下错误:'操作查询不能用作行来源'

以下是我正在测试的代码。

Bundle bundleA = FrameworkUtil.getBundle(ExampleClass.class);
List<BundleWires> bundleWires =
    bundleWiring.getProvidedWires(BundleRevision.PACKAGE_NAMESPACE);
bundleWires.get(0).getRequirerWiring();

我试图从Range传递日期(&#34; ASOFDATE&#34;)。值(Excel工作表)到Access Make Table Query。

我找到了下面的示例,但无法开始工作。

Pass VBA Variable into Access Query(Excel VBA)

1 个答案:

答案 0 :(得分:0)

我终于开始工作了。

Sub RunAccessQueries()

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rst As DAO.Recordset

GoHere = ThisWorkbook.Path

ASOFDATE = Format(Range("ASOFDATE").Value, "MM/DD/YYYY")

Set ws = DBEngine.Workspaces(0)
Set db = DBEngine.OpenDatabase(GoHere & "\Main.mdb", False, False, "MS Access;PWD=pass")

sql = "INSERT INTO etc.;"
db.Execute sql, dbFailOnError
RecordsUpdated = db.RecordsAffected

db.Close

End Sub

解决方案来自此处。

Error 3219- Invalid Operation