短日期格式的时间变量怎么正确导出到EXCEL？？？？？？？？？？急！！在线等！！

Question

varexcel.workbooks[1].worksheets[1].cells[j, i + 1] :='04-11-01';
在导出到EXCEL时结果是：2001-04-11
请问怎么解决？？？在些谢过！

Answer 1

程序目录下放一个EXCEL模板，把EXCEL的单元格设置为文本类型。
导出时，导出到模板上面

Answer 2

var varexcel: variant;
     varexcel := createoleobject('excel.application');while not frmPrint.clientdataset.eof do
 begin
            for i := 0 to frmPrint.dstlist.Items.count - 1 do 
           begin
              xr := frmPrint.clientdataset.fieldbyname(GetField     (frmPrint.dstlist.items.strings[i])).AsString;
              varexcel.workbooks[1].worksheets[1].cells[j, i + 1].value := xr;
            end;
            frmPrint.clientdataset.next;
            j := j + 1;
          end;

Answer 3

sheet.cells[2,2]:='2004-11-01';
sheet.cells[2,2].NumberFormatLocal := 'yy-m-d';