Hi,

I have the following code to export the Invoice no.and invoice date to the excel file,
I find that if the invoice date field in the invoice.dbf is blank or ' / / ',
the output format of excel is always in this format: " - - ",
even though I set the cell to 'dd/mm/yyyy'

I want the cell become blank if the invoice date is ' / / '.
Please advise how to do it.

USE INVOICE IN 0 ALIAS invoice
set index to invoice
EXPORT TO invoice.xls TYPE XL5 FIELDS invoice->invno, invoice->date
USE
oExcel = CREATEOBJECT([Excel.Application])
oWorkbook = oExcel.Workbooks.open("C:\WTS\MID\WTS77XLS.XLS")
oExcel.Visible = .t.
WITH oExcel.activesheet
         .Range("A1").value = "Invoice No."
         .Range("B1").value = "Invoice Date"
         lnLastRow = .UsedRange.Rows.Count
         lnLastCol =.UsedRange.Columns.Count
         .Range("A2:"+"A"+TRIM(PADR(lnLastRow+1,11))).NumberFormat ='dd/mm/yyyy;;' 
ENDWITH

Derek Yim