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

Question

I have an SQL SELECT query in a cell (image) . I am attempting to use VBA to use the string in my cell as my string for an SQL query, but it reads only part of the string. In the cell, the query (without quotes) is 685 chars long. In the variable (at run time), the query is (with quotes) 185 chars long. Here is the query in the cell:

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];

Here is the code I use to read the cell (I used "dim myQuery as string" earlier in the code, and the cell is formatted as text):

myQuery = Range("Project1Query").Value

Here is the query in the variable that has been declared as a string:

"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 "

The variable is then used in the following request for data:

ReviewersData.Open myQuery, ReviewersConn, adOpenStatic, adLockOptimistic

Any thoughts as to how 500 characters got cut off?

Answer 1

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

Answer 2

I found out that the way I was attempting to access the variable value was causing it to appear truncated. I was right-clicking on the variable value in the "locals" frame of the VB IDE, selecting copy, then pasting what was in the clipboard into notepad. It was there that the string was truncated. When I did a msgbox of the text, it was correct.