注意:保存文件的名称不要重复
Sub 拆分工作表()
For Each sht In ThisWorkbook.Worksheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & sht.Name & ".xlsx"
Next
End Sub
注意:保存文件的名称不要重复
Sub 拆分工作表()
For Each sht In ThisWorkbook.Worksheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & sht.Name & ".xlsx"
Next
End Sub
本文标题:excel拆分工作表
本文链接:https://www.haomeiwen.com/subject/igsmdltx.html
网友评论