excel - VBA：显示错误的日期格式

Question

我有 vba 代码以特定格式显示日期，如下所示

If Not IsNull(Data.getAttribute("recorded"))) Then
    Range("BG3") = Format((Data.getAttribute("recorded")), "dd / mmm / yyyy")
End If

这段代码实际上在我的本地工作。但在服务器中，它显示格式为“02.14.2013”​​。

由于日期格式错误，我遇到了一些问题。

这可能是什么原因？有人请帮助我。

Answer 1

我的建议是尝试：

If Not IsNull(Data.getAttribute("recorded"))) Then
    Range("BG3").Value2 = Format((Data.getAttribute("recorded")), "dd / mmm / yyyy")
End If

如果这仍然是一个问题

If Not IsNull(Data.getAttribute("recorded"))) Then
    Range("BG3").Value = Data.getAttribute("recorded")
    Range("BG3").NumberFormat = "dd / mmm / yyyy"
End If

但是我仍然坚持在某个战略性的地方设置一个断点并逐步执行代码以确保数字以不正确的格式出现在单元格中，而不是稍后被重置。

Answer 2

Range尝试在语句之前添加以下内容：

Range("BG3").NumberFormat = "@" 'set to display as text