如何在不进行硬编码的情况下对动态命名的 Excel 范围运行 SQL 查询？

在Excel表格上执行SQL查询，无需硬编码范围

在Microsoft Excel中，对工作簿中表格中的数据执行SQL查询通常是高效数据检索和操作的理想方法。但是，在查询中硬编码范围地址会限制其灵活性和适用性。本文解决了用户寻求对动态命名范围或Excel表名称使用SQL查询时面临的挑战。

以下VBA代码演示如何动态获取范围地址并将其合并到SQL语句中：

Sub SQLQueryDynamic()

    ' 将命名范围地址定义为变量
    Dim rngAddress As String

    ' 将活动命名范围地址转换为单个字符串
    rngAddress = ActiveWorkbook.Names.Item("namedRangeName").RefersToLocal

    ' 使用动态范围地址构造SQL字符串
    Dim strSQL As String
    strSQL = "SELECT * FROM [" & rngAddress & "]"

    ' 打开ADODB连接和记录集
    Dim cn As ADODB.Connection, rs As ADODB.Recordset
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    strFile = ThisWorkbook.FullName
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    strFile & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

    cn.Open strCon

    ' 执行SQL查询
    rs.Open strSQL, cn

    ' 打印结果
    Debug.Print rs.GetString

    ' 清理
    rs.Close
    cn.Close
End Sub

此代码使用户能够定义动态命名范围或使用Excel表名，并在无需硬编码的情况下执行SQL查询。此外，它消除了依赖于知道表或命名范围所在的表名的必要性。通过使用这种方法，VBA开发人员可以为Excel用户提供更大的灵活性和数据检索能力。

以上是如何在不进行硬编码的情况下对动态命名的 Excel 范围运行 SQL 查询？的详细内容。更多信息请关注PHP中文网其他相关文章！