Von Visual Basic (VB) in Microsoft Excel

Mit diesem Problem musste ich mich schon sehr sehr oft rumschlagen.
Immer wieder kommt jemand an und möchte Reports oder Daten aus den Programmen in Excel geschrieben haben oder Daten sollen aus einer Excel Datei gelesen werden.

Und na kla habe ich dann auch gleich mal angefange herauszufinden wie das funktioniert und das klappt schon seit jahren immer gleich 🙂

Hier der Code:


Set Ex = CreateObject("Excel.Application")

Ex.Workbooks.Add

'Wählt das gewünschte Blatt aus
Ex.Sheets("Tabelle1").Select

'Ändert den Namen des Blattes
Ex.Sheets("Tabelle1").Name = "Tabelle Test"

'Schreibt in Celle A5
Ex.Range("A5") = "Test1"

'Schreibt in Celle B5
Ex.Range("B5") = "Test2"

'Schreibt in Celle C5
Ex.Range("C5") = "Test3"

'Schreibt in Celle D5
Ex.Range("D5") = "Test3"

'Zeigt Excel
Ex.Visible = True

Set Ex = Nothing