vb操作 excel

qtp自动化测试之后要出测试报告，qtp自带的测试报告形式一般不能满足各种实际的项目

在实践工作中，经常使用excel来做测试报告，所以需要使用vb来对excel进行操作

下面的代码是建立一个excel,在单元格中写入普通内容，加入超链接，保存另存的简单过程。先从简单开始，真正要写测试报告当然复杂的多

Dim Exlapp
Set Exlapp = CreateObject("Excel.Application")
Exlapp.Visible = True
Exlapp.Workbooks.Add()

Dim Shet       
Set Shet = Exlapp.Workbooks(1).Worksheets(1)
Shet.Cells(1,1) = "test"
Shet.Hyperlinks.Add Shet.Cells(2, 1), "E:\vbscript\test.JPG", "", "E:\vbscript\test.JPG"

Exlapp.ActiveWorkbook.SaveAs   "E:\vbscript\test2.xls"
Exlapp.Quit
Set Exlapp = Nothing