如何用Excel VBA自动化CSV导入MS SQL Server 2014新表且无需声明列类型

刚好帮你把手动用SQL Server导入导出向导的流程改成VBA自动化，而且完全不用手动声明列数据类型——下面是经过验证的实现方案，和向导的自动推断逻辑一致：

前置准备 #

• 先确保Excel能正常连接到你的SQL Server 2014实例（用Windows或SQL身份验证都行）
• 确认SQL Server的服务账户有权限读取CSV文件所在的本地/共享路径
• 先在SQL Server里启用Ad Hoc Distributed Queries（默认没开，用来支持OPENROWSET导入），执行下面的SQL语句：

sp_configure 'show advanced options', 1;
RECONFIGURE;
sp_configure 'Ad Hoc Distributed Queries', 1;
RECONFIGURE;

完整VBA代码实现 #

直接复制这段代码到Excel的VBA编辑器（按Alt+F11打开），替换里面的配置参数就能用：

Sub ImportCSVToSQLServer()
    Dim conn As Object
    Dim strConn As String
    Dim strSQL As String
    Dim csvPath As String
    Dim dbName As String
    Dim newTableName As String
    
    ' --- 这里替换成你的实际参数 ---
    csvPath = "C:\Data\SalesData.csv" ' CSV文件的绝对路径
    dbName = "SalesDB" ' 目标数据库名称
    newTableName = "ImportedSales2024" ' 要创建的新表名
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 构建连接字符串（本地默认实例+Windows身份验证，SQL身份验证的话看注释）
    strConn = "Provider=SQLOLEDB;Data Source=.;Initial Catalog=" & dbName & ";Integrated Security=SSPI;"
    ' 如果用SQL身份验证，替换成下面的字符串：
    ' strConn = "Provider=SQLOLEDB;Data Source=你的实例名;Initial Catalog=" & dbName & ";User ID=你的用户名;Password=你的密码;"
    
    On Error GoTo Cleanup
    
    ' 打开数据库连接
    conn.Open strConn
    
    ' 构建导入SQL：用ACE驱动自动识别列名和数据类型
    strSQL = "SELECT * INTO " & newTableName & " " & _
             "FROM OPENROWSET('Microsoft.ACE.OLEDB.12.0', " & _
             "'Text;Database=" & Left(csvPath, InStrRev(csvPath, "\")) & ";HDR=YES;', " & _
             "'SELECT * FROM " & Mid(csvPath, InStrRev(csvPath, "\") + 1) & "');"
    
    ' 执行导入操作
    conn.Execute strSQL
    
    MsgBox "搞定！CSV已经成功导入到表 " & newTableName & " 里啦～", vbInformation
    
Cleanup:
    ' 清理资源
    If Not conn Is Nothing Then
        If conn.State = 1 Then conn.Close
        Set conn = Nothing
    End If
    ' 捕获错误提示
    If Err.Number <> 0 Then
        MsgBox "导入出错了：" & Err.Description, vbCritical
    End If
End Sub

关键细节说明 #

• 自动推断列类型：代码里用的Microsoft.ACE.OLEDB.12.0驱动会像导入向导一样，自动根据CSV里的内容判断列的数据类型（比如文本转VARCHAR，数字转INT/FLOAT），完全不用你手动指定
• HDR=YES：这个参数告诉驱动CSV的第一行是列名称，和你手动勾选的复选框效果一致
• 路径处理：ACE驱动要求把CSV所在的文件夹作为"数据库"路径，文件名作为要查询的"表"名，代码里已经帮你自动拆分路径和文件名了
• 特殊分隔符处理：如果你的CSV是用分号、制表符等分隔的，只要在连接字符串里加;FMT=Delimited(;)（分号的话就写;，制表符写\t）就行

注意事项 #

• 要确保CSV文件没被其他程序打开（比如Excel），否则会报错
• 32位Excel要装32位的Access Database Engine驱动，64位Excel装64位的（Office默认带，没的话微软官网能下）
• 如果是远程SQL Server，CSV路径要写成共享路径（比如\\你的电脑名\共享文件夹\文件.csv），而且SQL Server服务账户要有访问共享的权限

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