Can't open XLS files with open office calc in examples

[xuzo 0]

Trying to run an example file but I don't have MS Office, only open office calc.

What code should I substitute in there so this script runs with open office?

expandcollapse popup

#include <MsgBoxConstants.au3>

; COM Test file
;
; Excel Automation Example
;

Local $oMyExcel = ObjCreate("Excel.Application") ; Create an Excel Object

If @error Then
    MsgBox($MB_SYSTEMMODAL, "ExcelTest", "Error creating the Excel Object. Error code: " & @error)
    Exit
EndIf

If Not IsObj($oMyExcel) Then
    MsgBox($MB_SYSTEMMODAL, "ExcelTest", "I'm sorry, but creation of the Excel object failed.")
    Exit
EndIf

$oMyExcel.Visible = 1 ; Let the guy show himself

$oMyExcel.workbooks.add ; Add a new workbook

; Example: Fill some cells

MsgBox($MB_SYSTEMMODAL, "", "Click 'ok' to fill some cells")

Local $i
Local $j

With $oMyExcel.activesheet
    For $i = 1 To 15
        For $j = 1 To 15
            .cells($i, $j).value = $i
        Next
    Next

    MsgBox($MB_SYSTEMMODAL, "", "Click 'ok' to clear the cells")
    .range("A1:O15").clear

EndWith

Sleep(2000)

$oMyExcel.activeworkbook.saved = 1 ; To prevent 'yes/no' questions from Excel

$oMyExcel.quit ; Get rid of him.

MsgBox($MB_SYSTEMMODAL, "ExcelTest", "Is Excel gone now ?")
; Nope, only invisible,
; but should be still in memory.

$oMyExcel = "" ; Only now Excel is removed from memory.

Exit

 

[water 1,617]

You can't compare Excel and oOCalc.
Best is to rewrite your script using the OpenOffice UDF as described here: https://www.autoitscript.com/wiki/User_Defined_Functions#OpenOffice.2FLibreOffice

[Skysnake 37]

I generate CSVs which OpenOffice opens effortlessly.

 

[xuzo 0]

I want to use all the example files , they are all excel...

Isn't there a  quick find and replace I can do in the example files so they work with open calc?

[water 1,617]

No. Excel and oO do not work the same way. So a simple f&r isn't possible.

[xuzo 0]

Ok thank you, [solved]