读取excel文件数据并绘制直线出错

wwwjw

Sub excell()
Dim x, y As Variant
+ E% j8 [0 ?) C4 ]5 k' ODim Excel   As Excel.Application
4 O, }/ @9 b3 t9 `, P9 M& e! hDim ExcelSheet   As Object
. Z! r9 e9 R% W+ D1 h& u* R& ]" {8 sDim ExcelWorkbook   As Object
/ K. x: }1 |: ^Set ExcelWorkbook = Excel.Workbooks.Open("d:\基础数据.xls") '
Set ExcelWorkbook.Visible = True
7 e* F" Y8 K# s, {  m8 gSet ExcelSheet = ExcelWorkbook.Worksheets("基础数据") '
/ b! K$ v! z3 Z2 ~8 `ExcelSheet.Activate '
) x; n* s8 G' M' p7 w  r1 {% T2 e: sx(0) = 0: x(1) = 0: x(2) = 0
For i = 1 To 50
9 r3 I* Y  Y) |9 q& f+ V( [   y(0) = ExcelSheet.cells(i, 1).Value
% N. e' J* t" t) {2 `: h* Q   y(1) = ExcelSheet.cells(i, 2).Value
+ X9 P/ a& ^' K' v   y(2) = 0
: j' D; \& m8 Z) `5 z6 P   Call ThisDrawing.ModelSpace.AddLine(x(i), y(i))
4 z6 |" f1 _4 S/ W+ @   y = x
Next
End Sub
……………………………………………………………………
我的本意是从excel文件（50行、2列）中读取数据，分别作为横纵坐标，Z坐标赋值为0，然后画线
1 A6 h& L5 ?' w' B# K3 O程序不报错，也没反应，不知为何？