资源描述：
《vbscript生成excel报表的常用操作总结》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、我真正系统地接触和学习党的基本知识是在这次中级党校的培训班上。通过学习，了解了党的发展历程，对党的性质、宗旨、任务等基本知识有了进一步的了解Vbscript生成Excel报表的常用操作总结 使用QTP自动化测试结束后，经常需要将测试结果写入Excel中，这里就把一些常用对Excel操作的方法进行归纳、整理，方便使用时查阅。支持OfficeExcelXX版本，不支持XX版本。 Vbscript代码 ?66OnErrorResumeNextDimFileName,SheetName,Text,ExcelApp,ExcelBook,E
2、xcelSheetFileName="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)'获得指
3、定工作表'***************对数据表的操作***************Fori=1ToExcelBook.Sheets.CountIfExcelBook.Sheets(i).Name=SheetNameThenExcelApp.DisplayAlerts=FalseExcelBook.Sheets(i).Delete'删除工作表ExcelApp.DisplayAlerts=TrueExitForEndIfNextExcelSheet.Name=SheetName'重命名工作表'对党的认识也有了进一步的提高。才真正体会到了
4、中国共产党的伟大、光荣和正确，更感到只有中国共产党是全中国最广大人民利益的忠实代表我真正系统地接触和学习党的基本知识是在这次中级党校的培训班上。通过学习，了解了党的发展历程，对党的性质、宗旨、任务等基本知识有了进一步的了解***************对文字的操作***************ExcelSheet.Cells(1,2)=TextExcelSheet.Range("B2","B20").Value=TextExcelSheet.Cells(1,2).Font.Name="Verdana"'设置字体ExcelSheet.C
5、ells(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'文字加删除线ExcelSh
6、eet.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").Row
7、Height=40'设置行高'ExcelSheet.Rows(11).Rows.AutoFit'自动调整行高ExcelSheet.Range("B8","D8").Merge'合并单元格，水平方向ExcelSheet.Range("B18","B19").Merge对党的认识也有了进一步的提高。才真正体会到了中国共产党的伟大、光荣和正确，更感到只有中国共产党是全中国最广大人民利益的忠实代表我真正系统地接触和学习党的基本知识是在这次中级党校的培训班上。通过学习，了解了党的发展历程，对党的性质、宗旨、任务等基本知识有了进一步的了解'合并单
8、元格，垂直方向ExcelSheet.Range("B8","D8").Borders.Color=RGB(0,255,0)'设定单元格边框颜色ExcelSheet.Range("B12").Interior.Color=
