[已解决]如何使工作簿里的任意一张工作表另存？

ULCY

如何保存任意一张工作表？意思是说使一张工作表保存为一个工作簿

最佳答案

月排行榜 / 总排行榜

wayy

2011-1-22 17:34

右键单击工作表标签，移动或复制工作表，勾选副本，工作簿选新建，保存一下就可以了。

跳转到最佳答案楼层

omnw

Private Sub 分拆工作表()
    Dim sht As Worksheet
    Dim MyBook As Workbook
    Set MyBook = ActiveWorkbook
    For Each sht In MyBook.Sheets
        sht.Copy
        ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
        ActiveWorkbook.Close
    Next
    MsgBox "文件已经被分拆完毕!"
End Sub

wayy

右键单击工作表标签，移动或复制工作表，勾选副本，工作簿选新建，保存一下就可以了。

ULCY

WAYY老师给出的答案正是我想要的，简单。

yimeng5132

学习学习！