Excel 运行时错误“无法获取 OLEObjects 类的添加属性”答案

【问题标题】：Excel Runtime Error "Unable to get the add property of the OLEObjects class"Excel 运行时错误“无法获取 OLEObjects 类的添加属性”
【发布时间】：2023-03-16 08:43:01
【问题描述】：

我正在创建一个 LotusScript 脚本，该脚本创建一个带有嵌入对象的 Excel 文件。但是当我开始实际嵌入 PDF 文件时，我得到“无法获取 OLEObjects 类的 Add 属性”。不幸的是，Lotusscript 不能处理命名参数，所以我必须以正确的顺序交出所有参数。不确定我是否可以省略尾随的可选参数。

tempdir = "c:\data\temp"
pdfname = "20140826-32051-1890459257-300-421425-GRF.pdf"
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Add
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
Set oleObjs = xlsheet.OLEObjects
Set oleObj = OLEObjs.Add("", tempdir + "\" + pdfname, False, _
True, "", "", pdfname, _
"","","","")
'Arguments: ClassType, FileName, Link,
'DisplayAsIcon, IconFileName, IconIndex, IconLabel,
'Left, Top, Width, Height

【问题讨论】：

标签： excel vba lotusscript

【解决方案1】：

如果您要“跳过”可选参数，请不要传递空字符串：函数正在接收空字符串并尝试使用它运行。

相反，跳过它们 - 占位符参数如下所示：

Set oleObj = OLEObjs.Add(, tempdir + "\" + pdfname, False, True, , , pdfname, , , , )

不确定我是否可以省略尾随的可选参数。

我不知道 LotusScript，但值得一试。这在 VBA 中是合法的，并且完全等同于上面的：

Set oleObj = OLEObjs.Add(, tempdir + "\" + pdfname, False, True, , , pdfname)

【讨论】：

谢谢，就是这样。并且省略尾随的空参数是有效的。