Ohh, ja ich habe es ohne ByRef gemacht. Ich habe eben oben einfach den Syntax kopiert gehabt, da bei mir die echten Ordner etwas vertrauliche Daten enthalten.
Ich habe extra mal die Original UDF und dazugehörige Konstanten UDF durchsucht. Findet man nicht mal StarCalc, geschweige denn eine Funktion zu einer HTML Funktion.
Denke das ganze wird einfach intern in Libre/Open-Office verarbeitet bzw. gesendet.
In der Demo sieht das ganze übrigens so aus... hätte ich direkt raffen können.
AutoIt
If MsgBox($MB_YESNO + $MB_ICONQUESTION + $MB_TOPMOST, $sTitle, "Would you like to save the workbook?") = $IDYES Then
Global $sFile = @ScriptDir & "\calcdemo"
Global $aFiles[5][2] = [["ods", ""],["xls", "MS Excel 97"],["pdf", "calc_pdf_Export"],["txt", "Text - txt - csv (StarCalc)"],["html", "HTML (StarCalc)"]]
MsgBox(0,"",$aFiles[4][0])
Global $sMessage = "Save the book in:" & @CRLF
For $iType = 0 To UBound($aFiles) - 1
$sMessage &= $aFiles[$iType][0] & @TAB & $aFiles[$iType][1] & @CRLF
Next
MsgBox($MB_ICONINFORMATION + $MB_TOPMOST, $sTitle, $sMessage)
;Save in different formats
For $iType = 0 To UBound($aFiles) - 1
_OOoCalc_BookSaveAs($oCalc, StringFormat("%s.%s", $sFile, $aFiles[$iType][0]), $aFiles[$iType][1])
Next
_OOoCalc_BookClose($oCalc)
MsgBox($MB_ICONINFORMATION + $MB_TOPMOST, $sTitle, "Show the stored files...")
For $iType = 0 To UBound($aFiles) - 1
ShellExecute(StringFormat("%s.%s", $sFile, $aFiles[$iType][0]))
MsgBox($MB_ICONINFORMATION + $MB_TOPMOST, "Calc " & $aFiles[$iType][0], "Press OK")
Next
Else
_OOoCalc_BookClose($oCalc)
EndIf
Alles anzeigen