Question

我的宏在我的（Citrix）工作岗位上工作得很好，但在其他工作岗位上我得到1004错误，我不明白为什么。

它涉及一系列18个宏，它们将形状从一个（源）工作表复制/粘贴到另一个（目标）工作表，在复制/粘贴下一个工作表之前从目标工作表中删除以前的形状。

目标是引导用户完成18个infoscreens（=带有文本的矩形形状）......他通过点击链接到宏的按钮（在infoscreen中）移动通过infoscreens < / p>

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

奇怪的是，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

我最近遇到了类似的问题。对我来说，删除＆＃39; Application.ScreenUpdating = False＆＃39;声明。在CITRIX环境中运行时，此语句有时会使Excel崩溃。

粘贴宏错误1004但仅在其他计算机上粘贴

1 个答案: