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

Question

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

Answer 1

答：

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:=.....这行错误

本回答被网友采纳