自动化VBS操作EXCEL和WORD

1、自动化 VBS操作EXCEL禾口 WORD*'Excel操作*'定义Excel对象'xIsApp Excel应用程序对象'xlsWork Excel工作簿对象*Dim xlsApp,xlsWork'示例：调用获取excel当前路径并获取表中的使用的行数和列数filepath = getpath() & "TestFramework.xls"MsgBox filepathxlsOpe n( filepath)xlsWork.WorkSheets("example").ActivateMsgBox "

2、表中总共有 ” & xlsWork.WorkSheets("example").usedrange.rows.count &"行"'获取excel表中的所有使用行MsgBox "表中总共有"&xlsWork.WorkSheets("example").usedrange.columns.count & "列"'获取 excel 表中的所有使用列xlsClose()'获取当前应用程序路径，把excel放到这个路径下以后就可以不用管路径问题了

3、fun cti on getpath()dim wsheelSet wsheel=wscript.createobject("wscript.shell")getpath=wsheel.currentdirectory & ""End Fun cti on*'函数名称：xlsOpen'函数功能：打开Excel工作簿'参数1: fileName Excel文件名称(包括路径)'/*参数2: sheetName Excel工作表名称*/'返回值：无*Sub xlsOpe n(fileName)On Error

4、Resume Next '遇见错误继续运行程序Set xlsApp = CreateObject("Excel.Applicatio n")'创建应用程序对象Set xlsWork = xlsApp.WorkBooks.ope n(fileName)'设置打开文件的对象'xlsWork.WorkSheets(sheetName) .A ctivate'设置当前活动的工作表'如果有错误则关闭Excel程序If ERR.Number<>0 The nMsgBox "asdf"Call xlsClos

5、e()End IfOn error goto 0End Sub*'函数名称：xlsRead'函数功能：读取Excel表格中指定单元格的数据'参数1: sheetName 工作表名称'参数2: row单元格所在行'参数3: col单元格所在列'返回值：当前单元格的数据*Fun cti on xlsRead(sheetName,row,col)On Error Resume n extxlsRead = xlsWork.WorkSheets(sheetName).Cells(row,col).Value'如果有错误则关闭Excel程序If E

6、RR.Number<>0 The nCall xlsClose()'Err.Clear()End IfOn error goto 0End Fun cti on*'函数名称：xlsWrite'函数功能：写入数据到指定的 Excle单元格'参数1: sheetName 工作表名称'参数2: row单元格所在行'参数3: col单元格所在列'参数4: val要写入到单元格的数据'返回值：无*Fun cti on xlsWrite(sheetName,row,col,val)On Error Resume n extxlsW

7、ork.WorkSheets(sheetName).Cells(row,col).Value = val'如果有错误则关闭Excel程序If ERR.Number<>0 The nCall xlsClose()End IfOn error goto 0End Fun cti on *'函数名称：xlsSave'函数功能：保存Excel工作簿数据'参数：无'返回值：无*Sub xlsSave()On Error Resume n extxlsWork.Save'xIsWork.SaveAs "C:aa.xls"

8、9;另存为一个新文件'如果有错误则关闭Excel程序If ERR.Number<>0 The nCall xlsClose()End IfOn error goto 0End Sub*'函数名称：xlsClose'函数功能：关闭Excel工作簿'参数：无'返回值：无*Sub xlsClose()'关闭对象xlsWork.ClosexIsApp.WorkBooks.Close'清空对象Set xlsWork = Nothi ngSet xlsApp = Noth ingEnd Sub*'word操作*'定义 wo

9、rd 对象'docApp word应用程序对象'docWork word文档对象*Dim docApp,docWord*'函数名称：docCreate'函数功能：创建word文档'参数：无'返回值：无*Fun cti on docCreate()On Error Resume NextSet docApp = CreateObject("Word.Applicatio n")Set docWord = docApp.Docume nts.Add()'如果有错误则关闭Word程序If ERR.Number<>

10、0 The nCall docClose()End IfOn error goto 0End Fun cti on*'函数名称：docWrite'函数功能：向word文档中写入数据'参数1: val要写入的数据'参数2: dataType写入数据的类型，text代表文本，bmp代表图像'返回值：无*Function docWrite(val,dataType)On Error Resume NextSelect Case dataTypeCase "text"docApp.Selecti on. TypeText valCase &q

11、uot;bmp"docApp.Selectio n.In li neShapes.AddPicture val,false,trueEnd Select'如果有错误则关闭Word程序If ERR.Number<>0 The nCall docClose()End IfOn error goto 0End Fun cti on*'函数名称：docSave'函数功能：保存word文档'参数：fileName保存的文件路径以及名称'返回值：无*Fun cti on docSave(fileName)On Error Resume NextdocWord.SaveAs fileName'如果有错误则关闭Word程序If ERR.Number<>0 The nCall docClose()End IfOn error goto 0End Fun cti on*'函数名称：docClose