Delphi：如何将时间字符串写入 Excel 单元格但保留通用 NumberFormat

Question

我有来自客户端的 Excel（它是从 print-to-Excel 函数生成的），奇怪的是 Excel 在常规格式的单元格中包含时间字符串“06:15:00”。我应该从 Delphi 创建相同的 Excel。

可能代码为：

 FWorksheet.Cells.Item[4, 5].NumberFormat:='';
 FWorksheet.Cells.Item[4, 5].NumberFormat:='06:15:00';
 FWorksheet.Cells.Item[4, 5].NumberFormat:=''; 

但它会以通用格式生成 0.260416666666667。我可以观察到 2 个奇怪的场景：

1. 如果我将单元格格式设置为 General，则写入 6:15:00，在这种情况下，格式会自动转换为 Custom，并将格式转换为 General 结果为 0.26041666...
2. 如果我用鼠标单击客户端 Excel 的单元格（一般：6:15:00），则 Excel 会将单元格格式转换为自定义格式，随后转换为文本的一般格式也会导致 0.26...李>

所以，我应该找到如何将字符串“06:15:00”写入常规单元格并同时保留常规格式的方法。从录制的 VBA 宏代码中生成 Delphi 代码是不可能的，因为我找不到编写可视 Excel 命令的方法来达到这种状态。

我正在使用 OLE Excel Excel_TLB。

我在 Excel 中找到了给出所需结果的命令序列，这个序列可以记录为宏：

 Range("O4").Select
 Selection.NumberFormat = "@"
 Range("O4").Select
 ActiveCell.FormulaR1C1 = "06:15:00"
 Range("O4").Select
 Selection.NumberFormat = "General"
 Range("O6").Select

但是我在 Delphi 代码中对这个宏的翻译：

 FWorksheet.Cells.Item[4, 5].NumberFormat:='@';
 FWorksheet.Cells.Item[4, 5].FormulaR1C1:='06:15:00';
 FWorksheet.Cells.Item[4, 5].NumberFormat:=''; 

仍然产生 0.260...

Answer 1

使用AnsiChar是解决办法：

 FWorksheet.Cells.Item[4, 5].NumberFormat:=AnsiChar('@');
 FWorksheet.Cells.Item[4, 5].FormulaR1C1:='06:15:00';
 FWorksheet.Cells.Item[4, 5].NumberFormat:=''; 

回答https://stackoverflow.com/a/24034170/1375882 指出这里使用AnsiChar @ 非常重要，而不是Delphi2009 默认提供的UnicodeChar。