核心代码
'****************************************** '拖拽文件,获取文件路径 '****************************************** 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
为了方便学习特将代码打包提供下载 下载地址
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
暂无评论...
更新日志
2024年05月20日
2024年05月20日
- 林一峰2017-绝对清白2CD[香港首版][WAV+CUE
- 石凯《数星一整夜》[320K/MP3][44.18MB]
- 石凯《数星一整夜》[24bit 48kHz][FLAC/分轨][395.49MB]
- 邰正宵《重燃爱恋 贰 Walk On》[320K/MP3][158.71MB]
- 林一峰2003-床头歌[华纳][WAV+CUE]
- 张琍敏1983-又见牵手[台湾留声复刻版][WAV+CUE]
- 张琍敏1978-雪中莲[台湾复刻版][WAV+CUE]
- 叶蕴仪1993-睡美人[日本版][WAV+CUE]
- 夜晚助兴音乐-群星《新时代床头音乐-性能量》2CD[WAV]
- 24K德国HD金碟《历届奥斯卡获奖金曲》3CD[WAV整轨]
- 邰正宵《重燃爱恋 贰 Walk On》[FLAC/分轨][431.72MB]
- 苏文劭《雨停出来走走》[320K/MP3][81.11MB]
- 苏文劭《雨停出来走走》[FLAC/分轨][210.76MB]
- 群星《2024好听新歌04》十倍音质WAV分轨
- 陈宁《弹指之间HQ》头版限量[低速原抓WAV+CUE]