excel 批量保存工作簿内的多个工作为单一文件

发布网友 发布时间：2022-04-23 03:16

我来回答

共3个回答

热心网友 时间：2023-10-13 02:16

右键点击左下角的工作表名称；

在弹出菜单里选择“移动或复制工作表”；

在弹出的对话框中的“工作簿”选项中选择“新工作簿”；

如果想在原文件里仍旧保存工作表，就勾选“建立副本”，不想保存就不勾选；

确定。

通过以上几个步骤，就会出现一个新的工作簿，里面只包含你刚刚复制过来的工作表。不过这个工作簿还需要你命名保存。

热心网友 时间：2023-10-13 02:17

Sub 宏1()
    Dim Sht As Worksheet
    Dim Pathw As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    Pathw = ActiveWorkbook.Path
    For Each Sht In ActiveWorkbook.Sheets
        Sht.Copy
        ActiveWorkbook.SaveAs Filename:=Pathw & "\" & Sht.Name & "-工作表.xls", FileFormat:=xlExcel8
        ActiveWorkbook.Close True
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

修改比自己写更麻烦，我自己写了个

分别复制工作簿内的各个工作表到当前目录下新工作簿，

新工作簿名以原工作簿中的工作表名为标准添加“-工作表”后缀

同时忽略，同名工作簿，自动替换。

热心网友 时间：2023-10-13 02:17

Sub SaveSheetAsWorkbook()
Dim theName As String
Dim bb As String
On Error GoTo Line1
For Each sht In ActiveWindow.SelectedSheets
bb = sht.Range("B3").Text
sht.Copy
theName = ThisWorkbook.Path & ThisWorkbook.Name & "_" & bb & ".xls"
ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormal
ActiveWindow.Close
Next
Line1:
End Sub