在复制工作簿、删除所有宏(包括表单控件)以及粘贴到另一个没有删除公式的新工作簿时,可以使用以下代码:
Sub CopyWorkbook()
Dim srcWorkbook As Workbook
Dim destWorkbook As Workbook
' 打开源工作簿
Set srcWorkbook = Workbooks.Open("源工作簿路径")
' 复制源工作簿到新工作簿
srcWorkbook.Activate
srcWorkbook.Sheets.Copy
' 关闭源工作簿
srcWorkbook.Close SaveChanges:=False
' 获取新工作簿
Set destWorkbook = ActiveWorkbook
' 删除所有宏
destWorkbook.VBProject.VBComponents.Clear
' 保存新工作簿
destWorkbook.SaveAs "新工作簿路径"
' 关闭新工作簿
destWorkbook.Close SaveChanges:=True
End Sub
这段代码使用VBA语言编写,通过打开源工作簿、复制工作簿中的所有工作表到新工作簿,然后删除新工作簿中的所有宏,最后保存并关闭新工作簿。你需要将代码中的"源工作簿路径"替换为实际的源工作簿路径,将"新工作簿路径"替换为实际的新工作簿路径。
这段代码适用于Microsoft Excel软件,用于在复制工作簿时删除所有宏和表单控件,然后将工作簿粘贴到另一个新工作簿中,新工作簿中的公式将保留。这在需要复制工作簿内容但不需要宏和表单控件的情况下非常有用。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云