Excel VBA-将带有图表的工作表复制到另一个工作簿，关闭时出错

Question

我陷入了这个问题：

我正在将多个工作表从多个Excel工作簿复制到一个特定的工作簿中。 我使用以下代码：

SourceWorkbook.SourceSheet.Cells.Copy DestinationWorkbook.DestinationSheet.Cells(1,1)

DestinationWorkbook是带有已加载Excel工作簿的对象。

一切正常，直到我遇到带有图表（图表对象）的工作表。 复制很好，但是我无法关闭DestinationWorkbook，并且收到有关该操作的资源不足（内存？）的错误消息。

我认为可能是带有链接的东西（图表已链接到原始工作簿）。

我试图清除剪贴板，更改所有图表的.Values，.XValues，.Name，断开链接（不确定它是否正常工作），保存DestinationWorkbook，DoEvents，On Error Resume Next等，但仍然无法正常工作。

我的最后一个选择是从SourceWorkbook中删除图表并自己创建它们，但是我想避免这样做，因为它会非常复杂，因为每个工作表之间可能会有所不同。

希望任何人都能提供帮助。

整个代码很复杂，但是最重要的部分是：

Set SourceWorkbook = GetObject(Path)
SourceWorkbook.SourceSheet.Cells.Copy DestinationWorkbook.DestinationSheet.Cells(1,1)
SourceWorkbook .Close Savechanges:=False
Set SourceWorkbook = Nothing

Answer 1

而不是复制可能导致内存溢出的整个工作表：

SourceWorkbook.SourceSheet.Cells.Copy DestinationWorkbook.DestinationSheet.Cells(1,1)

尝试复制特定范围：

  SourceWorkbook.Sheets(SourceSheet).Range(SourceWorkbook.Sheets(SourceSheet).Cells(1, 1), _
  SourceWorkbook.Sheets(SourceSheet).Cells(100, 100)).Copy ThisWorkbook.Sheets(DestinationSheet).Cells(1, 1)