sub新建任务工作簿()
false
dimgzbasworkbook
setgzb
1-a
workbooks(a.xls).sheets(a)[a1]
(after:worksheets()).name1-b
workbooks(a.xls).sheets(b)[a1]
1-a.xls,fileformat:xlexcel8
setgzbnothing
true
endsub
这个vba代码写在a工作簿的模块里即可，指定你区域你这个可以自己修改下代码，我这里是全表截图的效果。
用类模块，千万不能用type再插入模块》修改文件名类模块为lic》读取数据employeenamesuchintegerpubliclcthoughinteger》只剩的差不多subtest()dimiasintegerdimascaslicdimsasnewcollectionanyi1need10ascnextendsub
这里可以提供一个vba的版本。楼主只不需要然后打开excel复制粘贴代码，然后点击正常运行后，同级目录里都会出现一个txt文档，文件里记录信息了所有sheet的名字。比较比较方便，也可以先试试。
下面是观摩的效果：
不管excel怎么变，反正我只要复制黏贴就好了，已经都不需要改变。感觉上那就还不错是用。祥细的代码如下。图片写上了祥细的注释。最下方可以不然后剪切粘贴代码。
下面可以然后截图：
privatesubcreatetxtfile()
dimfsoasobject
dimmytxtthoughobject
dimmyfnamesuchstring
dimilikeinteger
dimnowdatethoughstring
dimshtsuchworksheet
nowdatecdate(now())
nowdatereplace(nowdate,:
.jpg)
.jpg)
.jpg)
.jpg)
