试图通过Access-VBA代码更新Excel表错误：找不到数据库对象“ Ware”

编程问答 2022-06-06

问题描述

我有许多Excel文件，这些文件包含需要合并到一张表中的数据。

是否可以从Access VBA代码中做到这一点，这是我所希望的？还是我应该在Excel VBA中这样做？

我的想法是遍历Excel文件，并对更新列WHERE MyCondition使用sql语句，以将所需的值获取到所需的列。有可能这样吗？或者对解决这个问题有什么建议？

到目前为止，我已经通过Access尝试过这种方式：

Sub Execute_UpdateQuery()
   Dim conn As ADODB.Connection
   Dim NumOfRec As Integer
   Dim strPath As String

   strPath = "D:\Sortierliste August_September\Test.xlsx"

   Set conn = New ADODB.Connection

   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & ";Extended Properties=Excel 12.0 Xml;HDR=YES;"

   conn.Execute "UPDATE Ware SET Name = 'test'" & _
      " WHERE Name = 'Ackermann'",NumOfRec,adExecutenorecords

   Debug.Print NumOfRec & " records were updated."
   conn.Close
   Set conn = nothing
End Sub

但是这导致一个错误“无法找到访问数据库模块“ Ware”。我想这是因为它只是一个excel表而不是一个数据库吗？我以为它可以找到一个包含表的excel文件。处理并执行一个SQL查询，对于如何解决此问题，任何帮助或建议都将非常有用。

格里兹

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelms-access-2016sqlsqlvba