自動化VBS操作EXCEL和WORD

1、自動化VBS操作EXCEL和WORD*'Excel操作(*'定義Excel對象'xlsAppExcel應(yīng)用程序?qū)ο?#39;xlsWorkExcel工作簿對象*DimxlsApp,xlsWork''示例：調(diào)用獲取excel當(dāng)前路徑并獲取表中的使用的行數(shù)和列數(shù)filepath=getpath()&"TestFramework.xls"MsgBoxfilepathxlsOpen(filepath)xlsWork.WorkSheets("example").ActivateMsgBox"表中總共有&qu

2、ot;&xlsWork.WorkSheets("example").usedrange.rows.count&"行"'獲取excel表中的所有使用行MsgBox"表中總共有"&xlsWork.WorkSheets("example").usedrange.columns.count&"歹！J"'獲取excel表中的所有使用列xlsClose()'獲取當(dāng)前應(yīng)用程序路徑，把excel放到這個路徑下以后就可以不用管路徑問題了functionget

3、path()dimwsheelSetwsheel=wscript.createobject("wscript.shell")getpath=wsheel.currentdirectory&""EndFunction*'函數(shù)名稱：xlsOpen'函數(shù)功能：打開Excel工作簿'參數(shù)1:fileNameExcel文件名稱(包括路徑)'/*參數(shù)2：sheetNameExcel工作表名稱*/'返回值：無*SubxlsOpen(fileName)OnErrorResumeNext'遇見錯誤繼續(xù)運行程序Setx

4、lsApp=CreateObject("Excel.Application")'創(chuàng)建應(yīng)用程序?qū)ο骃etxlsWork=xlsApp.WorkBooks.open(fileName)'設(shè)置打開文件的對象'xlsWork.WorkSheets(sheetName).Activate'設(shè)置當(dāng)前活動的工作表如果有錯誤則關(guān)閉Excel程序IfERR.Number<>0ThenMsgBox"asdf"CallxlsClose()EndIfOnerrorgoto0EndSub'*'函數(shù)名稱：xlsRead函數(shù)

5、功能：讀取Excel表格中指定單元格的數(shù)據(jù)'參數(shù)1:sheetName工作表名稱'參數(shù)2：row單元格所在行參數(shù)3:col單元格所在列'返回值：當(dāng)前單元格的數(shù)據(jù)'*FunctionxlsRead(sheetName,row,col)OnErrorResumenextxlsRead=xlsWork.WorkSheets(sheetName).Cells(row,col).Value如果有錯誤則關(guān)閉Excel程序IfERR.Number<>0ThenCallxlsClose()'Err.Clear()EndIfOnerrorgoto0EndFun

6、ction'*'函數(shù)名稱：xlsWrite函數(shù)功能：寫入數(shù)據(jù)到指定的Excle單元格'參數(shù)1:sheetName工作表名稱'參數(shù)2：row單元格所在行參數(shù)3:col單元格所在列'參數(shù)4：val要寫入到單元格的數(shù)據(jù)'返回值：無'*FunctionxlsWrite(sheetName,row,col,val)OnErrorResumenextxlsWork.WorkSheets(sheetName).Cells(row,col).Value=val如果有錯誤則關(guān)閉Excel程序IfERR.Number<>0ThenCallxlsC

7、lose()EndIfOnerrorgoto0EndFunction*'函數(shù)名稱：xlsSave'函數(shù)功能：保存Excel工作簿數(shù)據(jù)'參數(shù)：無'返回值：無,*SubxlsSave()OnErrorResumenextxlsWork.Save'xlsWork.SaveAs"C:aa.xls"'另存為一個新文件如果有錯誤則關(guān)閉Excel程序IfERR.Number<>0ThenCallxlsClose()EndIfOnerrorgoto0EndSub,*'函數(shù)名稱：xlsClose'函數(shù)功能：關(guān)閉Exc

8、el工作簿'參數(shù)：無'返回值：無,*SubxlsClose()'關(guān)閉對象xlsWork.ClosexlsApp.WorkBooks.Close'清空對象SetxlsWork=NothingSetxlsApp=NothingEndSub,*'word操作,*,*'定義word對象'docAppword應(yīng)用程序?qū)ο?#39;docWorkword文檔對象,*DimdocApp,docWord,*'函數(shù)名稱：docCreate'函數(shù)功能：創(chuàng)建word文檔'參數(shù)：無,返回值：無,*FunctiondocCreate()On

9、ErrorResumeNextSetdocApp=CreateObject("Word.Application")SetdocWord=docApp.Documents.Add()如果有錯誤則關(guān)閉Word程序IfERR.Number<>0ThenCalldocClose()EndIfOnerrorgoto0EndFunction,*'函數(shù)名稱：docWrite'函數(shù)功能：向word文檔中寫入數(shù)據(jù)'參數(shù)1:val要寫入的數(shù)據(jù)'參數(shù)2：dataType寫入數(shù)據(jù)的類型，text代表文本，bmp代表圖像'返回值：無,*Functi

10、ondocWrite(val,dataType)OnErrorResumeNextSelectCasedataTypeCase"text"docApp.Selection.TypeTextvalCase"bmp"docApp.Selection.InlineShapes.AddPictureval,false,trueEndSelect如果有錯誤則關(guān)閉Word程序IfERR.Number<>0ThenCalldocClose()EndIfOnerrorgoto0EndFunction,*'函數(shù)名稱：docSave'函數(shù)功能：保存word文檔'參數(shù)：fileName保存的文件路徑以及名稱'返回值：無,*FunctiondocSave(fileName)OnErrorResumeNextdocWord.SaveAsfileName如果有錯誤則關(guān)閉Word程序IfERR.Number<>0ThenCalldocClose()EndIfOnerrorgoto0EndFunction,*'函數(shù)名稱：docClose&#