用VBA另存指定工作表为新的工作簿文件时，如何删除新工作薄中的宏代码

曙光电子 · 发表于 2012-2-14 11:03

dsmch 发表于 2010-8-27 08:46

这是我以前一直在用的代码提交出来供大家研究,请先在D盘建一个凭证保存文件夹(存盘和名字可改变)
Sub 凭证另存并删除宏代码()
Dim i As Integer
Dim codeLines As Integer
Dim shtName As String

shtName = "Sheet1"
ThisWorkbook.Worksheets(shtName).Copy
codeLines = ActiveWorkbook.VBProject.VBComponents(shtName).CodeModule.CountOfLines
ActiveWorkbook.VBProject.VBComponents(shtName).CodeModule.DeleteLines 1, codeLines
   ActiveWorkbook.SaveAs Filename:="D:\备份\凭证" & Format(Now, "YYYY-MM-DD-HHmmSS") & ".xls", _
      FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
      ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub

曙光电子 · 发表于 2012-2-14 11:08

我上面的帐子特点是存盘位置可任意选,存盘文件是不复盖先存的文件,所存文件名是以日期时间自动命名的

molihim · 发表于 2012-6-15 09:08

用得上，学习了

poongsan · 发表于 2012-6-23 23:12

试试看如何先，记号记号

qinhuan66 · 发表于 2013-4-15 13:24

好好学习天天向上

zhangzhenxia · 发表于 2013-9-29 20:02

学习了，备用。

shenghua8 · 发表于 2013-11-19 19:29

只要这一句：

Sheets.Copy

复制代码

Albert128 · 发表于 2014-1-21 23:12

今天正好用上

dsmch · 发表于 2014-1-21 23:29

补充17楼代码，并附上附件，按alt+f8执行代码
Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
f = "新建工作簿.xls"
Sheets.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & f
Workbooks(f).Close 1
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

godtale · 发表于 2016-2-18 21:56

请问如何才能完成另存新文件不带宏代码和宏功能？

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

[求助] 用VBA另存指定工作表为新的工作簿文件时，如何删除新工作薄中的宏代码