对TcxGrid做导出excel的修正,TcxGrid在导出到excel中 会出现010101被excel认识为2001-01-01 数字123.45
被认为字符123.45 修改这些bug
被认为字符123.45 修改这些bug
解决方案 »
- 这条sql语句该怎么写?
- UniCode
- 怎么样可以在edit1的回车事件的同时调用edit2的回车事件?
- 全屏幕显示窗口
- 50分求,怎样让richedit实现列块选择?
- 如何让cxGrid根据从属关系展开?谢谢!
- ********************本人解决不了的问题***********************
- 哪里有instal shield for delphi5 or delphi6
- delphi 用哪个函数可以丛一个字符串中 右取 一个字符 )(象vb的 right 函数一样)
- Delphi5 + MSSQL7 中的计数问题?
- 请问如何把数据库里面的值显示成相应的汉字呢??
- cxgrid高手,如何对字段的部分值进行分组
Excelapp.cells[1,1].NumberFormatLocal = "G/通用格式"
文本格式:
Excelapp.cells[1,1].NumberFormatLocal = "@" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
其它的格式,楼主可以在Excel中录制宏,参考其中的代码...以上代码由http://community.csdn.net/Expert/topic/4317/4317112.xml?temp=2.955264E-02转贴
procedure ExportGrid4ToExcel(const AFileName: string; AGrid: TcxGrid;
AExpand: Boolean = True; ASaveAll: Boolean = True; AUseNativeFormat: Boolean = True;
const AFileExt: string = 'xls');
还有
procedure ExportGrid4ToExcel(const AFileName: string; AGrid: TcxGrid;
AExpand: Boolean; ASaveAll: Boolean; AUseNativeFormat: Boolean; const AFileExt: string);
begin
ExportToFile(AFileName, cxExportToExcel, AGrid, AExpand, ASaveAll, AUseNativeFormat, '', '', '', AFileExt);
end;
Excelapp.cells[1,1].NumberFormatLocal = "G/通用格式"
文本格式:
Excelapp.cells[1,1].NumberFormatLocal = "@"
增加了:
1、分组行是否隐藏
2、分组字段是否隐藏
3、分组行的(+/-)号是否显示
4、分组行缩排的功能
5、多个字段做为一个组来同级分组
(比如将编号和名称合并做为同一级来分组)
下载地址:
http://www.dcmscn.cn/dispbbs.asp?boardid=8&id=308