>gcDelimName = ALIAS( ) + '.xls' >gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >IF EMPTY(gcDelimFile) >CANCEL >ENDIF > COPY TO (gcDelimFile) XLS > > >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 > > >*loExcel.VISIBLE = .T. >*loExcel = NULL > > >