delphi 设置Excel单元格格式两种方式

 Excelapp,ExcelRange: Variant;
1.     

 temp:='C:C';
        ExcelRange:=Excelapp.workbooks[1].WorkSheets[1].Range[temp];
       ExcelRange.NumberFormatLocal:='@';

2.            ExcelApp.ActiveSheet.Columns[3].Select;
       ExcelApp.Selection.NumberFormatLocal := '@';