DIAdem-Forum - deutschsprachiges DIAdem Forum
OpenOffice Calc - Druckversion

+- DIAdem-Forum - deutschsprachiges DIAdem Forum (https://www.diadem-forum.de)
+-- Forum: DIAdem (https://www.diadem-forum.de/forum-4.html)
+--- Forum: Abläufe automatisieren (https://www.diadem-forum.de/forum-16.html)
+--- Thema: OpenOffice Calc (/thread-1274.html)



OpenOffice Calc - MBT - 09.10.2018

Hallo zusammen,

ich möchte über VBS eine OpenOffice Calc Instanz starten und danach eine Excel (.xls) Datei öffnen und Daten über ein Script in die Tabelle schreiben.
Leider finde ich keine genauen Angaben zum ansteuern über die OLE-Schnittstelle.

Hat hier jemand Erfahrung und kann mir weiterhelfen?!

Grüße
MBT


RE: OpenOffice Calc - chaosyeti - 22.10.2018

Moin,

mit OpenOffice so überhaupt gar nicht, leider, aber Excel ist kein Problem.

Beispiel zwei Werte auslesen:
Code:
Dim ScriptPfad, Excel, Sheet, Wert1, Wert2
ScriptPfad = "C:\Pfad\mit\der\Tabelle\"
Set Excel = CreateObject("Excel.Application")
Excel.Visible = TRUE
Call Excel.Workbooks.Open(ScriptPfad & "Exceltabelle.xlsx")
Sheet = 1
Wert1 = Excel.Worksheets(Sheet).Cells(5,4).Value
Wert2 = Excel.Worksheets(Sheet).Cells(6,4).Value
Excel.DisplayAlerts = False
Excel.Quit
Set Excel = Nothing

Tut das mit OpenOffice nicht analog?

Grüße
Yeti