excel - 粘贴时出现宏错误 1004，但仅在其他计算机上

Question

我的宏在我的(citrix)工作帖上工作得很好，但在其他工作帖上我得到一个 1004 错误，我不明白为什么。

它涉及一系列 18 个宏，这些宏将形状从一个(源)表复制/粘贴到另一个(目标)表，在复制/粘贴下一个之前从目标表中删除前一个形状。

目标是引导用户通过 18 个信息屏幕(=其中包含文本的矩形)...他通过单击链接到宏的按钮(在信息屏幕中)在信息屏幕中移动

错误总是发生在应该将形状粘贴到目标工作表的行上。

奇怪的是 1004 错误并不总是出现在同一个宏中，有时我设法通过几个屏幕，有时它在第一个屏幕上阻塞。

非常感谢所有帮助或建议!

宏文本:

   Application.ScreenUpdating = False
   ActiveSheet.Unprotect
   ActiveSheet.Shapes.Range(Array("TFS9")).Select
   Selection.Delete
   ActiveSheet.Shapes.Range(Array("TFS9TEL")).Select
   Selection.Delete
   Sheets("Tour FIP Shop").Visible = True
   Sheets("Tour FIP Shop").Select
   ActiveSheet.Shapes.Range(Array("TFS10")).Select
   Selection.Copy
   Sheets("FIP Shop").Select
   Range("e18").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Sheets("Tour FIP Shop").Select
   ActiveSheet.Shapes.Range(Array("TFS10TEL")).Select
   Selection.Copy
   Sheets("FIP Shop").Select
   Range("Q41").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Sheets("Tour FIP Shop").Select
   ActiveWindow.SelectedSheets.Visible = False
   Sheets("FIP Shop").Select
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   Application.CutCopyMode = False
   Application.ScreenUpdating = True

Answer 1

我最近遇到了一个类似的问题。对我来说，删除“Application.ScreenUpdating = False”语句很有帮助。在 CITRIX 环境中运行时，此语句有时会使 Excel 崩溃。