如何设置Excel列类型和格式？

Question

我正在将数据从CxDBGrid导出到Excel文件.我能够创建文件并在其中复制数据,但我在列格式化方面遇到了麻烦.由于我从数据库中提取数据,我希望电子表格能够反映出类型:NUMBER,VARCHAR2,DATE等等.我在视觉上创建了一个宏,去寻找VBA代码,并在Delphi项目中复制它:

sheet.Columns[K+2].NumberFormat := '0,000'; //Number
sheet.Columns[K+2].NumberFormat := '@'; //Text
sheet.Columns[K+2].NumberFormat := 'm/d/yyyy'; //Date

数字格式在大多数情况下都可以正常工作,但其他两个则没有.当我打开生成的文件时,文本列显示为"Custom"类型,每个单元格显示"-64".如果我去编辑一个单元格,那么实际上就是正确的值.日期是另一个问题:数据库的格式是dd/mm/yyyy,如果我按原样将其提供给Excel,它会搞得一团糟.我尝试设置正确的格式,但Excel无法识别它.

有线索吗？

我也设置了列宽.这完美无瑕.

Answer 1

问题是分配的值是 Unicode 字符串。尝试这个：

sheet.Columns[K+2].NumberFormat := AnsiChar('@');
sheet.Columns[K+2].NumberFormat := AnsiString('m/d/yyyy');

Answer 2

你还没有说“你是如何手动做事的”，这意味着人们必须完全猜测你在做什么。所以这是我的疯狂猜测：

1. 如果我假设您使用的是 Developer Express 中的 Express Spreadsheet 组件，那么我对此组件拥有丰富的经验。它不支持任意数字格式。它支持精确到两位小数的“货币”格式 (0.00)。它不支持三位或一位或任何其他小数位。如果是这样，则这是 Express 电子表格中的一个已知设计问题。

2. 如果手动表示上面显示的“工作表”是一个 OLE 对象，并且您通过 OLE 自动化与 Excel 本身进行通信，那么您应该单独格式化单元格或将其格式化为范围，而不是列对象。我不确定列对象格式如何覆盖单元格值（如果确实如此）。单元格的格式设置通常是逐个单元格地进行，并且必须如此处理。

3. 如果您确实希望它正常工作，您将不会通过 OLE 自动化使用 Excel，您将获得一个合适的 Excel XLS 格式的编写库。我非常确定您可以直接从 CX (DevEx) 数据库网格获得正确的结果，但我会在他们的论坛上询问，而不是在这里。对于常规 DB 网格，我只需使用TJvDBGridExcelExportJedi JVCL 中提供的、与常规 VCL DB 网格配合使用的功能。