Vbscript生成Excel报表的常用操作总结
使用QTP自动化测试结束后,经常需要将测试结果写入Excel中,这里就把一些常用对Excel操作的方法进行归纳、整理,方便使用时查阅。支持OfficeExcel2003版本,不支持2007版本。
Vbscript代码
OnErrorResumeNext DimFileName,SheetName,Text,ExcelApp,ExcelBook,ExcelSheet FileName="D:/Book1.xls" SheetName="新建表" Text="HelloQTP!你好,QuickTestProfessional!" SetExcelApp=CreateObject("Excel.Application") SetExcelBook=ExcelApp.Workbooks.Open(FileName) SetExcelSheet=ExcelBook.Sheets.Add'插入工作表 'SetExcelSheet=ExcelBook.Sheets.Item(SheetName)'获得指定工作表 '***************对数据表的操作*************** Fori=1ToExcelBook.Sheets.Count IfExcelBook.Sheets(i).Name=SheetNameThen ExcelApp.DisplayAlerts=False ExcelBook.Sheets(i).Delete'删除工作表 ExcelApp.DisplayAlerts=True ExitFor EndIf Next ExcelSheet.Name=SheetName'重命名工作表 '***************对文字的操作*************** ExcelSheet.Cells(1,2)=Text ExcelSheet.Range("B2","B20").Value=Text ExcelSheet.Cells(1,2).Font.Name="Verdana"'设置字体 ExcelSheet.Cells(1,2).Font.Size=25'设置字号 ExcelSheet.Cells(1,2).Font.Color=RGB(0,0,255)'设置字体颜色 ExcelSheet.Cells(2,2).Font.Bold=True'文字加粗 ExcelSheet.Cells(3,2).Font.Italic=True'文字倾斜 ExcelSheet.Cells(4,2).Font.Underline=True'文字加下划线 ExcelSheet.Cells(5,2).Font.Strikethrough=True'文字加删除线 ExcelSheet.Cells(6,2).Characters(2,2).Font.Superscript=True'设定文字上标 ExcelSheet.Cells(7,2).Characters(2,2).Font.Subscript=True'设定文字下标 '***************对单元格的操作*************** ExcelSheet.Columns("B").ColumnWidth=40'设置列宽 'ExcelSheet.Columns("B").AutoFit'自动调整列宽 ExcelSheet.Range("B11").RowHeight=40'设置行高 'ExcelSheet.Rows(11).Rows.AutoFit'自动调整行高 ExcelSheet.Range("B8","D8").Merge'合并单元格,水平方向 ExcelSheet.Range("B18","B19").Merge'合并单元格,垂直方向 ExcelSheet.Range("B8","D8").Borders.Color=RGB(0,255,0)'设定单元格边框颜色 ExcelSheet.Range("B12").Interior.Color=RGB(255,0,0)'设置单元格背景色 ExcelSheet.Cells(9,2).WrapText=True'自动换行 ExcelSheet.Cells(10,2).HorizontalAlignment=3'设置水平对齐,1常规,2靠左,3居中,4靠右 '5填充,6两端对齐,7跨列居中,8分散对齐 ExcelSheet.Cells(11,2).VerticalAlignment=1'设置垂直对齐,1靠上,2居中,3靠下 '4两端对齐,5分散对齐 ExcelSheet.Range("B14").Borders(1).LineStyle=1'设置左边框样式 ExcelSheet.Range("B14").Borders(2).LineStyle=2'设置右边框样式 ExcelSheet.Range("B14").Borders(3).LineStyle=3'设置上边框样式 ExcelSheet.Range("B14").Borders(4).LineStyle=4'设置下边框样式 ExcelSheet.Range("B15").ClearContents'清除单元格内容 ExcelSheet.Range("B16").Formula="=1+10"'设置单元格公式 ExcelSheet.Range("B17").AddComment("Hello"&vbLf&"QTP")'插入批注 ExcelSheet.Range("B17").Comment.Visible=True'显示批注 'ExcelSheet.Range("B17").ClearComments'清除批注,与删除批注效果相同 'ExcelSheet.Range("B17").Comment.Delete'删除批注,与清除批注效果相同 'ExcelSheet.SaveAs("D:\Book2.xls")'另存为 ExcelBook.Save ExcelBook.Close ExcelApp.Quit SetExcelBook=Nothing SetExcelApp=Nothing SystemUtil.CloseProcessByName"Excel.exe"'如果仍有Excel.exe进程,可使用这句关闭进程 IfErr.number>0Then MsgBoxErr.Description EndIf OnErrorGoTo0
补充:
ExcelApp.DisplayAlerts=False‘关闭兼容性检查 ExcelBook=ExcelApp.Workbooks.Add‘新建Excel ExcelSheet=ExcelBook.ActiveSheet‘激活第一个表 ExcelSheet.Columns(“A:E”).AutoFit()‘设置A到E列自动调整列宽 ExcelBook.SaveAs(“D:\Book2.xls”,FileFormat:=Excel.XLFileFormat.xlAddIn)‘文件另存为