>Hi,
>Thank you for your reply,
>but the result still the same.
>
>Is it Excel bug ?
>
>Please advise.
>
>Derek
That works for me:
SET DATE BRITISH
oExcel = CREATEOBJECT([Excel.Application])
oExcel.SheetsInNewWorkbook = 4
oWorkbook = oExcel.Workbooks.Add()
oExcel.Visible = .t.
nrow=2
with oExcel.activesheet
.Range("A"+TRIM(PADR(nrow,11))).value=DATE()
.Range("A"+TRIM(PADR(nrow,11))).NumberFormat ='mmm dd yyyy'
endwith
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
