Excel 运行时错误 "Unable to get the add property of the OLEObjects class"

Question

我正在创建一个 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

Answer 1

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

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

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

Not sure if I might leave out trailing optional arguments.

我不懂 LotusScript，但值得一试。这在 VBA 中是合法的，并且与上面的完全相同:

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