用VBA将整个excel表导出到sql表中

Sub ExportToSQL()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer, j As Integer
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串，根据实际情况修改数据库类型、服务器地址、数据库名称、用户名和密码
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 设置SQL语句，根据实际情况修改表名和字段名
    strSQL = "INSERT INTO 表名 (字段1, 字段2, 字段3) VALUES "
    
    ' 遍历Excel表格中的每一行数据
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        strSQL = strSQL & "("
        
        ' 遍历每一列数据
        For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
            ' 将单元格的值添加到SQL语句中
            strSQL = strSQL & "'" & Cells(i, j).Value & "', "
        Next j
        
        ' 去除最后一个逗号和空格
        strSQL = Left(strSQL, Len(strSQL) - 2)
        
        strSQL = strSQL & "), "
    Next i
    
    ' 去除最后一个逗号和空格
    strSQL = Left(strSQL, Len(strSQL) - 2)
    
    ' 执行SQL语句
    conn.Execute strSQL
    
    ' 关闭记录集和数据库连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "Excel表已成功导出到SQL表中。"
End Sub