excel:= CreateOleObject('Excel.Application');
   
    //显示excel , 可以应用于不显示excel就生成excel文件
    excel.Visible:=true; 
    excel.Workbooks.Add;    //将WorkSheets[1]的名设置为myexcel
    excel.Workbooks[1].WorkSheets[1].Name := 'myexcel';    //创建一个sheet对象
    Sheet:= excel.Workbooks[1].WorkSheets['myexcel'];======================================================================上面的代码创建了一个 sheet 对象 后 1. 如何设置 某一列 全部单无格 的单元格格式2. 如何设置 某一行 全部单无格 的单元格格式3, 如何设置 选择区域 中全部单无格 的单元格格式,就是 Range:=excel.workbooks[1].WorkSheets['myexcel'].Range['A5:G5']; 的单元格格式
4.如何设置 某一个 单无格 的单元格格式--------------------------------------------------------日期,文本,数字.....等格式分别如何设置 !!!!!请给出详细的代码!!!!!!!!!!!!!!!
 

解决方案 »

  1.   

    //某个范围
    Sheet.Range['A'+IntToStr(1), 'B'+IntToStr(1)].Select  
    Excel.Selection.NumberFormatLocal = "@"
    //c列Sheet.Cols['c'+':'+'c'].Select;
    Excel.Selection.NumberFormatLocal = "yyyy-m-d"
    //7行
    Sheet.Rows[inttostr(7)+':'+inttostr(7)].Select;
    Excel.Selection.NumberFormatLocal = "yyyy-m-d"
      

  2.   

    请问这段代码 Excel.Selection.NumberFormatLocal = "@"  是设置什么格式??????????
    excel 单元格格式默认是 ”常规 " 如何设置成  文本,会计专用,数值,日期,百分比,时间
    等格式
      

  3.   

    Excel.Selection.NumberFormatLocal = "@"  是设置文本格
    Selection.NumberFormatLocal = "0.00%"百分比
    Excel.Selection.NumberFormatLocal = "yyyy-m-d"日期
    Excel.Selection.NumberFormatLocal = "h:mm;@"时间
    Excel.Selection.NumberFormatLocal = "0.00_ "数值
      

  4.   

    会计专用 呢??? thks