QTP脚本--将数据库表中的字段导入到Excel表中

Set excelObj = createobject("Excel.Application") '创建一个excel对象
 excelObj.workbooks.open("e:\ss.xls") '打开本地的Excel文件
 Set sheetNew = excelobj.sheets.item(1)'' 设置将数据放在 EXCEL 中的那一页上 ( 索引从１开始 )
 Const strconn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Password=123456;Data Source=Mysql_ADO"'连接数据库
 Set  conn=createobject("Adodb.Connection")
 Set res=createobject("Adodb.recordset")
 sql = "SELECT * FROM working_procedure_detail"
 conn.open strconn
 res.Open sql, conn   'sql为查询语句

 res.MoveFirst()
 
 Dim i
 Dim j
 j=1
 Do while not res.eof
  For i=0 to res.Fields.count-1
            sheetNew.cells(j,(i+1)).value=res.fields(i).value
  Next
  j=j+1
  res.movenext()
 Loop             ‘循环取出数据库表中的所有字段的值。
 res.close
 conn.close
 Set res=nothing
 Set  conn=nothing
    excelObj.activeworkbook.saveas "e:\aa.xls" '在指定目录自动生成Excel文件保存从数据库中取出的数据
 excelObj.quit ' 关闭对象
set excelObj = nothing ' 清空对象