以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  遍历所有EXCEL工作表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126787)

--  作者:benwong2013
--  发布时间:2018/10/29 11:43:00
--  遍历所有EXCEL工作表
以下语句是工作表1的表,若要遍历所有工作表是如何表示;
 Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

--  作者:mdy321
--  发布时间:2018/10/29 12:54:00
--  
应该没有能存储工作表的类和集合,所以应该遍历不了,! 
--  作者:有点甜
--  发布时间:2018/10/29 13:06:00
--  

比如

 

For each Ws As object in Wb.WorkSheets

    msgbox(ws.name)

Next