求助！如何将一个excel表格中的几个sheet拆分成单独的文件，并自动归进文件夹？

carolynzsh

求助各位Excel大神们！
现状说明如下：
1.共有几张Excel的表格，每个表格中都有N个sheet（有时候可能会有70-80个sheet）；
2.每个Sheet都是由“评***+姓名”的形式命名；
3.每个表格最前面都有一张说明的Sheet；
想要实现的情况：
1.将所有Sheet按照Sheet的名称拆分成单独的文件（但需要保留第一张说明的Sheet），即每个Excel文件出来的形式是“一张说明的Sheet“+一张个人的Sheet；
2.每个文件能自动归类到相同名字的文件夹中。

每次都是手动一张张录入+拆分，所以很耗时耗力，不知道哪位大神能够用技术帮忙解决下？感激不尽！

具体见附件。

lassiter

用循环语句编写呗，思路清晰了5分钟就编好了

carolynzsh

lassiter 发表于 2019-4-18 17:38
用循环语句编写呗，思路清晰了5分钟就编好了

对于这个真的完全不会啊～～能帮忙写一下吗？😢

b_57

Dim exl As Excel.Application
Dim Fpath As String
Set exl = ActiveWorkbook.Application
Fpath = ActiveWorkbook.Path & "\年终绩效考核-"
For i = 2 To exl.Sheets.Count

exl.Sheets(i).Select
exl.Sheets(i).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close True, Fpath & Sheets(1).Name & "\年终绩效考核-自评表.xlsx "
Application.DisplayAlerts = True
Next

名称你自己改，还有你每个sheet只保留AAA，BBB 这些名字，其他不要