“天街小雨润如酥，草色遥看近却无。最是一年春好处，绝胜烟柳满皇都。”读一首古诗，心情也随之平静下来

循环将DataTable的值写入Excel表中

上一篇 / 下一篇  2008-06-30 14:59:33 / 个人分类：测试工具

查看( 1028 ) / 评论( 0 ) / 评分( 0 / 0 )
Dim excelApp,excelSheet,fso
Set excelApp = CreateObject("Excel.Application") '创建Excel Application对象
Set excelSheet =  CreateObject("Excel.sheet") '创建Excel Sheet对象
Set fso = CreateObject("scrīpting.FileSystemObject") '创建FileSystemObject对象
filename = "F:\QTP\QTPscrīpt\text.xls" '设定文件路径

excelApp.Visible = true 'excel可见

If fso.FileExists(filename) Then '检测文件是否存在，如果存在就删除文件然后写入数据
    print "text.xls 文件已经存在"
    fso.DeleteFile(filename)
    For i =1 to 2
     excelSheet.ActiveSheet.Cells(i,1).Value = Cstr(i)  '如果读取DataTable的值，可以用DataTable(1,1)代替Cstr(i)
   Next
Else  '如果文件不存在，直接写入数据
   print "text.xls 文件不存在"
   For i =1 to 10
     excelSheet.ActiveSheet.Cells(i,1).Value = Cstr(i)
   Next
End If
excelSheet.SaveAs filename '将数据保存到文件中
excelApp.Quit  '退出Excel
Set excelSheet = nothing '将sheet对象置为空
Set fso = nothing '将fso对象置为空


收藏 举报

TAG: QTP Excel 测试工具 FSO DataTable

 

评分：0

我来说两句

Open Toolbar