But such a code:
Code: Select all
oExcel := CreateObject( "Excel.Application")
oExcel:Workbooks:Open(cExcelFile, 2, .t., 1, "", "", .f.)
xlCalcStatus := oExcel:Calculation
oExcel:Calculation := xlManual
oExcel:Sheets(cSourceSheet):Select()
oActiveSheet := oExcel:ActiveSheet
cCellValue := oActiveSheet :Cells( nRow, nCol ):Text
msgdebug("Here is text value of cell", cCellValue)
You can use StoD function to convert it to date.
Hope it helps you