从其他工作簿复制/粘贴

我写了代码来复制和粘贴到我的工作簿从其他工作簿使用的范围。 在我的电脑中，它可以工作，但是当我发送给任何人时，粘贴过程导致错误信息：

“此图片目前无法显示。”

目前的版本，我用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 

Answer 1

你可能想看看这个知识库文章 。 它描述了在将工作表或范围复制到其他工作簿时，与其他工作簿中的图像发生的错误。

有一个类似的问题 – 我们复制了一张图片到目标工作簿。 如果在保存并closures目标工作簿之前closures源工作簿，则会发生此错误。 如果您打开并closures源工作簿并closures了目标工作簿，则图像显示正确（之后closures源工作簿并手动重新打开目标工作簿）。

KB-Article / Hoftix能够解决我们的问题 – 这也将解释为什么它在您的工作站上，而不是在其他地方。 （不同的办公室补丁…）

Answer 2

复制值后，您正在closures工作表。 粘贴值后使用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