我想将一张工作表从 ActiveWorkbook 复制到New创建了工作簿。
新创建的工作簿将包含复制的工作表ONLY.
我也不希望在复印纸张时打开它。我想将工作表静默复制到新创建的工作簿中。
如果我执行类似以下操作，新创建的书有 3 页，而不是只有一页，并且在复印时打开。而且它还询问我是否想用宏保存它，而我只想复制sheet1，所以不需要任何宏，如何修复它以满足我的需要？
ThisWorkbook.Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs "C:\DestinationWb.xlsx", FileFormat:=51
新创建的工作簿必须打开 - 否则如何保存它？ - 但切换Application.ScreenUpdating可能会促进您正在寻找的“无声”副本。切换Application.DisplayAlerts还将根据需要抑制警报。
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs FileName:="C:\DestinationWb.xlsx", FileFormat:=51
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
