一个excel中有很多工作表,怎么拆分,就是每个只有一个工作表excel

发布网友发布时间：2022-05-01 13:25

共1个回答

热心网友时间：2023-10-14 22:54

sub 拆分工作簿 ( ) dim fd as filedialog,path as string ,sht as worksheet set fd=application.filedialog(msofiledialogfolderpicker) if fd.show=-1 then path= fd.selectionitems(1)&iff(right(fd.selecteditems(1),1)="\","","\") else :exit sub end iffor each sht in sheetssht.copyactiveworkbook.saveas path&sht.name,xlworkbookdefaultactivework.closenext shtend sub

热心网友时间：2023-10-14 22:54

sub 拆分工作簿 ( ) dim fd as filedialog,path as string ,sht as worksheet set fd=application.filedialog(msofiledialogfolderpicker) if fd.show=-1 then path= fd.selectionitems(1)&iff(right(fd.selecteditems(1),1)="\","","\") else :exit sub end iffor each sht in sheetssht.copyactiveworkbook.saveas path&sht.name,xlworkbookdefaultactivework.closenext shtend sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com