fingerli 发表于 2004-8-5 21:58:00

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

Dim ExcelApp As New Excel.Application<BR>                       ExcelApp.Workbooks.Open "e:\lhs\cad\book1.xls", , <BR>                       ExcelApp.Workbooks("e:\lhs\cad\book1.xls").Activate<BR>                       ExcelApp.wokbooks.Worksheets("Sheet1").Activate<BR>                       With ExcelApp.Workbook.Worksheets("Sheet1")<BR>                                                       Zkbh = .Range("B2")<BR>                                                       Bzdw = .Range("B3")<BR>                                                       Gcxm = .Range("B4")<BR>                       End With<BR>                               <BR>                               pt(0) = Pt5(0) + 2.8: pt(1) = Pt5(1) + 2.5: pt(2) = 0<BR>                               Set TextObj = ThisDrawing.ModelSpace.AddText(Zkbh , pt, 10)<BR>                               TextObj.ScaleFactor = 0.8


以上变量均定义，其中Zkbz,Bzdw,Gcxm均定义位STRING型，PT为double型。


请问楼主错在哪里啊？
页: [1]
查看完整版本: ＥＸＣＥＬ数据怎么读不出