【转帖】ｅｘｃｅｌ数据怎么读不出
 

ｅｘｃｅｌ数据怎么读不出
www.dimcax.com
ｅｘｃｅｌ数据怎么读不出
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型。
请问楼主错在哪里啊？