有哪些Vbscript生成Excel报表的常用操作
发表于:2025-02-19 作者:千家信息网编辑
千家信息网最后更新 2025年02月19日,这篇文章主要介绍"有哪些Vbscript生成Excel报表的常用操作",在日常操作中,相信很多人在有哪些Vbscript生成Excel报表的常用操作问题上存在疑惑,小编查阅了各式资料,整理出简单好用的
千家信息网最后更新 2025年02月19日有哪些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安全错误
数据库的锁怎样保障安全
上海智能化网络技术开发价目表
中央网络安全强调
何谓河南软件开发
我与网络安全作文1000字
软件开发四级英语要过吗
怎么做电脑数据库pc
网络安全教育知识内概括
移动网无法连接暗黑3服务器
软件开发系统检查什么项目
苏州软件开发培训机构
x5675配服务器内存条
海康道路智能终端服务器说明书
软件开发费用支出
h3c无线网络技术是干什么的
武隆网络安全宣传会
蓝鸽无盘服务器配置
中国外交数据库
网络安全宣传节目观后感200字
神通数据库国产机安装
阿里服务器架构
吴中区智能服务器价格咨询
软件开发一般毕业后都干几年
计算机软件开发需要的计量器具
本地域名服务器是本机吗
猴子图图软件开发版
关联服务器的网络接口
平安互联网AI科技
网络安全公约的英文
idea怎么连接云服务器项目
数据库文件 区