请高人对这行代码进行完善下！

2001927f

1. Sub fenjiesheet()
   
2. Application.ScreenUpdating = 0
   
3. N = ThisWorkbook.Name
   
4. For i = 1 To Sheets.Count - 1
   
5. ActiveSheet.Move
   
6. Workbooks(N).Activate
   
7. Next
   
8. End Sub

复制代码

上面的这几行代码可以在电子表格的VBA内将一个表格内的若干个“簿”拆开成独立的一个电子表格文件，但是现在有一个小缺陷就是，拆开的“薄”成为一个独立电子表格的时候，名字是默认从1至N，我希望可以自动提取“薄”上的默认名字呀！例如一个电子表格里面的“薄”名字分别为“2014年度、2015年度、2016年度、2017年度、汇总表”我想通过以上VBA可以自动将这几个“薄”的名字直接命名为独立电子表格的文件名字

liulang0808

楼主最好上传附件说明问题
Sub fenjiesheet()
Application.ScreenUpdating = 0
N = ThisWorkbook.Name
For i = 1 To Sheets.Count - 1
Workbooks(N).sheets(i).copy

Next
End Sub

2001927f

liulang0808 发表于 2017-8-29 07:39
楼主最好上传附件说明问题
Sub fenjiesheet()
Application.ScreenUpdating = 0

你好，您能在语句后面写个中文含义的意思吗？

liulang0808

2001927f 发表于 2017-9-4 09:57
你好，您能在语句后面写个中文含义的意思吗？

Sub fenjiesheet()
Application.ScreenUpdating = 0
N = ThisWorkbook.Name '获取当前代码所在工作薄名称
For i = 1 To Sheets.Count - 1'遍历当前工作薄从第一张到最后一张工作表序号
Workbooks(N).sheets(i).copy'对工作表进行拷贝操作，生成新文件

Next
End Sub