Excel VBA读取单元格中的SQL SELECT语句

Question

我在单元格（图像）中有一个SQL SELECT查询。 我正在尝试使用VBA将单元格中的字符串用作SQL查询的字符串，但它仅读取字符串的一部分。 在单元格中，查询（不带引号）的长度为685个字符。 在变量中（在运行时），查询长度（带引号）为185个字符。 这是单元格中的查询：

SELECT Contacts.[Last Name], 
       Contacts.[First Name], 
       Contacts.[Maricom E-Mail], 
       Contacts.[Project, Org, Team] 
FROM Contacts 
WHERE (((Contacts.[Project, Org, Team])=""Proj - MDM"") 
       AND ((Contacts.[Active?])=Yes)) 
    OR (((Contacts.[Project, Org, Team])=""Team%"") 
       AND ((Contacts.[Active?])=Yes)) 
    OR (((Contacts.[Project, Org, Team])=""Orgs - CM"") 
       AND ((Contacts.[Active?])=Yes)) 
    OR (((Contacts.[Project, Org, Team])=""Orgs - Document Team"") 
       AND ((Contacts.[Active?])=Yes)) 
    OR (((Contacts.[Project, Org, Team])=""Orgs - Process Engineering"") 
       AND ((Contacts.[Active?])=Yes)) 
    OR (((Contacts.[Project, Org, Team])=""Orgs - QA"") 
       AND ((Contacts.[Active?])=Yes)) 
ORDER BY Contacts.[Last Name];

这是我用来读取单元格的代码（我在代码前面使用“将myQuery as string变暗”，并且该单元格设置为文本格式）：

myQuery = Range("Project1Query").Value

这是已声明为字符串的变量中的查询：

"SELECT Contacts.[Last Name], 
        Contacts.[First Name], 
        Contacts.[Maricom E-Mail], 
        Contacts.[Project, Org, Team] 
FROM Contacts 
WHERE (((Contacts.[Project, Org, Team])=""Proj - MDM"") AND "

然后在以下数据请求中使用该变量：

ReviewersData.Open myQuery, ReviewersConn, adOpenStatic, adLockOptimistic

关于如何截断500个字符的任何想法？

Answer 1

在获取Range（）。Value之前，尝试将工作表中的双引号替换为Chr（34）。

Answer 2

我发现尝试访问变量值的方式导致它看起来被截断。 我在VB IDE的“本地”框中右键单击变量值，选择复制，然后将剪贴板中的内容粘贴到记事本中。 在那里字符串被截断了。 当我输入文字的msgbox时，它是正确的。