Excel 2016宏刷新SQL链接数据时自动输入密码的实现问题

这个坑我之前踩过——你用SendKeys直接跟着RefreshAll跑肯定不行，因为Excel弹出密码对话框的时候，宏的执行会被直接阻塞，SendKeys根本没机会触发。给你几个靠谱的解决思路，按推荐程度排序：

1. 直接在连接字符串里嵌入密码（最省心） #

这是最直接的方案，从根源上避免密码弹窗。你可以修改现有数据连接的属性，把密码直接写进连接字符串里：

Sub RefreshDataWithEmbeddedPassword()
    Dim conn As WorkbookConnection
    Dim connStr As String
    Dim targetPassword As String
    
    targetPassword = "foobar" ' 替换成你的SQL密码
    
    ' 遍历工作簿里的所有数据连接
    For Each conn In ThisWorkbook.Connections
        ' 只处理OLEDB类型的SQL连接
        If conn.Type = xlConnectionTypeOLEDB Then
            connStr = conn.OLEDBConnection.Connection
            
            ' 检查连接字符串里是否已经包含密码，避免重复添加
            If InStr(1, connStr, "Password=", vbTextCompare) = 0 Then
                ' 给连接字符串追加密码参数（不同驱动格式可能略有差异，SQL Server一般用这个）
                connStr = connStr & ";Password=" & targetPassword & ";"
                conn.OLEDBConnection.Connection = connStr
            End If
            
            ' 刷新当前连接
            conn.Refresh
        End If
    Next conn
End Sub

注意事项： #

• 密码会明文保存在VBA代码或连接属性里，安全性较低。如果工作簿需要共享，建议给VBA工程加密（VBA编辑器→工具→VBAProject属性→保护），或者考虑用Windows凭据管理器存储密码（需要额外写代码调用API）。
• 不同SQL驱动的连接字符串格式可能有区别，比如用ODBC的话参数是PWD=，可以根据自己的连接类型调整。

2. 用ADODB手动控制数据刷新（最灵活） #

如果不想明文存密码，或者需要更自定义的数据导入逻辑，可以用ADODB连接直接从SQL Server拉数据，完全绕开Excel自带的刷新弹窗：

首先需要先引用ADODB库：打开VBA编辑器→工具→引用→勾选「Microsoft ActiveX Data Objects 6.1 Library」（版本选最新的即可）。

Sub RefreshDataViaADODB()
    Dim sqlConn As ADODB.Connection
    Dim sqlRs As ADODB.Recordset
    Dim targetWs As Worksheet
    Dim connStr As String
    
    ' 配置参数
    Set targetWs = ThisWorkbook.Worksheets("数据工作表") ' 替换成你的工作表名
    connStr = "Provider=SQLOLEDB.1;Data Source=你的SQL服务器地址;" & _
              "Initial Catalog=你的数据库名;User ID=你的SQL用户名;Password=foobar;"
    
    ' 建立连接并拉取数据
    Set sqlConn = New ADODB.Connection
    sqlConn.Open connStr
    
    ' 替换成你的查询语句
    Set sqlRs = sqlConn.Execute("SELECT * FROM 你的目标表")
    
    ' 清空工作表现有数据（可选）
    targetWs.Cells.Clear
    
    ' 将查询结果写入工作表，从A1开始
    targetWs.Range("A1").CopyFromRecordset sqlRs
    
    ' 清理资源
    sqlRs.Close
    sqlConn.Close
    Set sqlRs = Nothing
    Set sqlConn = Nothing
End Sub

优势： #

• 完全控制数据获取过程，不会弹出任何对话框。
• 可以自定义SQL查询、数据写入位置，适合复杂场景。

3. 用Application.OnTime延迟执行SendKeys（应急方案） #

如果以上两种方法都不想用，只能靠SendKeys凑活的话，可以用延迟执行的方式绕开宏阻塞的问题：

Sub RefreshDataAutoEnterPassword()
    ' 先安排1秒后执行输入密码的操作，时间可以根据你的刷新速度调整
    Application.OnTime Now + TimeValue("00:00:01"), "AutoFillPassword"
    
    ' 触发全部刷新
    ThisWorkbook.RefreshAll
End Sub

Sub AutoFillPassword()
    ' 输入密码
    SendKeys "foobar", True
    ' 回车确认
    SendKeys "{ENTER}", True
End Sub

注意事项： #

• 可靠性差：如果刷新速度太快或太慢，SendKeys可能会输入到错误的窗口，甚至没机会触发。
• 不适合多弹窗场景：如果有多个连接需要密码，或者其他系统弹窗，这个方法会失效。

内容的提问来源于stack exchange，提问作者ElectroMotiveHorse