急运行时异常‘13’类型不匹配

急！！！运行时错误‘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:17166
2010-1-1 6:50141
2010-1-1 11:48171
2010-1-1 19:4911
2010-1-2 2:58167
2010-1-2 7:33139
2010-1-2 12:42174
2010-1-2 20:3210

程序运行到Datetime(i) = Format(worksheet10.cells(i, 1).value, "YYYY-MMMM-DD H:mm")
时出现类型不匹配提示
欢迎大家来指教

[解决办法]
YYYY-MM-DD HH:MM:SS