Excel:运行时错误 '13' 类型不匹配

Question

可能是什么原因，我得到
运行时错误 '13' 类型不匹配
使用这行 VBA 代码:

.Cells(1, 1) = CDate(Format(Now, "dd.mm.yy hh:mm"))

问题是，一位同事没有收到此错误。我们都有一个“德国”办公室。

Answer 1

我不确定你为什么需要这种格式，因为它只是在你填充单元格之前直接转回日期。

你真的应该有:

.Cells(1, 1) = Format(Now,"dd.mm.yy hh:mm")

甚至更好

.Cells(1, 1) = Now

然后按如下方式格式化列:

Columns("A:A").NumberFormat = "dd.mm.yy hh:mm"

注意:在格式字符串中包含 mm 可能无济于事，尽管刚刚尝试过它似乎工作正常。