从其他工作簿复制/粘贴
提问于 2015-10-22 00:27:04
我编写了代码来复制并粘贴到我的工作簿中，使用的范围来自其他工作簿。在我的计算机中，它可以工作，但是当我向任何人发送粘贴过程时，会产生一条错误消息：
“当前无法显示此图像。”
在当前版本中，我使用了xlPasteAll：
Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy
Workbooks(fl.Name).Close
Worksheets(sheetindex).Activate
ActiveSheet.Range(Cells(startrow,1),Cells(rangeCount,16)).PasteSpecial xlPasteAll
回答 2
Stack Overflow用户
回答已采纳
发布于 2015-10-22 00:58:19
您可能想看看这个KB-条款。它描述了将工作表或范围复制到其他工作簿中时，其他工作簿中的图像发生的错误。
有一个类似的问题--我们将一张带有图像的工作表复制到目标工作簿中。如果在保存和关闭目标工作簿之前关闭源工作簿，则会发生此错误。如果将源工作簿打开并关闭目标工作簿，则图像显示正确(随后关闭源工作簿并手动重新打开目标工作簿)。
知识库-文章/Hoftix能够解决我们的问题-它也将解释为什么它工作在您的工作站，而不是在其他地方。(不同的办公室补丁)
Stack Overflow用户
发布于 2015-10-22 00:35:03
在复制值之后，您正在关闭工作表。粘贴值后使用close命令
Sub test()
Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy
Worksheets(sheetindex).Activate
ActiveSheet.Range(Cells(startrow, 1), Cells(rangeCount, 16)).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Application.CutCopyMode = True
Workbooks(fl.Name).Close
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/33276498
复制相关文章
点击加载更多
腾讯云开发者
