Excel .将当前工作簿复制到新工作簿时复制工作不一致
我有代码将其他工作簿中的大量信息提取到主工作簿中的几页中。最后，我想将主工作簿保存为xlsx（无宏），并从xlsx工作表中删除形状和按钮 下面的代码有时有效，但奇怪的是有时没有创建复制它从母版手册本身删除按钮/形状或点击错误：对象“工作表”的方法“复制”失败：Excel .将当前工作簿复制到新工作簿时复制工作不一致,excel,vba,Excel,Vba,我有代码将其他工作簿中的大量信息提取到主工作簿中的几页中。最后，我想将主工作簿保存为xlsx（无宏），并从xlsx工作表中删除形状和按钮 下面的代码有时有效，但奇怪的是有时没有创建复制它从母版手册本身删除按钮/形状或点击错误：对象“工作表”的方法“复制”失败： Sub SaveFileInXlsFormat() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvent
Sub SaveFileInXlsFormat()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim fName As String
Dim fPath As String
' Copy worksheets to a new workbook
ThisWorkbook.Worksheets(Array("week", "month", "year", "Q-1", "Q-2", "Q-3", "Prev Year")).Copy
请显示完整的功能或提供完整的。要找出问题出在哪张纸上，请尝试一张一张地复制它们（不是使用数组，而是每个都使用复制操作，只是为了调试）。•只有在某些情况下才会出现错误或处理错误的工作簿或工作表，这些错误很可能是由使用
ActiveSheetActiveWorkbook引起的。请选择，或者不使用正确的工作簿和工作表引用（这包括通过根本不使用工作簿/工作表引用来使用对ActiveSheet
，ActiveWorkbook
）的隐式引用。同时检查以下答案：谢谢你，佩赫，我将正确声明工作簿和工作表。谢谢你的帮助，我将分享我如何处理更改以及在进行更改时是否遇到任何问题