【求助】如何通过VBA实现将一个工作簿中多个指定工作表另存为一个无公式的新工作簿

zhaogang1960 · 发表于 2014-2-7 19:42

yifei1357 发表于 2014-2-7 19:37
还得麻烦一下，可否保留工作表表头的图片，打印要用到。

复制代码

yifei1357 · 发表于 2014-2-7 20:41

zhaogang1960 发表于 2014-2-7 19:42

麻烦再给加个另存时可以自选路径的代码吧，十分感谢

zhaogang1960 · 发表于 2014-2-7 21:20

yifei1357 发表于 2014-2-7 20:41
麻烦再给加个另存时可以自选路径的代码吧，十分感谢

Sub Macro1()
Dim sh As Worksheet, m&
f = Application.GetSaveAsFilename("备份", fileFilter:="Microsoft Excel Files (*.xls),*.xls")
If f = False Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.Visible = xlSheetVisible And sh.Name <> "首页" Then
m = m + 1
If m = 1 Then sh.Select Else sh.Select False
End If
Next
ActiveWindow.SelectedSheets.Copy
For Each sh In Worksheets
sh.Unprotect ("000000")
With sh.UsedRange
.Value = .Value
End With
sh.Protect ("000000")
Next
ActiveWorkbook.Close True, f
Sheets("首页").Select
Application.ScreenUpdating = True
MsgBox "保存完毕"
End Sub

复制代码

zhaogang1960 · 发表于 2014-2-7 21:26

请测试附件

111.rar (448.79 KB, 下载次数: 862)

yifei1357 · 发表于 2014-2-7 21:46

zhaogang1960 发表于 2014-2-7 21:26
请测试附件

完美解决，十分感谢！

walrf · 发表于 2014-8-10 18:24

那要是除首页还想再有一个表，也就是两个或多个表不需要另存，宏怎么变化。

501888521 · 发表于 2015-7-9 10:48

学习了！非常好的方法

xiapukongtiao · 发表于 2016-4-7 23:38

非常感谢。

追忆083 · 发表于 2016-6-12 15:25

非常感谢，找了很久了，还可以自己删除加密和“首页”相关代码

ndyzx · 发表于 2016-9-11 22:21

zhaogang1960 发表于 2014-2-7 18:09

简直是神，还加破解。

		自动登录	找回密码
密码			免费注册

[求助] 【求助】如何通过VBA实现将一个工作簿中多个指定工作表另存为一个无公式的新工作簿