QTP脚本--将数据库表中的字段导入到Excel表中
上一篇 /
下一篇 2010-01-26 15:25:01
Set excelObj = createobject("Excel.Application") '创建一个excel对象
excelObj.workbooks.open("e:\ss.xls") '打开本地的Excel文件
Set sheetNew = excelobj.sheets.item(1)'' 设置将数据放在 EXCEL 中的那一页上 ( 索引从1开始 )
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 ' 清空对象
收藏
举报
TAG: