Question

怎样用批处理批量修改excel表格文件名_如何快速将excel中各表单单独提取出来

1、怎样用批处理批量修改excel表格文件名 ？ 2、如何快速将excel中各表单单独提取出来？
第1个问题，我知道如何用ren 批处理来修改文件名，但表单名我就不知道了；
第2个问题，不是要那种选一个表单，后键—移动或复制的那种慢方法。
求各位大神给出解答，跪谢！！！

Answer 1

第一个问题不用说了。

第二个问题：自定义名称，工作表名=GET.WORKBOOK(1)
然后用函数A1=INDEX(工作表名,ROW())，向下拉公式即可，多了文件名称，用mid去出表名即可。

追问

......大神，我听不明白....

追答

=GET.WORKBOOK(1) 函数是个宏函数，不能直接使用，要到“名称管理器”（2007及以上版本，2003也有，好像是自定义名称）里面进行自定义

然后在用函数A1=INDEX(工作表名,ROW())

追问

大神，我错了，请原谅我，我表达错了....╮(╯_╰)╭，Orz.......

我的意思是，我有一张excel工作薄，里面有10张工作表，我要把它们分别提取出来，形成10个excel工作薄....

追答

Sub SaveToWbk()
Dim sht As Worksheet

For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub
按alt + f11,
双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴代码。运行。等候一会就OK了

Answer 2

1052974911@qq.com