有关delphi存为excel的问题

Question

存为excel后，出现如10-23为10月23日，-000-09为-9，但是10-23，-000-09是零件号，不能变。我发现是excel的cell属性问题，应为文本格式，但我不知在delphi如何设为文本。救救我！

Answer 1

AExcelApp.Selection.NumberFormatLocal := '@';

Answer 2

ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.WorkBooks.Add;
    ExcelApp.WorkSheets[1].Activate;
    aSheet:=ExcelApp.Worksheets.Item[1];
    ExcelApp.Selection.NumberFormatLocal := '@';
    //ExcelApp.Selection.numberformat:='@';
    ExcelApp.Visible := True ;
不行呀！不行呀！不行呀！不行呀！救救呀！！！！！！！！！！！！！！

Answer 3

ExcelApp.Cells.Select;
ExcelApp.Selection.NumberFormatLocal := '@';

Answer 4

有关Delphi操作Excel，可参考
http://www.nxit.net/bbs/dispbbs.asp?boardID=15&ID=260