hi,
thank you i try as under

CLOSE all
USE JUSTSTEM(thisform.text9.value)+".dbf" in 0
gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  && Esc pressed
   CANCEL
ENDIF
COPY fields num,a,date,flag TO (gcDelimFile) XLS  
 
oExcel= CREATEOBJECT("Excel.Application")
oExcel.Workbooks.Open(gcDelimFile)  &&& i see num filed 
*oExcel.Workbooks.Open(pFile)
oExcel.ActiveSheet.Rows(1).Delete
oExcel.ActiveWorkbook.Save()
oExcel.quit
release oExcel 
SET DEFAULT TO d:\sami

thanks
>>hi all,
>> any idea
>>&& after convert can i delete the first record have title(num,a,date,flag) at my excle sheet autamiticly
>>
>>

>>CLOSE all
>>USE JUSTSTEM(thisform.text9.value)+".dbf" in 0
>>gcDelimName = ALIAS( ) + '.xls'
>>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
>>IF EMPTY(gcDelimFile)  && Esc pressed
>>   CANCEL
>>ENDIF
>>COPY fields num,a,date,flag TO (gcDelimFile) XLS
>>&&delete first record from excel sheet
>>SET DEFAULT TO d:\sami
>>
>>

>>thanks
>
>Something like:
>
>oExcel= CREATEOBJECT("Excel.Application")
>oExcel.Workbooks.Open(pFile)
>oExcel.ActiveSheet.Rows(1).Delete
>oExcel.ActiveWorkbook.Save()
>oExcel.quit
>release oExcel