excel工作薄快速保存成多个文件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 17:52:51
比如199个人的简历分别保存在sheet2 sheet3 ......sheet100中，如何快速保存成99个excel文件，文件名采用工作表中的某个单元格的内容命名 ？
比如99个人的简历分别保存在sheet2 sheet3 ......sheet100中，如何快速保存成99个excel文件，文件名采用工作表中的某个单元格的内容命名 ？

刚才的提问里面的199应为99

xiaobo3152的回答不能删除其他工作表

Sub SaveSheet()
For Each ws In ThisWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ws.Name, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub

子易空间站 - 高效办公指导站

Sub 以指定单元内容为新文件名另存文件()
Dim i%
i=1
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets(i).[C7]
For i = 1 To 75
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets(i).[C7]
Next i
End Sub