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 := '@';