excel 如何用 vba 批量提取指定工作表
发布网友
发布时间：2022-04-21 02:57
共1个回答
热心网友
时间：2023-07-15 06:53
放在thisbook的workbook的open方法下。
dim n as integer
dim names
names=""
for n=1 to worksheets().count-1
if worksheets(n).name like "(2)" then names=names&worksheets(n).name&char(13)
next n
msgbox names追问额 这个没用过 用过模块 这个怎么用。。。
追答把程序体放在一个过程中如下：
pubic sub name_s()
dim n as integer
dim names
names=""
for n=1 to worksheets().count-1
if worksheets(n).name like "(2)" then names=names&worksheets(n).name&char(13)
next n
msgbox names
end sub
然后 在使用时调用 call name_s()即可
