INFO: Dieses Forum nutzt Cookies...
Cookies sind für den Betrieb des Forums unverzichtbar. Mit der Nutzung des Forums erklärst Du dich damit einverstanden, dass wir Cookies verwenden.

Es wird in jedem Fall ein Cookie gesetzt um diesen Hinweis nicht mehr zu erhalten. Desweiteren setzen wir Google Adsense und Google Analytics ein.




Unsere Partner:

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner






Stellenangebote:
Softwarearchitekt LabVIEW/Teststand (m/w/d)
Gerlingen

Softwareentwickler für Prüfsysteme (m/w/d)
Ingolstadt

Validation Engineer (m/f/d)
Friedrichsdorf

Ingenieur/in für optische Systeme (m/w/d)
Ludwigshafen

Ingenieur / Tester - Powertrain Komponenten (m/w/d)
Berlin

Testingenieur (m/w/d)
Sexau nahe Freiburg im Breisgau

Testdesigner (m/w/d)
Wolfsburg, Leonberg, Ingolstadt, Aurich, Vierkirchen (München)

Ingenieur Elektrotechnik für Standardisierung und Automatisierung (i/m/w)
Velden





.
 
Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5

OpenOffice Calc
09.10.2018, 12:39,
#1
DIAdem-Version: 2010, 2011, 2012, 2015, 2017
DIAdem-Sprachversion: DE/EN
DIAdem Erfahrung seit: 2009
OpenOffice Calc

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

Antworten
22.10.2018, 15:30,
#2
DIAdem-Version: 2017 Beta2 / seit 4.0 dabei
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 1996
RE: OpenOffice Calc

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

Antworten


Gehe zu: