Excel Runtime Error "Unable to get the add property of the OLEObjects class"

Question

I am creating a LotusScript script which creates an Excel file with embedded objects. But when I come to actually embed the PDF file I get "Unable to get the Add property of the OLEObjects class". Unfortunately Lotusscript can't deal with named arguments, so I have to hand over all arguments in the correct order. Not sure if I might leave out trailing optional arguments.

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

score 4 · Accepted Answer · answered Jun 12 '19 at 16:22

Don't pass an empty string if you mean to "skip" an optional parameter: the function is receiving the empty string and attempting to run with it.

Instead, skip them - placeholder arguments would look like this:

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

Not sure if I might leave out trailing optional arguments.

I don't know LotusScript, but it's worth a shot. This is legal in VBA, and exactly equivalent to the above:

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

Thank you, that was it. And leaving out trailing emtpy arguments works. — Joesse, Jun 13 '19 at 07:25

Excel Runtime Error "Unable to get the add property of the OLEObjects class"

1 Answers1