VBA日期31/12/1899

Question

我正在将电子表格中的数据读入字典中，但是日期字段有问题。

读取数据的代码是

sourceworkbook.setRangeSingleCell "Review date(1)", cell.Row
dictionaryObject.ReviewDate = sourceworkbook.range.Value

这将根据列标题将范围设置为我想要的单元格，然后在将其放入字典之前获取值。 Reviewdate定义为类中的字符串。

然后，我对这个特定字段不做任何事情，只是将其从字典中转储回另一个电子表格，如下所示：

targetWorkbook.setRangeSingleCell "Review Date", foundRowNumber
targetWorkbook.range.Value = Dictionary.Item(Key).ReviewDate

但是，尽管这在某些日期下可以正常工作，但有些显示为1899年1月31日，就我当前的转储而言，我有一个日期为18/07/2016的日期很好，但是日期为28/06/2016的日期却没有。

任何帮助深表感谢，

谢谢，

标记