loExcel.Windows("tmp1.dbf").Activate
loExcel.Range("H2:H"+ccount).Select
loExcel.Selection.NumberFormat = "m/d/yyyy"
loExcel.Selection.HorizontalAlignment =-4152

#DEFINE xlCountryCode 1
#DEFINE xlCountrySetting 2
#DEFINE xlDateOrder 32
#DEFINE xlMDY 44

oExcel = CreateObject('Excel.Application')
oExcel.Visible = .t.

?oExcel.International(xlCountryCode)
?oExcel.International(xlCountrySetting)
?oExcel.International(xlDateOrder)
?oExcel.International(xlMDY)

CREATE CURSOR cTmp (f1 d)

INSERT INTO cTmp VALUES ({})  
INSERT INTO cTmp VALUES ({^2008-01-01})  
INSERT INTO cTmp VALUES ({^2008-01-12})  
INSERT INTO cTmp VALUES ({^2008-01-13})  

COPY TO C:\cTmp.xls FOX2X 

Sub test()
    Application.Workbooks.Open Filename:="C:\cTmp.xls"
End Sub

Sub ReopenFile()
    fileName = Application.ActiveWorkbook.FullName
    Application.ActiveWorkbook.Close
    Application.Workbooks.Open Filename:=fileName
End Sub