Kopfzeile in Excel erstellen

Hallo Leute,

ich habe das Problem, dass die Erstellung der Kopfzeile fehlschlägt. Hier mein Quellcode dafür:

...
Local $FileName=@ScriptDir &"\test.xls"
$oExcel= _ExcelBookNew()
For $oWS In $oExcel.Worksheets
With $oWS.PageSetup
.LeftHeader = "Datum"
.CenterHeader = "Überschrift"
.RightHeader = "Blatt-Nr.: "
EndWith
Next
_ExcelSheetAddNew($oExcel, 'neu')
_ExcelWriteCell($oExcel, 'Text',1,1)
_ExcelBookSaveAs($oExcel, $FileName, "xls")
_ExcelBookClose($oExcel)
...

Desweiteren würde ich gern, dass die Seite als Querformat mit schmalen Seitenrändern gedruckt wird.
Ist das möglich?

Vielen Dank, Gremlin

Ich bekomme keinen Error oder Fehlermeldung. Es funktioniert alles außer, dass eine Kopfzeile erstellt wird.

F**k, wie dumm.
Vielen Dank, jetzt funktioniert auch das Querformat und Seitenränder.
Ich nutze nun aber:

...
$oExcel.ActiveSheet.PageSetup.Orientation = 2
$oExcel.ActiveSheet.PageSetup.CenterHeader = 'Überschrift'
$oExcel.ActiveSheet.PageSetup.LeftMargin = $oExcel.Application.InchesToPoints(0.25)
...