使用 VBA 在 Excel 单元格中运行 SQL 语句答案

【问题标题】：Run SQL-statement in Excel Cell with VBA使用 VBA 在 Excel 单元格中运行 SQL 语句
【发布时间】：2021-04-23 08:39:06
【问题描述】：

Excel 文件：

   |        A       |       B         |            C                |        D        |     E
---|----------------|-----------------|-----------------------------|-----------------|------------
1  |   sales_date   |   2020-01-15    |     =CONCATENATE(C2,C3)     |                 |
2  |                |                 |      SQL-Query Part 1*      |                 |
3  |                |                 |      SQL-Query Part 2*      |                 |
4  |                |                 |                             |                 |

VBA

Sub Get_Data_from_DWH()

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
        
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=XX.XXX.XXX.XX; DATABASE=bi; UID=testuser; PWD=test; OPTION=3"
    conn.Open
    
    strSQL = Sheet1.Range("C1")
                            
    Set rs = New ADODB.Recordset
    rs.Open strSQL, conn, adOpenStatic

    Sheet1.Range("D1").CopyFromRecordset rs
    
    rs.Close
    conn.Close
    
End Sub

SQL 查询：

SELECT
product, brand, sales_channel,
country, sales_manager, sales_date, return_date,
process_type, sale_quantity, return_quantity, sales_value, variable_costs, fixed_costs
FROM bi.sales
WHERE sales_date = '"&B1&" AND country IN ('DE', 'US', 'NL') 
ORDER BY FIELD (brand, 'brand_A', 'brand_B', 'brand_C');

我想用上面的VBA 运行上面的SQL-Query。

问题是查询包含超过 255 个字符，因此它不适合一个 Excel 单元格。
因此，我将查询随机拆分为Cell C2 和Cell C3 中的两部分，并在Cell C1 中使用CONCATENATE(C2,C3) 将查询的两部分组合起来。

当我现在运行VBA 时，我得到runtime error '-2147217887 (80040e21)'。

我猜VBA 无法处理Cell C1 中的CONCATENATE(C2,C3)。
因此，我想知道是否有其他方法可以解决此问题？

注意：
我知道我可以将 SQL 直接放入 VBA 代码中。但是，我的想法是拆分 SLQ 字符串和执行代码，因为我的原始 SQL 的字符比这个问题中的示例还要多，我想保持 VBA 的结构如this question 中所述。 p>

【问题讨论】：

(a) Excel 单元格没有 255 个字符的限制。 (b) 我强烈认为您的问题来自无效的 SQL 语句。 (c) 您的子句"&L1&" 看起来很可疑。 L1 应该是一个参数吗？ (d) 我强烈建议使用ADODB-Parameter，例如stackoverflow.com/a/60640185/7599798
(a) 有一个限制：stackoverflow.com/questions/12386414/… (b) 如果我使用少于 255 个字符，SQL 语句就会运行，(c) 引用 L1 是上述问题中的错字。我将其固定为 B1，因为它应该引用此单元格 (d) 我将检查 ADODB 参数
链接的问题是关于公式的长度，而不是单元格的长度。 SQL 语句肯定没有 255 个字符的限制。将日期传递给查询始终是一个问题，如果您不使用 ADODB.Parameter，则需要完全按照数据库的预期格式化 SQL 语句 - 这对于不同的数据库非常不同

标签： sql excel vba

【解决方案1】：

您从哪里得知 Excel 单元格限制为 265 个字符？

Excel 365：这是 C1 中的 313 个字符：

这是单元格 A1 中的整个 SQL 查询：

【讨论】：

Excel 给了我这个错误，但即使有 313 个字符，仍然存在无法处理字符数超过字符限制的查询的关键问题。
那么字符限制是什么？告诉我们！

【解决方案2】：

选项 1：

使用CONCATENATE 函数将查询拆分为多个部分可以删除正确运行查询所需的空格。
因此，根据查询而不是=CONCATENATE(C2,C3)，您需要使用=CONCATENATE(C2," ",C3)。

选项 2：

如果上述解决方案不起作用，您也可以通过变通方法解决问题，并将CONCATENATE 函数从Cell C1 复制并粘贴 到另一个单元格中作为值强>：

Sub Get_Data_from_DWH()

Sheet1.Range("C4").ClearContents
Sheet1.Range("C1").Copy
Sheet1.Range("C4").Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
        
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=XX.XXX.XXX.XX; DATABASE=bi; UID=testuser; PWD=test; OPTION=3"
    conn.Open
    
    strSQL = Sheet1.Range("C4")
                            
    Set rs = New ADODB.Recordset
    rs.Open strSQL, conn, adOpenStatic

    Sheet1.Range("D1").CopyFromRecordset rs
    
    rs.Close
    conn.Close
    
End Sub

在 cmets 中讨论过 Excel 单元格没有限制。
对于简单的文本没有限制，但formula 的输入是有限的。
在问题的特定情况下，公式是必要的，因为Cell B1 中的条目应该是用户可以随时更改的变量。

因此，我认为唯一的办法是

a) 将 SQL 语句与正在执行的 VBA 代码分开
b) 使用超过 255 个字符的查询
c) 将 Excel 单元格中的条目作为变量应用

是上述解决方案之一。

【讨论】：