VBA无法插入对象

42 浏览
0 Comments

VBA无法插入对象

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

valRef = "标签名"
FilePath = "\\network\file.pdf"
' 过程在下一行停止
Worksheets(valRef).OLEObjects.Add Filename:=FilePath, Link:=False, DisplayAsIcon:=False

有时候，当添加PDF文件时，这个过程会停止，并显示错误信息'运行时错误'1004' 无法插入对象'

当出现调试窗口时，我可以按下F5键，过程会继续执行。PDF文件是存在的，并且在相同的网络位置上，有时候可以正常工作而不会停止。

有没有什么办法可以防止过程停止？

0

1 答案

0 Comments

问题：VBA无法插入对象（VBA Can not insert object）

原因：出现此问题的原因是网络连接不稳定。当从网络位置直接插入文件时，可能会导致插入对象失败。

解决方法：可以通过将文件先复制到本地再进行插入来解决此问题。可以使用Excel的复制命令将文件复制到本地文件夹，然后再从本地文件夹中插入对象。

以下是示例代码：

Dim sourcePath As String
Dim destinationPath As String
sourcePath = "\\network\path\to\file.pdf"
destinationPath = "C:\local\folder\file.pdf"
' 复制文件
FileCopy sourcePath, destinationPath
' 插入对象
Worksheets(valRef).OLEObjects.Add Filename:=destinationPath, Link:=False, DisplayAsIcon:=False

这样，通过先将文件复制到本地，再从本地文件夹中插入对象，可以避免网络连接不稳定导致的插入对象失败的问题。

希望以上解决方法对您有帮助！如果您仍然遇到问题，请尝试其他解决方案或向相关技术支持寻求帮助。

0