求助！！！！！运行程序提示类型不匹配，怎么解决？

懒羊羊 · 发表于 2011-12-1 10:56:00

代码如下：
Public Function jiyouguimianxian()
Dim excelApp As Excel.Application
Dim excelSheet As Excel.Worksheet
Dim strFile As String
strFile = ThisDrawing.Application.VBE.ActiveVBProject.fileName
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = False
excelApp.Workbooks.Open Left$(strFile, Len(strFile) - Len("ex01.dvb")) & "\Excel\demo.xls"
Set excelSheet = excelApp.ActiveWorkbook.Sheets("Sheet1")
Dim verts As New cls2dPointArray
      Dim vert(0 To 1) As Double
   Dim i As Integer, a As Double, b As Double
   For i = 2 To excelSheet.[C65536].End(xlUp)
   a = 910 + (Cells(i, 1).Value - Cells(1, 1).Value) / 10
   b = 370 + Cells(i, 3).Value - Cells(2, 3).Value
         verts.Append vert
         vert(0) = a
         vert(1) = b
         Next i
         Dim mspace As New clsModelSpace
      mspace.AddLWPolyline verts.toarray()

End Function
问题出现在a、b处，运行到a的时候就提示类型不匹配，怎么回事？
excel中的数据如下：

rdplqygzghh.png