如何把全镇各个村的工作簿下的指定表独立出来

定敏

不知道为什么 发表于 2018-9-26 22:45
要不你把出错附件上传

好的
原表 - 副本.rar (711.64 KB, 下载次数: 15)

2018-9-26 22:52 上传

点击文件名下载附件

定敏

朱荣兴 发表于 2018-9-27 09:18
Sub 另存为()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

很好，谢谢朱版主。我根据实际需要作了些修改：即把原文件名的去掉5个长度改为9个字的长度，再把那根横线去掉，就很好了。
Sub 另存为()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
If f <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
Set sh = wb.Worksheets("岁段名册总表")
sh.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Left(Split(wb.Name, ".")(0), Len(Split(wb.Name, ".")(0)) - 9) & sh.Name & ".xlsx"
ActiveWorkbook.Close
wb.Close False
End If
f = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub