如何用vba批量将一个excel文件中的多个工作表另存为的新工作薄(新excel文件)

里面有四个工作表,怎么利用增加的vba按钮,实现一键将前三个工作表分别另存为三个工作簿(三个Excel文件),另存的文件名称用工作表名称命名,文件保存在与原文件同个文件夹即可。注:只保留数值和排版格式,去除公式。

第1个回答  2018-10-23

答:

Sub Demo()
    Dim Sht As Worksheet
    Dim FilePath As String
    FilePath = ThisWorkbook.Path & "\"
    Application.ScreenUpdating = False
    For Each Sht In ThisWorkbook.Sheets
        If Not Sht.Name = "分析" Then
            With Sht
                .UsedRange.Value = .UsedRange.Value
                .Copy
            End With
            With ActiveWorkbook
                .SaveAs Filename:=FilePath & Sht.Name
                .Close
            End With
        End If
    Next Sht
    Application.ScreenUpdating = True
    MsgBox "导出完成"
End Sub

追问

.SaveAs Filename:=.....这行错误

.SaveAs Filename:=.....这行错误

本回答被网友采纳
相似回答