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.如何设置 某一个 单无格 的单元格格式--------------------------------------------------------日期,文本,数字.....等格式分别如何设置 !!!!!请给出详细的代码!!!!!!!!!!!!!!!
//显示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.如何设置 某一个 单无格 的单元格格式--------------------------------------------------------日期,文本,数字.....等格式分别如何设置 !!!!!请给出详细的代码!!!!!!!!!!!!!!!
解决方案 »
- AdoQuery在多线程中执行错误的sql语句为什么不报错?
- 我用delphi新建工程编译出来360江民就误报!
- 请问如何让窗体作为模态对话框和非模态对话框显示?
- 求一(含有TdxComBoBox)控件包的下载地址,在线等
- 【Delphi 2005-07专家榜 】
- 如何从一文本文件中提出一段到一个字符串或stringlist中
- 求助:怎样在点主窗体的工具栏按钮调子窗体后隐藏主窗体的工具栏而显示子窗体的工具栏
- 错在哪里?MessageDlg('程序名','消息',mtConfirmation,[mbYes,mbNo,mbCancel],0,mbYes);
- 我怎样才能获取打印机的默认变距呢?(25分送上。)
- Windows NT下如何使用拨号网络?
- 重画Cell颜色
- 我想让一个编号长度固定为6位,如果输入的长度不足6位的话,前面补0,请问如何实现?
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"
excel 单元格格式默认是 ”常规 " 如何设置成 文本,会计专用,数值,日期,百分比,时间
等格式
Selection.NumberFormatLocal = "0.00%"百分比
Excel.Selection.NumberFormatLocal = "yyyy-m-d"日期
Excel.Selection.NumberFormatLocal = "h:mm;@"时间
Excel.Selection.NumberFormatLocal = "0.00_ "数值