如何在不進行硬編碼的情況下對動態命名的 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中文網其他相關文章！