有哪些Vbscript生成Excel报表的常用操作
发表于:2024-09-23 作者:千家信息网编辑
千家信息网最后更新 2024年09月23日,这篇文章主要介绍"有哪些Vbscript生成Excel报表的常用操作",在日常操作中,相信很多人在有哪些Vbscript生成Excel报表的常用操作问题上存在疑惑,小编查阅了各式资料,整理出简单好用的
千家信息网最后更新 2024年09月23日有哪些Vbscript生成Excel报表的常用操作
这篇文章主要介绍"有哪些Vbscript生成Excel报表的常用操作",在日常操作中,相信很多人在有哪些Vbscript生成Excel报表的常用操作问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答"有哪些Vbscript生成Excel报表的常用操作"的疑惑有所帮助!接下来,请跟着小编一起来学习吧!
使用QTP自动化测试结束后,经常需要将测试结果写入Excel中,这里就把一些常用对Excel操作的方法进行归纳、整理,方便使用时查阅。支持Office Excel 2003版本,不支持2007版本。
Vbscript代码
On Error Resume Next Dim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheet FileName = "D:/Book1.xls" SheetName = "新建表" Text = "Hello QTP ! 你好, QuickTestProfessional !"Set ExcelApp = CreateObject("Excel.Application") Set ExcelBook= ExcelApp.Workbooks.Open(FileName) Set ExcelSheet = ExcelBook.Sheets.Add '插入工作表 'Set ExcelSheet = ExcelBook.Sheets.Item(SheetName) '获得指定工作表' *************** 对数据表的操作 *************** For i=1 To ExcelBook.Sheets.Count If ExcelBook.Sheets(i).Name=SheetName Then ExcelApp.DisplayAlerts=False ExcelBook.Sheets(i).Delete '删除工作表 ExcelApp.DisplayAlerts=True Exit For End If 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 Set ExcelBook = Nothing Set ExcelApp = Nothing SystemUtil.CloseProcessByName "Excel.exe" '如果仍有Excel.exe进程,可使用这句关闭进程 If Err.number>0 Then MsgBox Err.Description End If On Error GoTo 0
补充:
ExcelApp.DisplayAlerts = False '关闭兼容性检查ExcelBook = ExcelApp.Workbooks.Add '新建ExcelExcelSheet = ExcelBook.ActiveSheet '激活第一个表ExcelSheet.Columns("A:E").AutoFit() '设置A到E列自动调整列宽ExcelBook.SaveAs("D:\Book2.xls",FileFormat:=Excel.XLFileFormat.xlAddIn) '文件另存为
到此,关于"有哪些Vbscript生成Excel报表的常用操作"的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注网站,小编会继续努力为大家带来更多实用的文章!
单元
文字
批注
常用
报表
生成
样式
学习
工作
边框
调整
相同
两端
字体
效果
方向
方法
更多
水平
版本
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
网络安全精英赛题目
小程序服务器及域名
附加值贸易数据库
中兴软件开发累不累
万方数据库充值最少冲多少
网络安全方面有什么法
软件开发人员能力级别
如何解决网络安全问题议论文
软件开发采集模块
api的域名怎么设置服务器
怀旧服服务器自动远程升级
又一客网络技术有限公司
奉化敏捷软件开发项目管理
数据治理与网络安全研究
服务器odm证书
三级网络技术教程.pdf
网络安全的发展前景怎么样
网络技术试卷及答案B
怎么成为一个数据库工程师
创瑞网络技术有限公司
sql数据库心得
提升数据库实现安全性
家里电脑能做游戏服务器吗
牙科软件开发
香港云服务器安全吗
电脑成服务器
hr管理软件开发公司
网络安全法对关键
数据库对cpu核心要求高吗
直播电商app软件开发多少钱