急！！！运行时错误‘13’类型不匹配

我的代码如下
Dim ExcelApp As Excel.Application, workbook10 As Excel.workbook,  worksheet10 As Excel.worksheet
Dim i As Integer, Datetime() As Date, Waveheight() As Integer, Datetime0 As Date, Datetime00 As Date,     Datetime000 As Date, Waveheight0 As Integer, Waveheight00 As Integer, Waveheight000 As Integer, 
  ReDim Datetime(1 To 1393)
  ReDim Waveheight(1 To 1393)
    For i = 1 To 1392 
    Set workbook10 = GetObject(m.Path & "chaoxi.xls")
    Set worksheet10 = workbook10.ActiveSheet
    Datetime00 = Format(NOW，"YYYY-MMMM-DD H:mm")
    Datetime(i) = Format(worksheet10.cells(i, 1).value, "YYYY-MMMM-DD H:mm")
    Waveheight(i) = worksheet10.cells(i, 2).value
    If Datetime00 >= Datetime(i) And Datetime00 <= Datetime(i + 1) Then
      Datetime0 = Datetime(i)
      Datetime000 = Datetime(i + 1)
      Waveheight0 = Waveheight(i)
      Waveheight000 = Waveheight(i + 1)
      Waveheight00 = Waveheight000 * (DateDiff("n", Datetime00, Datetime0) / DateDiff("n", Datetime000, Datetime0)) + Waveheight0 * (DateDiff("n", Datetime000, Datetime00) / DateDiff("n", Datetime000, Datetime0))
     End If
  Next i
里面的worksheet10里的数据第一列为日期数据，第二列为整型数据例如
2010-1-1 2:17 166
2010-1-1 6:50 141
2010-1-1 11:48 171
2010-1-1 19:49 11
2010-1-2 2:58 167
2010-1-2 7:33 139
2010-1-2 12:42 174
2010-1-2 20:32 10程序运行到Datetime(i) = Format(worksheet10.cells(i, 1).value, "YYYY-MMMM-DD H:mm")
时出现类型不匹配提示
欢迎大家来指教