Moin,
ich schaffe es nicht etwas in eine Zelle in Excel zu schrieben.
Sub Exceltabelle()
'Applikation Excel öffnen
Dim excel
Set excel = CreateObject("Excel.Application")
excel.Application.Visible = True
'Excel Dokument erzeugen
Dim neue_wb
Set neue_wb = excel.Workbooks.Add
'Das Dokument deklarieren
Dim workbook
Set workbook = excel.Workbooks.Item(1)
'Das Arbeitsblatt deklarieren
Dim blatt
Set blatt = workbook.Sheets.Item(1)
'Überschrift der Datei
blatt.Cells(1, 1).Activate
ActiveCell.Value = "Test"
End Sub
Wo ist der Fehler?
------------------
Anfänger!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP