ＥＸＣＥＬ数据怎么读不出

fingerli

Dim ExcelApp As New Excel.Application
ExcelApp.Workbooks.Open "e:\lhs\cad\book1.xls", , [ReadOnly]
ExcelApp.Workbooks("e:\lhs\cad\book1.xls").Activate
ExcelApp.wokbooks.Worksheets("Sheet1").Activate
With ExcelApp.Workbook.Worksheets("Sheet1")
Zkbh = .Range("B2")
Bzdw = .Range("B3")
Gcxm = .Range("B4")
End With

pt(0) = Pt5(0) + 2.8: pt(1) = Pt5(1) + 2.5: pt(2) = 0
Set TextObj = ThisDrawing.ModelSpace.AddText(Zkbh , pt, 10)
TextObj.ScaleFactor = 0.8 以上变量均定义，其中Zkbz,Bzdw,Gcxm均定义位STRING型，PT为double型。 请问楼主错在哪里啊？