小编jmw*_*ree的帖子

对于下面列出的代码，除了第一个 SQL 查询之外，它运行良好。我从工作簿中提取地址和状态信息，并对这些信息运行查询以查找该地址在表中出现的次数。如果我运行代码并在查询发送到 Access 之前停止它，我可以从“立即”窗口中提取查询命令，转到 Access，然后运行查询，没有问题。但是，如果我只是运行 VBA 程序并让它将查询发送到 Access，则结果始终为 0。长话短说，查询将在 Access 中运行并提供正确的结果，但是当 Excel VBA 将查询发送到 Access 时，结果始终为零（并且没有错误消息）。任何帮助将不胜感激。

Dim DatabaseFileName As String, connectionstring As String   

connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DatabaseFileName & "; Persist Security Info=False;"

Dim conn As New ADODB.Connection
conn.Open connectionstring

Dim rs As New ADODB.Recordset, SQL As String
Dim ExecSQL As New ADODB.Command

With ThisWorkbook.Sheets(1)
    For I = 2 To 1235
        SQL = ""
        If .Cells(I, 7) <> "" Then
            SQL = "SELECT Count(VRSC_CUSTOMER_SITES.SITE_ID)  AS GCOUNT into …