VBA开发远程SQL Server的Excel数据上传用户表单技术问询

嗨，作为VBA新手能想到用用户表单实现数据上传真的很棒！我会一步步带你完成整个流程，代码里加了详细注释，你跟着做就能搞定～

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」里右键点击你的工作簿，选择【插入】→【用户窗体】
3. 如果控件工具箱没显示，按下Ctrl + T调出，拖一个「命令按钮」到窗体上；右键按钮选【属性】，把Caption改成「上传Excel文件」

双击刚才的命令按钮，进入按钮的点击事件代码，粘贴下面这段：

Private Sub CommandButton1_Click()
    Dim filePath As Variant
    
    ' 弹出文件选择框，仅过滤.xls和.xlsx格式
    filePath = Application.GetOpenFilename( _
        FileFilter:="Excel文件 (*.xls;*.xlsx), *.xls;*.xlsx", _
        Title:="请选择要上传的Excel文件", _
        MultiSelect:=False) ' 设为False只能选单个文件，需要多选就改成True
    
    ' 如果用户取消选择，直接退出
    If filePath = False Then Exit Sub
    
    ' 调用上传数据的函数，传入选中的文件路径
    UploadToSQL filePath
End Sub

在用户表单的代码窗口里，添加下面这个上传函数（一定要替换代码里的SQL Server相关信息！）：

Private Sub UploadToSQL(excelPath As String)
    Dim connSQL As Object, connExcel As Object
    Dim rs As Object
    Dim sqlStr As String
    Dim excelSheetName As String
    
    ' --------------------------
    ' 替换成你的SQL Server实际信息
    Dim sqlServer As String: sqlServer = "PUNESERVER_IP\实例名" ' 比如Pune服务器的IP地址或机器名
    Dim sqlDB As String: sqlDB = "你的目标数据库名称"
    Dim sqlUser As String: sqlUser = "SQL登录账号"
    Dim sqlPwd As String: sqlPwd = "SQL登录密码"
    Dim sqlTableName As String: sqlTableName = "要插入数据的SQL表名"
    ' --------------------------
    
    ' 初始化ADO连接对象
    Set connSQL = CreateObject("ADODB.Connection")
    Set connExcel = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    On Error GoTo ErrorHandler ' 捕获错误，方便排查问题
    
    ' 1. 连接到选中的Excel文件
    connExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                   "Data Source=" & excelPath & ";" & _
                   "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" ' HDR=YES表示Excel第一行是表头
    
    ' 获取Excel里的第一个工作表名称（也可以手动指定比如"Sheet1$"）
    excelSheetName = connExcel.OpenSchema(20).Fields("TABLE_NAME").Value
    rs.Open "SELECT * FROM [" & excelSheetName & "]", connExcel
    
    ' 2. 连接到异地SQL Server（用SQL身份验证，跨域连接更稳定）
    connSQL.Open "Provider=SQLOLEDB;" & _
                 "Data Source=" & sqlServer & ";" & _
                 "Initial Catalog=" & sqlDB & ";" & _
                 "User ID=" & sqlUser & ";" & _
                 "Password=" & sqlPwd & ";"
    
    ' 3. 把Excel数据批量插入SQL表（前提是SQL表结构和Excel列对应）
    sqlStr = "INSERT INTO " & sqlTableName & " SELECT * FROM OPENROWSET('Microsoft.ACE.OLEDB.12.0', " & _
             "'Excel 12.0 Xml;HDR=YES;Database=" & excelPath & "', " & _
             "'SELECT * FROM [" & excelSheetName & "]')"
    connSQL.Execute sqlStr
    
    ' 提示上传成功
    MsgBox "数据上传完成！", vbInformation
    
    ' 清理资源
    Cleanup:
        rs.Close
        connExcel.Close
        connSQL.Close
        Set rs = Nothing
        Set connExcel = Nothing
        Set connSQL = Nothing
        Exit Sub
    
    ' 错误处理
    ErrorHandler:
        MsgBox "上传出错：" & Err.Description, vbCritical
        GoTo Cleanup
End Sub

• 引用ADO库：如果运行时提示“找不到对象”，在VBA编辑器里点击【工具】→【引用】，找到并勾选Microsoft ActiveX Data Objects 6.1 Library（选最新版本即可）
• 异地连接排查：确保Pune的SQL Server开启了远程连接，服务器防火墙允许1433端口（SQL默认端口），你的网络能正常访问该服务器
• 表结构匹配：SQL Server目标表的字段数量、数据类型要和Excel列对应，否则会插入失败
• 宏文件保存：保存文件时要选择「Excel启用宏的工作簿（.xlsm）」，打开文件时记得启用宏

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