无需为每个用户配置本地DSN，如何在SharePoint托管的Excel中刷新Databricks ODBC外部查询？

阿华AIGC实验室

2026-3-31

这个场景我太熟了！之前帮公司几十人的团队解决过一模一样的问题——SharePoint上的Excel依赖本地DSN刷新Databricks数据，每个人都要配置一遍，运维成本高到爆炸。下面给你从快速修复到长期优化的完整方案，都是实际验证过的：

一、快速修复：用VBA嵌入DSN-less连接串，摆脱本地DSN配置

核心思路是把原来依赖本地DSN的连接，替换成包含所有认证/服务器参数的完整ODBC连接串，直接嵌入Excel的查询逻辑里，这样用户不需要在本地配置任何DSN，只要有Databricks的访问权限和对应ODBC驱动就行。

具体操作步骤：

获取你的Databricks DSN-less连接串
标准的Databricks ODBC连接串包含这些必填参数，你可以从Databricks工作区的「ODBC/JDBC」配置页面复制基础模板，再调整细节：
```
DRIVER={Simba Spark ODBC Driver 64-bit};SERVER=你的Databricks服务器地址;PORT=443;
HTTPPath=/sql/1.0/warehouses/你的仓库ID;THRIFTTRANSPORT=2;AUTHMECH=3;UID=token;PWD=你的Databricks个人访问令牌（PAT）;
SSL=1;SSLVerifyServerCert=1
```
注意：驱动名称要和用户机器上安装的一致，比如64位Excel必须用64位驱动，名称一般是Simba Spark ODBC Driver 64-bit。

用VBA批量替换查询的连接串并刷新
写一段VBA代码，遍历Excel里的所有外部查询，把依赖DSN的连接替换成上面的完整串，然后自动刷新。代码示例如下：

Sub RefreshDatabricksQueriesWithoutDSN()
    Dim qry As WorkbookQuery
    Dim secureConnStr As String
    
    ' 这里建议从Windows凭据管理器读取Token，不要硬编码！下面会说安全方案
    secureConnStr = "DRIVER={Simba Spark ODBC Driver 64-bit};SERVER=your-databricks-server.cloud.databricks.com;PORT=443;" & _
              "HTTPPath=/sql/1.0/warehouses/your-warehouse-id;THRIFTTRANSPORT=2;AUTHMECH=3;UID=token;PWD=" & GetDatabricksTokenFromCredentials() & ";" & _
              "SSL=1;SSLVerifyServerCert=1"
    
    On Error Resume Next
    For Each qry In ThisWorkbook.Queries
        ' 筛选出原来依赖DSN的Databricks查询
        If InStr(LCase(qry.Formula), "odbc;dsn=") > 0 Then
            ' 替换为DSN-less的Power Query公式
            qry.Formula = "let Source = Odbc.DataSource(""" & secureConnStr & """, [HierarchicalNavigation=true]) in Source"
            ' 触发刷新
            qry.Refresh
        End If
    Next qry
    On Error GoTo 0
    
    MsgBox "Databricks查询已全部刷新完成！", vbInformation
End Sub

' 辅助函数：从Windows凭据管理器读取存储的Databricks Token（避免硬编码）
Private Function GetDatabricksTokenFromCredentials() As String
    Dim cred As CREDENTIAL
    Dim result As Long
    Dim targetName As String
    
    targetName = "Databricks-Excel-Refresh" ' 凭据名称，用户提前在凭据管理器里添加
    result = CredRead(targetName, CRED_TYPE_GENERIC, 0, cred)
    
    If result = 1 Then
        GetDatabricksTokenFromCredentials = StrConv(cred.pbPassword, vbUnicode)
        ' 释放内存
        CredFree cred
    Else
        ' 如果没找到，弹出让用户输入并保存
        Dim inputToken As String
        inputToken = InputBox("请输入你的Databricks个人访问令牌（PAT）：", "Databricks认证")
        If inputToken <> "" Then
            ' 保存到凭据管理器
            Dim newCred As CREDENTIAL
            newCred.Type = CRED_TYPE_GENERIC
            newCred.TargetName = targetName
            newCred.CredentialBlobSize = LenB(StrConv(inputToken, vbFromUnicode))
            newCred.CredentialBlob = StrPtr(inputToken)
            newCred.Persist = CRED_PERSIST_ENTERPRISE
            newCred.UserName = Environ("USERNAME")
            CredWrite newCred, 0
            GetDatabricksTokenFromCredentials = inputToken
        End If
    End If
End Function

这段代码里的GetDatabricksTokenFromCredentials函数会从Windows凭据管理器读取Token，避免了硬编码明文的安全风险——用户只需要第一次输入Token，之后会自动存在本地，VBA调用时直接读取。

批量部署ODBC驱动
虽然不需要配置DSN，但用户机器上还是要装Simba Spark ODBC驱动。这个可以让IT用组策略批量推送，比手动配置DSN简单太多，一次部署全公司都能用。

二、长期优化：摆脱本地依赖的架构方案

如果想彻底摆脱本地驱动和VBA的限制，推荐这两种更可控的架构：

方案1：改用Power Query内置的Databricks连接器（无需ODBC）

Excel的Power Query有官方自带的Databricks连接器，完全不需要ODBC驱动和DSN：

操作方式：打开Excel，点击「数据」->「获取数据」->「从Databricks」，输入Databricks工作区URL、仓库ID、个人访问令牌，直接生成查询。
优势：微软官方维护，稳定性比ODBC好；用户不需要装任何额外驱动，Excel自带支持；SharePoint托管的文件直接支持刷新，只要用户有Databricks权限就行。
注意：如果是旧版Excel，可能需要更新到365最新版本，确保连接器可用。

方案2：用自动化工具定时刷新，用户只看结果

如果报表是固定周期更新的（比如每天/每周），可以完全不让用户手动操作，用自动化工具把数据同步到SharePoint的Excel里：

用Azure Automation：写PowerShell或Python脚本，连接Databricks SQL执行查询，把结果导出成Excel格式，然后通过Graph API上传替换SharePoint里的文件，或者直接更新指定工作表。设置定时触发器，比如每天凌晨自动刷新。
用Databricks SQL作业：在Databricks里创建SQL作业，执行查询后，通过dbutils.fs或者SharePoint REST API把结果直接写入SharePoint的Excel文件。这种方式完全在云端完成，不需要任何本地资源。