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.