你好,欢迎访问远方教程PC版!
广告位招租

VBA实现将每个工作表另存为单独的工作簿

[日期:2015-06-20]   来源:远方教程  作者:远方教程   阅读:3771次[字体: ] 访问[旧版]
 捐赠远方教程 

  一下代码实现将每个工作表另存为单独的工作簿,期中文件名和路径大家可以自己设置。

Sub 每个工作表另存为单独的工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"             '(保存路径为当前工作簿所在路径)
For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs ipath & sht.Name & ".xls"         '(工作表名称为文件名)
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

==============
以上代码是将每个工作表另存为单独的工作簿

图片展示
 
相关评论
站长推荐