如何调整32位和64位Excel VBA日期处理之间的差异？

Question

问题：

64位Excel VBA有一个讨厌的习惯，即在将数组分配给范围时将数组日期转换为数字。另一方面，32位VBA保留日期格式。

实施例

以下是一些示例代码，用于演示不同的日期处理：

Sub test()
    Dim arr(0 to 1) As Variant
    arr(0) = "Text"
    arr(1) = #9/12/2007#
    ActiveSheet.Range("A1:B1") = arr
End Sub

（请注意，如果使用单个日期值，则不会在64位Excel中转​​换日期;必须具有第一个文本值）

结果：

在32位Excel中运行时，输出为Text, 9/12/2007

在64位Excel中运行时，输出为Text, 39337

就好像64位VBA仅对所有范围对象使用Value2属性。

问题：

如何在不编写处理所有数组写入的函数的情况下使64位VBA表现得像32位VBA？

只是为了阻止可能的善意回应：我知道这些细胞之间的基本公式保持不变。但是，32位Excel会自动将正确的单元格设置为日期格式，从而大大简化了我的代码。

Answer 1

我之前遇到过这样的问题并通过确保单元格格式始终设置为日期格式来解决它。

这样的事情可以解决问题：

Range("A1").Select
Selection.Format = "long date"