把mysql数据库里面的数据导入到Excel表格里面

把mysql数据库里面的数据导入到Excel表格里面

Dim con,res,strcnn,cmd,sql
set con=CreateObject("adodb.connection")
Set res=CreateObject("adodb.recordset")
Set cmd=CreateObject("adodb.command")
strcnn="Driver={MySQL ODBC 3.51 Driver};server=localhost;database=testlink;user=root;option=3"
con.Open strcnn
Set cmd.ActiveConnection=con
    cmd.CommandType=1
    sql="Select * from users"
    cmd.CommandText=sql
Set res=cmd.Execute()
Dim i
i=1
do while not res.eof
 Dim Values1,values2
                    values1=res("login")
                    values2=res("password")
                    NewSheet.Cells(i+1,1).Value =values1
                   NewSheet.Cells(i+1,2).Value =values2
     

      i=i+1

        res.movenext

Loop
ExcelObj.ActiveWorkbook.Saveas "D:\text.xls"

ExcelObj.Quit

Set ExcelObj = Nothing
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing