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

Question

可能是因为我得到了这行VBA代码的运行时错误'13'类型不匹配:

.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可能无法帮助,虽然刚试了一下它似乎工作正常.