在将单元格值提取到SQL查询中时，VBA引发错误

问题描述

从某些单元格中获取SQL值时，出现以下错误。但是，当我将值硬编码到代码中时，它可以正常工作。因此，这显然与我编写它的语法有关。

出于各种原因，我希望使之动态化，并希望有人能为我提供帮助。

错误：Microsoft Access数据库引擎找不到对象“对象名”

将值硬编码的工作代码：

mySQL = "SELECT * FROM [listname];"
With cnt
.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://sharepoint.com/sites1/xx/;LIST= {0C3G7BTF-000E-4C16-8E07-E4B7F525069F};"
.Open
End With

无效的代码：

mySQL = "SELECT * FROM ['" & Sheet3.Range("c1") & "'];"
With cnt
.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://sharepoint.com/sites1/xx/;LIST= {'" & Sheet3.Range("d1") & "'};"
.Open
End With

解决方法

我建议将您的连接字符串值放在一个变量中，然后打印出来（例如debug.print myConnectionString），以对每个字符进行一个字符比较。

此外，您在对sheet.range（“ d1”）的引用中使用单引号

"Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://sharepoint.com/sites1/xx/;LIST= {'" & Sheet3.Range("d1") & "'};"

也许是造成您问题的原因。您似乎在mySQL变量分配中存在相同的问题。

编辑：

也许这可以工作：

mySQL = "SELECT * FROM [" & Sheet3.Range("c1") & "];"
myConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://sharepoint.com/sites1/xx/;LIST= {" & Sheet3.Range("d1") & "};"
debug.print myConnectionString
'Open execution window (ctrl g) to get the value of myConnectionString

With cnt
.ConnectionString = myConnectionString
.Open
End With