excel - 类型与 CDate 不匹配

Question

我有以下代码:

minDate = CDate(Table.Cell(i, 4).Range.Text)

但我收到“类型不匹配错误”。 Table.Cell(i, 4)采用“dd.mm.yy”格式。

Answer 1

我写了一个宏来测试这个和日期格式dd.mm.yyyy无效，看来必须使用dd/mm/yyyy (使用斜线而不是句点)或 dd-mm-yyyy (使用连字符而不是句点):

Sub Macro1()

    Dim minDate As Date
    Dim DateStr As String

    ' with slashes, ok
    DateStr = "27/12/2013"
    minDate = CDate(DateStr)

    ' replace periods w/ slashes, ok
    DateStr = "27.12.2013"
    minDate = CDate(Replace(DateStr, ".", "/"))

    ' replace periods w/ hyphens, ok
    DateStr = "27.12.2013"
    minDate = CDate(Replace(DateStr, ".", "-"))

    ' type mismatch
    DateStr = "27.12.2013"
    minDate = CDate(DateStr)

End Sub

因此，要解决您的问题，您只需将日期中的所有句点替换为连字符或斜杠:

minDate = CDate(Replace(Table.Cell(i, 4).Range.Text, ".", "/"))