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

然而，虽然这适用于一些日期，有些显示为31/12/1899，看看我目前的转储我有一个日期为2016年7月18日，工作正常，但日期为28/06 / 2016年没有。

非常感谢任何帮助，

谢谢，

标记