Ernst,
Try:

oExcel.Workbooks.open(cTabelle)

HTH
>select * from ctablename into cursor dummy
>thisform.excelfile='TEST'
> COPY TO (THISFORM.excelfile) TYPE XL5
> cTabelle=fullpath(curdir())+alltr(thisform.excelfile)+'.XLS'
>
> MESSAGEBOX(cTabelle+' ERZEUGT',0)
>
> ***excel starten
> oExcel=createobject('excel.application')
> if type('oExcel')#'O'
> wait wind 'kein Excel installiert' timeout(3)
> return .f.
> endif
>
> oExcel.Workbooks.Add(cTabelle)
> oExcel.activesheet.cells.select
> oExcel.Selection.font.name="arial"
> oExcel.Selection.font.size=8
> oExcel.Selection.Columns.AutoFit
> oExcel.visible=.t.
>
>At this point Excel appears with the headding 'Microsoft Excel - Test1' not 'TEST' as expected.