使用visual basic将excel导出为sql

Sub ExportExcelToSQL()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 创建记录集
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 遍历Excel工作表
    For i = 1 To Worksheets.Count
        ' 选择当前工作表
        Worksheets(i).Activate
        
        ' 构建SQL语句
        strSQL = "INSERT INTO 表名 (字段1, 字段2, 字段3) VALUES "
        
        ' 遍历数据行
        For j = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            ' 拼接数值类型字段值
            strSQL = strSQL & "(" & Cells(j, 1).Value & ", " & Cells(j, 2).Value & ", " & Cells(j, 3).Value & ")"
            
            ' 如果不是最后一行数据，则添加逗号分隔符
            If j < Cells(Rows.Count, 1).End(xlUp).Row Then
                strSQL = strSQL & ", "
            End If
        Next j
        
        ' 执行SQL语句
        conn.Execute strSQL
    Next i
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "Excel导出为SQL完成！"
End Sub