复制到新工作簿后图像是否已损坏？

Question

当我使用vba将工作表复制到另一个工作簿时，我的一个图片图片将被破坏，并显示以下错误：

Dim filename as string
filename = "copyToThisExcel.xlsm"
Workbooks.Open filename:= "C:\myExcelFile.xlsm"
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks(filename).Sheets(1)

这在计算机上随机发生，而不是其他人。我相信这是2007年和2010年的一个已知错误。是否有任何解决方法可以将此图像或不同的替代方法添加到Excel中，从而不会导致此问题？

以下是此已知错误的链接。

http://www.spreadsheet1.com/excel-vba-bugs.html

Answer 1

我认为你必须打开destinaion文件。看看这个例子：

cities.select(&:present?)