VBS遍歷Excel工作表的方法
導讀 | 這篇文章主要介紹了VBS遍歷Excel工作表的實現程式碼,需要的朋友可以參考下 |
核心程式碼
'****************************************** '拖拽檔案,獲取檔案路徑 '****************************************** If wscript.Arguments.count=0 then msgbox "拖拽檔案到本圖示",0,"提示" End if for a=0 to wscript.Arguments.count-1 strPath=wscript.Arguments(a) next '****************************************** '定義Excle物件、工作薄物件、工作表物件 '****************************************** dim oExcel,oWb,oSheet set ws=WScript.createobject("wscript.shell") Set oExcel=CreateObject("Excel.Application") '開啟指定的工作簿 Set oWb=oExcel.Workbooks.Open(strPath) '顯示開啟的Excel工作簿 oExcel.visible=true '****************************************** '遍歷工作簿的所有工作表 '****************************************** for j= 1 to oWb.sheets.count set oSheet=oWb.Sheets(j) '選中並啟用工作表 oSheet.Activate oSheet.Range("A1")="成功" next
Excel遍歷所有工作簿中所有工作表執行宏
Sub test() n = Worksheets.Count For i = 1 To n Worksheets(i).Activate Macro1 Next End Sub
Macro1是宏的名稱
使用VBS遍歷EXCEL
Dim xlApp,xlSheet,xlWorkBookDim iRowCount,iLoop,jLoop,jColumnCount,numAdd Set xlApp=CreateObject("Excel.Application") xlApp.Visible=True Set xlWorkBook=xlApp.Workbooks.Open("C:\data.xls") Set xlSheet=xlWorkBook.Sheets("Sheet1") iRowCount=xlSheet.UsedRange.Rows.Count jColumnCount=xlSheet.UsedRange.Columns.Count For iLoop=1 To iRowCount For jLoop=1 To jColumnCount MsgBox(xlSheet.cells(iLoop,jLoop).value) Next Next xlWorkBook.Save xlWorkBook.Close xlApp.Quit
VBScript 編寫 自動Excel檔案內容到陣列並提示輸出
解壓到任意目錄,點選VBS檔案執行,程式自動讀取檔案所在目錄的Excel檔案到陣列中,並透過提示框逐個輸出,提示框1s自動關閉。
Dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open(dir&"\DataReport.xls") Set oSheet = oWb.Sheets("HistoryData") Dim i Dim a(150) For i = 5 To 145 '145-5+1 = 141 a(i-5) = oSheet.Range("B"&i).Value print "data=",a(i-5) next Set oSheet = Nothing oExcel.Workbooks.Close oExcel.Quit '關閉excel.exe' Function Dir() Set WshShell = CreateObject("Wscript.Shell") Dir = WshShell.CurrentDirectory End Function Function print (prompt,title) Set WshShell = CreateObject("Wscript.Shell") WshShell.Popup prompt &title,1,"" End Function
原文來自:
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/69955379/viewspace-2776438/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- jQuery 遍歷方法jQuery
- Python字典的遍歷,包括key遍歷/value遍歷/item遍歷/Python
- Java遍歷Map集合的方法Java
- java陣列遍歷的方法Java陣列
- js遍歷多重json的方法JSON
- VBA遍歷 Excel 合併到一個 Excel 檔案Excel
- 陣列遍歷方法陣列
- 記錄遍歷方法
- Excel2007工作表如何分視窗顯示?Excel2007工作表分視窗顯示的方法Excel
- JS遍歷物件的幾種方法JS物件
- 遍歷陣列的幾種方法陣列
- JavaScript中遍歷的幾種方法JavaScript
- Excel快速合併多張Excel工作表教程 Excel工作表怎麼合併?Excel
- javascript遍歷方法總結JavaScript
- JS遍歷方法總結JS
- JsonArray和JsonObject遍歷方法JSONObject
- 面試中很值得聊的二叉樹遍歷方法——Morris遍歷面試二叉樹
- js的map遍歷和array遍歷JS
- java中遍歷map的集中方法Java
- 二叉樹遍歷方法二叉樹
- JavaScript遍歷物件方法總結JavaScript物件
- 遍歷方法 js jquery 我 常用JSjQuery
- 陣列常見的遍歷迴圈方法、陣列的迴圈遍歷的效率對比陣列
- 遍歷陣列和物件的方法都有哪些?陣列物件
- js 跳出迴圈/結束遍歷的方法JS
- 泛型方法、初始集合和集合的遍歷泛型
- JS中陣列的遍歷方法(3種)JS陣列
- 【Java中遍歷Map物件的4種方法】Java物件
- 遍歷物件和陣列的方法總結物件陣列
- JavaScript中的12種迴圈遍歷方法JavaScript
- 遍歷物件鍵值對的兩種方法物件
- JS迴圈遍歷方法總結JS
- TDictionary 的 遍歷
- 如在 Java 中分割 Excel 工作表JavaExcel
- 如何遍歷 HashMap,遍歷HashMap 的 5 種最佳方式HashMap
- jQuery的遍歷結構設計之遍歷同胞jQuery
- jQuery的遍歷結構設計之遍歷祖先jQuery
- Python優雅遍歷字典刪除元素的方法Python