VBA 无法插入对象

Question

我在 Excel 中有一个进程，它使用以下代码从 PDF 文件添加图像：

valRef = "TabName"
FilePath = "\\network\file.pdf"
' Process stops in the next line
Worksheets(valRef).OLEObjects.Add Filename:=FilePath, Link:=False, DisplayAsIcon:=False

有时，添加 PDF 文件时进程会停止并显示错误“运行时错误 '1004”无法插入对象

当调试窗口出现时，我可以按 F5 并继续该过程。 PDF 文件存在且具有相同的文件，在相同的网络位置，有时可以不间断地工作。

关于如何防止进程停止的任何想法？

Answer 1

我知道它看起来很难看，但您可以继续使用错误处理程序重试

if 1 = 0 then 'never enter this section, unless an error occurs
  looperror:
  Resume 'without this, the second time an error occurs, it will trigger, ignoring the on error
end if

on error goto looperror
  Worksheets(valRef).OLEObjects.Add Filename:=FilePath, Link:=False, DisplayAsIcon:=False
on error goto 0

如果您不希望这种情况无休止地进行下去，您可以添加一个计数器并在尝试几次后取消，或者通过 msgbox 询问用户是否要重试。