欢迎光临
我们一直在努力

【Excel】怎么将Excel的每个工作表都保存为一个独立的文件

前面将工作表根据条件拆分成多个工作表,但一个Excel文件里工作表太多也不是很方便,接下来我们需要把这个文件按照工作表分拆一下。

操作步骤:

1、

2、在弹出的窗口中粘贴以下代码(注:代码中的引号都是英文半角,若提示语法不正确,请手动修改下

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

如图:

3、单击 运行–运行子过程/用户窗体

4、等待运行完毕。

赞(0) 打赏
未经允许不得转载:天天网站(爱天天分享) » 【Excel】怎么将Excel的每个工作表都保存为一个独立的文件

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏