vb.net - 如何从用单元格写入的日期访问年份，vba excel

Question

我尝试此代码，但显示错误消息“类型不匹配”。

If year(Sheets("Master-Deal").Cells(i, 9).Value) = 2012  Then

    result'''''''

End If

Answer 1

确保目标单元格中​​的值不是无效日期，您可以使用函数检查它是否为日期IsDate()。

If IsDate(Sheets("Master-Deal").Cells(i, 9).Value) Then
    If Year(Sheets("Master-Deal").Cells(i, 9).Value) = 2012 Then
        ' do stuff
    End If
Else
    ' Complain about invalid date?
End If

Answer 2

Excel 返回的值是对象类型。如果excel单元格是一个日期，你可以试试这个：

If Year(CType(Sheets("Master-Deal").Cells(i, 9).Value, Date)) = 2012 Then ...