用VBA从MySQL中提取数据到Excel的尝试

Sub ExtractDataFromMySQL()
    ' 建立与MySQL数据库的连接
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=数据库地址;DATABASE=数据库名;USER=用户名;PASSWORD=密码;"
    conn.Open
    
    ' 执行SQL查询
    Dim sql As String
    sql = "SELECT * FROM 表名;"
    
    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, conn
    
    ' 将查询结果导入Excel
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 指定要导入数据的工作表
    
    Dim row As Long
    row = 2 ' 数据从第二行开始
    
    Do Until rs.EOF
        ws.Cells(row, 1).Value = rs.Fields("字段1").Value ' 将查询结果的字段1导入第一列
        ws.Cells(row, 2).Value = rs.Fields("字段2").Value ' 将查询结果的字段2导入第二列
        ' ...
        
        row = row + 1
        rs.MoveNext
    Loop
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub