>thank you, no errors about bath,
>after the path code i use this code i get error message at LOWB.Save

Again, use name expressions:

>

>SET DEFAULT TO C:\dept
>a=TRANSFORM(dtos(DATE()-1), "@R 9999_99")
>lcPath="c:\dept\"+a
>if not directory(lcPath)
>   mkdir (lcPath)
>   ENDIF
>   set default to (lcPath)&&
>gcDelimName = ALIAS( ) + '.xls'&& or xlsx
* gcDelimfile = forcepath(m.gcDelimName,'c:\dept\&a')

gcDelimfile = forcepath(m.gcDelimName, lcPath)

>IF !EMPTY(m.gcDelimFile)  
>  COPY TO (m.gcDelimFile) type XLS 
>ENDIF
>****************************************
>Local loExcel 
>xlDown =   -4121
>xlLastCell = 11
>
>loExcel = CREATEOBJECT('Excel.Application')
>loExcel.DisplayAlerts = .F.
>
>
>LoWb = loExcel.WorkBooks.OPEN(gcDelimFile)
>loWs = loExcel.WorkSheets(1)
>
>loWs.Rows("1:"+Transform(3)).insert(xlDown)
>lows.Range(lows.Cells(1,1),lows.Cells(1,lows.Application.ActiveCell.SpecialCells(xlLastCell).Column) ).MergeCells = .T.
>loWS.cells(1,3).Font.bold  = .t.
>loWS.cells(1,3).Font.Size= 14
>loWS.cells(1,1) = "ÇáÞÖÇíÇ ÇáÞÇÈáÉ ááÇÚÊÑÇÖ Úä ÔåÑ) "+TRANSFORM(YEAR(DATE()))+'/'+TRANSFORM(MONTH(DATE())-1)
>loWS.cells(1,1).Font.bold  = .t.
>loWS.cells(1,1).Font.Size= 14
>
>
>LOWB.Save
>LOWB.CLOSE(1)
>
>