Mit dem folgenden Code kann man eine Excel Tabelle öffnen und lesen / schreiben.
Hinweis: MS Excel muss dazu auf dem System installiert sein.
'Excel im Hintergrund öffnen, Objekt erstellen und "Tabelle1" öffnen
Set Excel = CreateObject("Excel.Application")
Excel.Visible = False
Excel.Workbooks.Open "C:beispiel.xls"
Set sheet = Excel.Worksheets("Tabelle1")
'Alle Daten im aktuellen Druckbereich leeren
'Hinweis: Die Formattierung bleibt dabei erhalten
Excel.ActiveSheet.UsedRange.ClearContents
'Schreibe etwas in die erste Zelle in der ersten Zeile
sheet.Cells(1, 1) = "Dieser Text wurde Automatisch geschrieben! ;-)"
'Noch das aktuelle Datum in die 1. Zelle, Zweite Zeile schreiben
sheet.Cells(2, 1) = "Erstellt am: " & Now()
'Excel beenden und Objekt löschen
Excel.ActiveWorkbook.Save
Excel.ActiveWorkbook.Close
Excel.Quit
Set Excel = Nothing |
