Saving LibreOffice Calc files via VBscript

Hello everyone,

I'm trying to automate a report by loading an ods file, writing in a few cells, saving and closing, but I'm having trouble with the basics. The following is the basic template which I used to try the functionality

Option Explicit
Function action
Dim oSM, oDesk, oDoc, oPropertyValue, oSheet, oCell
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
Set oDoc = oDesk.loadComponentFromURL("file:///c:\reports\day.xls", "_blank", 0, Array())
Set oSheet = oDoc.Sheets.getByName("Day")
Set oCell = oSheet.getCellByPosition(1, 0)
oCell.String = "Test"
Set oPropertyValue = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oPropertyValue.Name = "FilterName"
oPropertyValue.Value = "MS Excel 97"
oDoc.storeAsURL "file:///c:/1.xls", Array(oPropertyValue)
' or oDoc.storeToURL "file:///c:/2.xls", Array(oPropertyValue)
oDoc.Close True
Set oPropertyValue = Nothing
Set oCell = Nothing
Set oDoc = Nothing
Set oDesk = Nothing
Set oSM = Nothing
End Function

Even though this code is copied and the original goal was to save in different files, it doesn´t really matter. The document opens, I can see the cell being written to, but when trying to save, it yields the following error

Now, if I remove all of the saving part of the code, the document loads, it writes, it closes without saving, and that's it. No problem at all. That leads me to assume that there may be a permissions issue. I'm quite lost since this is very new to me, so I'll appreciate any help.

Thanks in advance,
Gonzalo

Hello gniski

I know only the MS Automation Interface for MS Excel (32 Bit). I also think the compatibility with LibreOffice is questionalble...

https://support.industry.siemens.com/cs/de/en/view/109792622/139193407371

Bye Murof