如何用vba批量将一个excel文件中的多个工作表另存为的新工作薄(新excel文件) 5
里面有四个工作表,怎么利用增加的vba按钮,实现一键将前三个工作表分别另存为三个工作簿(三个Excel文件),另存的文件名称用工作表名称命名,文件保存在与原文件同个文件夹...
里面有四个工作表,怎么利用增加的vba按钮,实现一键将前三个工作表分别另存为三个工作簿(三个Excel文件),另存的文件名称用工作表名称命名,文件保存在与原文件同个文件夹即可。注:只保留数值和排版格式,去除公式。
展开
展开全部
答:
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:=.....这行错误
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询