• 售前

  • 售后

热门帖子
入门百科

VBS遍历Excel工作表的实现代码

[复制链接]
杨柳657 显示全部楼层 发表于 2021-8-19 19:20:43 |阅读模式 打印 上一主题 下一主题
焦点代码
  1. '******************************************
  2. '拖拽文件,获取文件路径
  3. '******************************************
  4. If wscript.Arguments.count=0 then
  5.                 msgbox "拖拽文件到本图标",0,"提示"
  6. End if
  7. for a=0 to wscript.Arguments.count-1
  8.         strPath=wscript.Arguments(a)       
  9.        
  10. next
  11. '******************************************
  12. '定义Excle对象、工作薄对象、工作表对象
  13. '******************************************
  14. dim oExcel,oWb,oSheet
  15. set ws=WScript.createobject("wscript.shell")
  16. Set oExcel=CreateObject("Excel.Application")
  17. '打开指定的工作簿
  18. Set oWb=oExcel.Workbooks.Open(strPath)
  19. '显示打开的Excel工作簿
  20. oExcel.visible=true
  21. '******************************************
  22. '遍历工作簿的所有工作表
  23. '******************************************
  24. for j= 1 to oWb.sheets.count
  25.         set oSheet=oWb.Sheets(j)
  26.         '选中并激活工作表
  27.         oSheet.Activate
  28.         oSheet.Range("A1")="成功"
  29. next
复制代码
Excel遍历所有工作簿中所有工作表实行宏
  1. Sub test()
  2. n = Worksheets.Count
  3. For i = 1 To n
  4. Worksheets(i).Activate
  5. Macro1
  6. Next
  7. End Sub
复制代码
Macro1是宏的名称
使用VBS遍历EXCEL
  1. Dim xlApp,xlSheet,xlWorkBookDim iRowCount,iLoop,jLoop,jColumnCount,numAdd
  2. Set xlApp=CreateObject("Excel.Application")
  3. xlApp.Visible=True
  4. Set xlWorkBook=xlApp.Workbooks.Open("C:\data.xls")
  5. Set xlSheet=xlWorkBook.Sheets("Sheet1")
  6. iRowCount=xlSheet.UsedRange.Rows.Count
  7. jColumnCount=xlSheet.UsedRange.Columns.Count
  8. For iLoop=1 To iRowCount
  9. For jLoop=1 To jColumnCount
  10. MsgBox(xlSheet.cells(iLoop,jLoop).value)
  11. Next
  12. Next
  13. xlWorkBook.Save
  14. xlWorkBook.Close
  15. xlApp.Quit
复制代码
VBScript 编写 自动Excel文件内容到数组并提示输出
解压到任意目次,点击VBS文件实行,程序自动读取文件地点目次的Excel文件到数组中,并通过提示框逐个输出,提示框1s自动关闭。
  1. Dim oExcel,oWb,oSheet
  2. Set oExcel= CreateObject("Excel.Application")
  3. Set oWb = oExcel.Workbooks.Open(dir&"\DataReport.xls")
  4. Set oSheet = oWb.Sheets("HistoryData")      
  5. Dim i
  6. Dim a(150)
  7. For i = 5 To 145 '145-5+1 = 141
  8. a(i-5) = oSheet.Range("B"&i).Value
  9. print "data=",a(i-5)
  10. next
  11. Set oSheet = Nothing
  12. oExcel.Workbooks.Close
  13. oExcel.Quit '关闭excel.exe'
  14. Function Dir()
  15. Set WshShell = CreateObject("Wscript.Shell")
  16. Dir = WshShell.CurrentDirectory
  17.        
  18. End Function
  19. Function print (prompt,title)
  20. Set WshShell = CreateObject("Wscript.Shell")
  21. WshShell.Popup prompt &title,1,""
  22. End Function
复制代码
为了方便学习特将代码打包提供下载 下载地点

帖子地址: 

回复

使用道具 举报

分享
推广
火星云矿 | 预约S19Pro,享500抵1000!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

草根技术分享(草根吧)是全球知名中文IT技术交流平台,创建于2021年,包含原创博客、精品问答、职业培训、技术社区、资源下载等产品服务,提供原创、优质、完整内容的专业IT技术开发社区。
  • 官方手机版

  • 微信公众号

  • 商务合作