Neue Excel Datei mit vb.net erzeugen

Moin moin,
ich dreh hier gleich ab, weil meine Suche immer nur die falsch Programmiersprache oder unvollständige Lösungen ergibt.

Also, folgendes Problem: Wie kann ich in VB.net 2003 auf einfache Weise eine neue, leere Excel-Datei erzeugen?

Ich brauch die Datei, damit ich in sie rein schreiben kann. Das sieht wie folgt aus:
Eingebunden ist die Microsoft Excel 9.0 Object Lib

Dim ExcelFileName as string = „Test.xls“
xlApp = New Excel.Application
xlApp.Visible = False
xlMappe = xlApp.Workbooks.Open(ExcelFileName) 'hier ist das Problem, wenn es die Datei nicht gibt!
xlBlatt = CType(xlMappe.Worksheets(1), Excel.Worksheet)

xlZelle = xlBlatt.Range(„A1“)
xlZelle.Offset(3, 4).Value = „Bla bla“

xlMappe.Save()
xlMappe.Close()
xlApp.Quit()

xlZelle = Nothing
xlBlatt = Nothing
xlMappe = Nothing
xlApp = Nothing

Hab vollgendes versucht:

xlApp = New Excel.Application
xlApp.Workbooks.Add(ExcelFileName)
xlApp.Save()

Das geht aber nicht, also hab ich das mit IO.File.Create(„Datei.xls“), dann kann ich die aber auch nicht zum schreiben öffnen, da sie halt keine gültige xls-Datei ist. Workbooks.Open(„Datei.xls“) benötigt nämlich mindestens eine leere echte Exceldatei.

Wenn ich dafür irgendwelche Referenzen brauche oder irgendwas importieren muss, bitte mit angeben! Bin immer noch VB-Neuling…

Das Befüllen und Auslesen klappt alles schon, aber nur, wenn ich ,wie gesagt, eine bereits vorhandene, leere Datei öffne und da rein schreibe. Diesen Umweg möchte und muss ich mir aber sparen.

Schon mal Danke für eure Hilfe!
LG

Hallo!

Der Aufruf sollte so lauten:

xlApp.Workbooks.Add()

Siehe dazu auch die MSDN Library http://msdn.microsoft.com/de-de/library/x80526fk.aspx

mfg
christoph

Hey, danke Christoph!
Jetzt hab ich es hinbekommen. Für die, die das gleiche Problem haben noch mal schnell die Lösung:

xlMappe = xlApp.Workbooks.Open(ExcelFileName)

muss in

xlMappe = xlApp.Workbooks.Add()

geändert werden und

xlMappe.Save()

muss in

xlMappe = xlMappe.SaveAs(„Exceldatei.xls“)

geändert werden. Dann geht’s ja schon.
MfG