VBS生成Excel报告的常用操作【转】.docVIP

下载本文档

1
0
约4.13千字
约 3页
2018-02-27 发布于河北
举报
版权申诉

VBS生成Excel报告的常用操作【转】.doc

1、本文档共3页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

VBS生成Excel报告的常用操作【转】

VBS生成?Excel?报告的常用?操作使用QTP?自动化测试?结束后，经常需要将?测试结果写?入Exce?l中，这里就把一?些常用对E?xcel操?作的方法进?行归纳、整理，方便使用时?查阅。支持Off?ice Excel? 2003版?本，不支持20?07版本。On?Error??Resum?e?Next?? Dim?FileN?ame,?Sheet?Name,?Text,?Excel?App,?Excel?Book,?Excel?Sheet??? FileN?ame?=?D:/Book1?.xls?? Sheet?Name?=?新建表?? Text?=?Hello??QTP?!?你好,?Quick?TestP?rofes?siona?l?!?? ?? Set?Excel?App?=?Creat?eObje?ct(Excel?.Appli?catio?n)?? Set?Excel?Book=?Excel?App.Workb?ooks.Open(FileN?ame)?? Set?Excel?Sheet??=?Excel?Book.Sheet?s.Add???????????????插入工作表??? Set?Excel?Sheet??=?Excel?Book.Sheet?s.Item(Sheet?Name)??获得指定工?作表?? ?? ?***************?对数据表的?操作?***************?? For?i=1?To?Excel?Book.Sheet?s.Count??? ????If?Excel?Book.Sheet?s(i).Name=Sheet?Name?Then?? ????????Excel?App.Displ?ayAle?rts=False??? ????????Excel?Book.Sheet?s(i).Delet?e??????????????????删除工作表??? ????????Excel?App.Displ?ayAle?rts=True?? ????????Exit?For?? ????End?If?? Next?? Excel?Sheet?.Name?=?Sheet?Name?????????????????????????重命名工作?表?? ?? ?? ?***************?对文字的操?作?***************?? Excel?Sheet?.Cells?(1,2)?=?Text?? Excel?Sheet?.Range?(B2,B20).Value??=?Text?? Excel?Sheet?.Cells?(1,2).Font.Name?=?Verda?na?????????????设置字体?? Excel?Sheet?.Cells?(1,2).Font.Size?=?25????????????????????设置字号?? Excel?Sheet?.Cells?(1,2).Font.Color??=?RGB(0,?0,?255)???????设置字体颜?色?? Excel?Sheet?.Cells?(2,2).Font.Bold?=?True??????????????????文字加粗?? Excel?Sheet?.Cells?(3,2).Font.Itali?c?=?True????????????????文字倾斜?? Excel?Sheet?.Cells?(4,2).Font.Under?line?=?True?????????????文字加下划?线?? Excel?Sheet?.Cells?(5,2).Font.Strik?ethro?ugh?=?True?????????文字加删除?线?? Excel?Sheet?.Cells?(6,2).Chara?cters?(2,?2).Font.Super?scrip?t?=?True??设定文字上?标?? Excel?Sheet?.Cells?(7,2).Chara?cters?(2,?2).Font.Subsc?ript?=?True????设定文字下?标?? ?? ?? ?***************?对单元格的?操作?***************?? Excel?Sheet?.Colum?ns(B).Colum?nWidt?h?=?40????????????设置列宽?? Excel?Sheet?.Colum?ns(B).AutoF?it????????????????????自动调整列?宽?? Excel?Sheet?.Range?(B11).RowHe?ight=40????????????????设置行高?? Excel?Sheet?.Rows(11).Rows.AutoF?it?