excel - 如何防止Excel在大文件上运行宏时崩溃？

Question

下午好，

我正在运行一个宏，它将数据复制到另一个工作簿并自动保存该工作簿。问题是每行都包含一张图片，这使得它成为一个相当大的文件，最多 30mb。因此，代码需要一段时间才能完成，当我尝试再次运行它时，Excel 完全卡住，我必须强制关闭它。当我复制较少的行时，它保持稳定。我想知道这是否是剪贴板问题，但事实并非如此。怎么我只能运行一次？是缓存问题还是什么问题？我已经在使用压缩图片和 application.screenupdating & enablevents = false。

提前致谢

下面的代码导致卡住，基本上第 6 行之后的每张图片都需要调整大小。

    For Each pic In Ws3.Pictures
pic.Select
 If Selection.TopLeftCell.Row > 6 Then
 With Selection
.Height = .TopLeftCell.RowHeight * 0.9
.Width = .Height * PicWtoHRatio
.Top = .TopLeftCell.Top + (.TopLeftCell.RowHeight - .Height) / 2
.Left = .TopLeftCell.Left + (.TopLeftCell.Width - .Width) / 2
End With
End If
Next pic
End Sub

该问题也出现在代码的其他部分，每当我尝试复制粘贴> 100 行时，Excel 似乎就会卡住。我正在使用 cutcopy = False。

Answer 1

如果您使用循环，则可以在每次迭代开始时添加 DoEvents。它使 Excel 有时间处理用户事件，而不是卡住。

While condition
    DoEvents
    ...
Wend