资源描述：
《vbs生成excel报告的常用操作【转】》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VBS生成Excel报告的常用操作使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持OfficeExcel2003版本，不支持2007版本。1.On Error Resume Next 2.Dim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheet 3.FileName = "D:/Book1.xls" 4.SheetName = "新建表" 5.Text = "Hello QTP
2、! 你好, QuickTestProfessional !" 6. 7.Set ExcelApp = CreateObject("Excel.Application") 8.Set ExcelBook= ExcelApp.Workbooks.Open(FileName) 9.Set ExcelSheet = ExcelBook.Sheets.Add '插入工作表 10.'Set ExcelSheet = ExcelBook.Sheets.Item(SheetName) '获得指定工作表 11. 12
3、.' *************** 对数据表的操作 *************** 13.For i=1 To ExcelBook.Sheets.Count 14. If ExcelBook.Sheets(i).Name=SheetName Then 15. ExcelApp.DisplayAlerts=False 16. ExcelBook.Sheets(i).Delete '删除工作表 17. ExcelApp.DisplayAlerts=Tru
4、e 18. Exit For 19. End If 20.Next 21.ExcelSheet.Name = SheetName '重命名工作表 22. 23. 24.' *************** 对文字的操作 *************** 25.ExcelSheet.Cells(1,2) = Text 26.ExcelSheet.Range("B2","B20").Value = Text 27.ExcelSheet.Cells(1,2).Fon
5、t.Name = "Verdana" '设置字体 28.ExcelSheet.Cells(1,2).Font.Size = 25 '设置字号 29.ExcelSheet.Cells(1,2).Font.Color = RGB(0, 0, 255) '设置字体颜色 30.ExcelSheet.Cells(2,2).Font.Bold = True '文字加粗 31.ExcelSheet.Cells(3,2).Font.Italic
6、 = True '文字倾斜 32.ExcelSheet.Cells(4,2).Font.Underline = True '文字加下划线 33.ExcelSheet.Cells(5,2).Font.Strikethrough = True '文字加删除线 34.ExcelSheet.Cells(6,2).Characters(2, 2).Font.Superscript = True '设定文字上标 35.ExcelSheet.Cells(7,2).Charact
7、ers(2, 2).Font.Subscript = True '设定文字下标 beconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacing
8、isgenerally100mm;branchofficesshallbebindingonbothends,eachcore1. 2. 3.' *******
