vba - 奇怪的VBA(错误？)-复制粘贴循环崩溃，除非添加了消息框

Question

我在VBA上遇到了一个奇怪的问题。我已经编写了一个应该创建Word报告的子程序。我基本上有10个变量，一个带有模板图表的Word模板文档，以及每个变量三个带有数据的CSV文件。我遍历所有变量，并为创建的每个变量页面访问chartdata工作簿，然后将外部CSV数据复制到chartdata工作簿中。

Sub createRep()

  'open Word-template

  for page=1 to 10

    'Open external csv
    'Open chartdata workbook
    'Copy external data into chartdata workbook
    'Close external csv files and chartdata workbook

  Next page

End Sub

它会在一开始就起作用，但是在某个页面上我会收到一个错误消息，因为粘贴不起作用。我也无法手动将任何内容复制到chartdata工作簿中，好像崩溃了，这就是粘贴失败的原因。但是，以下代码将起作用:

Sub createRep()

  'open Word-template

  for page=1 to 10

    MsgBox page

    'Open external csv
    'Open chartdata workbook
    'Copy external data into chartdata workbook
    'Close external csv files and chartdata workbook

  Next page

End Sub

那是消息框以某种方式修复它。但为什么？

Answer 1

这可能是由于您的代码在打开Word之前运行。在尝试加载文档时，您已经在准备应用程序之前对其进行了访问。
要解决此问题，您可以尝试添加DoEvents，或者如果不够，请使用对WordApplication的引用:

While WordApplication.Busy = True
      DoEvents
Wend

希望这可以帮助
-JDB