2022年自动化VBS操作EXCEL和WORD .pdf

《2022年自动化VBS操作EXCEL和WORD .pdf》由会员分享，可在线阅读，更多相关《2022年自动化VBS操作EXCEL和WORD .pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、自动化 VBS 操作 EXCEL 和 WORD * Excel 操作* 定义 Excel 对象 xlsApp Excel 应用程序对象 xlsWork Excel 工作簿对象*Dim xlsApp,xlsWork-示例：调用获取excel 当前路径并获取表中的使用的行数和列数filepath = getpath() & TestFramework.xlsMsgBox filepathxlsOpen(filepath)xlsWork.WorkSheets(example).ActivateMsgBox 表中总共有 & xlsWork.WorkSheets(example).usedrange.r

2、ows.count & 行 获取 excel 表中的所有使用行MsgBox 表中总共有 & xlsWork.WorkSheets(example).usedrange.columns.count & 列 获取 excel 表中的所有使用列xlsClose()-获取当前应用程序路径 ,把 excel 放到这个路径下以后就可以不用管路径问题了function getpath()dim wsheelSet wsheel=wscript.createobject(wscript.shell)getpath=wsheel.currentdirectory & End Function* 函数名称： xl

3、sOpen 函数功能：打开 Excel 工作簿 参数 1：fileName Excel 文件名称 (包括路径 ) /*参数 2：sheetName Excel工作表名称 */ 返回值：无*Sub xlsOpen(fileName)On Error Resume Next 遇见错误继续运行程序Set xlsApp = CreateObject(Excel.Application) 创建应用程序对象Set xlsWork = xlsApp.WorkBooks.open(fileName) 设置打开文件的对象xlsWork.WorkSheets(sheetName).Activate 设置当前活动的

4、工作表如果有错误则关闭Excel 程序名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 5 页 - - - - - - - - - If ERR.Number0 Then MsgBox asdf Call xlsClose()End IfOn error goto 0End Sub* 函数名称： xlsRead 函数功能：读取 Excel 表格中指定单元格的数据 参数 1：sheetName 工作表名称 参数 2：row 单元格所在行 参数 3：col 单元格所在列 返回值

5、：当前单元格的数据*Function xlsRead(sheetName,row,col)On Error Resume nextxlsRead = xlsWork.WorkSheets(sheetName).Cells(row,col).Value如果有错误则关闭Excel 程序If ERR.Number0 Then Call xlsClose() Err.Clear()End IfOn error goto 0End Function* 函数名称： xlsWrite 函数功能：写入数据到指定的Excle 单元格 参数 1：sheetName 工作表名称 参数 2：row 单元格所在行 参数

6、 3：col 单元格所在列 参数 4：val 要写入到单元格的数据 返回值：无*Function xlsWrite(sheetName,row,col,val)On Error Resume nextxlsWork.WorkSheets(sheetName).Cells(row,col).Value = val如果有错误则关闭Excel 程序If ERR.Number0 Then Call xlsClose()End IfOn error goto 0End Function名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精

7、心整理 - - - - - - - 第 2 页，共 5 页 - - - - - - - - - * 函数名称： xlsSave 函数功能：保存 Excel 工作簿数据 参数：无 返回值：无*Sub xlsSave()On Error Resume nextxlsWork.SavexlsWork.SaveAs C:aa.xls 另存为一个新文件如果有错误则关闭Excel 程序If ERR.Number0 Then Call xlsClose()End IfOn error goto 0End Sub* 函数名称： xlsClose 函数功能：关闭 Excel 工作簿 参数：无 返回值：无*Sub

8、 xlsClose()关闭对象xlsWork.ClosexlsApp.WorkBooks.Close清空对象Set xlsWork = NothingSet xlsApp = NothingEnd Sub* word 操作* 定义 word 对象 docApp word 应用程序对象 docWork word 文档对象*Dim docApp,docWord* 函数名称： docCreate 函数功能：创建 word 文档名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 5

9、页 - - - - - - - - - 参数：无 返回值：无*Function docCreate()On Error Resume NextSet docApp = CreateObject(Word.Application)Set docWord = docApp.Documents.Add()如果有错误则关闭Word 程序If ERR.Number0 Then Call docClose()End IfOn error goto 0End Function* 函数名称： docWrite 函数功能：向 word 文档中写入数据 参数 1：val 要写入的数据 参数 2：dataType

10、写入数据的类型， text 代表文本， bmp 代表图像 返回值：无*Function docWrite(val,dataType)On Error Resume NextSelect Case dataType Case textdocApp.Selection.TypeText val Case bmpdocApp.Selection.InlineShapes.AddPicture val,false,trueEnd Select如果有错误则关闭Word 程序If ERR.Number0 Then Call docClose()End IfOn error goto 0End Functi

11、on* 函数名称： docSave 函数功能：保存 word 文档 参数： fileName 保存的文件路径以及名称 返回值：无*Function docSave(fileName)On Error Resume Next名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 5 页 - - - - - - - - - docWord.SaveAs fileName如果有错误则关闭Word 程序If ERR.Number0 Then Call docClose()End IfOn

12、 error goto 0End Function* 函数名称： docClose 函数功能：关闭 word 文档 参数：无 返回值：无*Function docClose()关闭工作文档并退出Word 应用程序docWord.closedocApp.Quit清空对象Set docWord=nothingSet docApp=nothingEnd Function* QTP 对象操作* 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 5 页 - - - - - - - - -