neue erzeugte Excel-Datei speichern (VS2008)

[zx81hw]

Hallo zusammen,
ich erstelle eine neu Excel-Datei u. zwar nach dem bekannten Schema:
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
oExcel = CreateObject("Excel.Application")

Jetzt kommt das Problem: das oBook wird immer über 'open' definiert, z.B:
oBook = oExcel.Workbooks.Open("C:\Book.xls")
Wie kann ich aber eine Datei öffnen, die noch gar nicht existiert?

Ohne die Zuordnung von oBook in die Application (oExcel) kann ich aber auch nicht speichern:
oBook.SaveAs(filename:="C:\Book13", FileFormat:=51)

Was blicke ich nicht?

Danke u. Gruss
Helmut

[Ralf Jansen]

Wie kann ich aber eine Datei öffnen, die noch gar nicht existiert?

Gar nicht. Oder würdest du in Excel versuchen eine neues Excelsheet über den Open Dialog zu erstellen?
Du must natürlich nichts öffnen sondern was neues erzeugen. Dafür rufst du an den Workbooks die Add Methode auf. Wenn man an Add nix übergibt bekommt man ein leeres Default WorkBook zurück mit dem man dann arbeiten kann.

[zx81hw]

Gar nicht. Oder würdest du in Excel versuchen eine neues Excelsheet über den Open Dialog zu erstellen?

Logisch, drum habe ich die Frage ja so gestellt.

mit add hatte ich schon expiremntiert, damit

oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add

bekomme ich jetzt 2 Tabellen. Eine davon durch den weiteren Code gefüllt, die 2. ist leer..................?

[Ralf Jansen]

An deinem oExcel solltest du eine SheetsInNewWorkbook Property finden. Vermutlich willst du die auf 1 setzen.

[zx81hw]

Danke, jetzt tuts