关于excel如何将一个工作薄中的工作表生成独立的工作薄的问题

发布网友发布时间：2022-04-24 09:19

共3个回答

热心网友时间：2023-10-09 07:23

Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.range("a2") & ".xls" '(A2单元格内容为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

热心网友时间：2023-10-09 07:24

　　sht.Copy
ActiveWorkbook.SaveAs ipath & sht.range("a2") & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close

热心网友时间：2023-10-09 07:24

ActiveWorkbook.SaveAs ipath & sht.[A2] & ".xls"

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com