社区 › VB › 我的ＥＸＣＥＬ数据怎么读不出来呢

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

我的ＥＸＣＥＬ数据怎么读不出来呢

Dim ExcelApp As New Excel.Application
                       ExcelApp.Workbooks.Open "e:\lhs\cad\book1.xls", ,
                       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型。
请问楼主错在哪里啊？

efan2000 发表于 2004-8-5 22:03:00

ExcelApp.wokbooks.Worksheets("Sheet1").Activate
这句有问题，工作簿集合由多个工作簿组成，而单个工作簿又是由多个工作表组成，因而Worksheets("Sheet1").Activate之前应是一个工作簿对象。

fingerli 发表于 2004-8-6 11:23:00

我把 With ExcelApp.Workbook.Worksheets("Sheet1") 这句
改为With ExcelApp.ActiveWorkbook.Worksheets("Sheet1")还是不行，到底问题出在哪里了？我在程序运行是在任务管理器里也见不到EXCEL运行啊？（根本就没有调用！！），我引用的是 Microsoft Excel 9.0 Objoct Library ,是什么问题存在啊？
请大侠指点迷津吧！！？

wmz 发表于 2004-8-7 17:49:00

我给你改写了一以下,看行不?
Sub Test()
                       Dim ExcelApp As Object
                       Dim TextObj As AcadText
                       Dim sText As AcadTextStyle
                       Dim pt5(1) As Double
                       Dim pt(2) As Double
                       Dim zkbh As String, bzdw As String, gcxm As String
                       Set sText = ThisDrawing.TextStyles.Add("hz")
                       sText.SetFont "ËÎÌå", False, False, 1, 1
                       sText.Width = 1.2
                       Set ExcelApp = CreateObject("Excel.Application")
                       ExcelApp.Workbooks.Open "e:\lhs\cad\book1.xls"
                               Sheets("Sheet1").Select
                                       zkbh = Range("B2").text
                                       bzdw = Range("B3").text
                                       gcxm = Range("B4").text
                               pt5(0) = 34: pt5(1) = 24
                               pt(0) = pt5(0) + 2.8: pt(1) = pt5(1) + 2.5: pt(2) = 0
                               Set TextObj = ThisDrawing.ModelSpace.AddText(zkbh, pt, 10)
                               pt(0) = pt5(0) + 32.8: pt(1) = pt5(1) + 2.5: pt(2) = 0
                               Set TextObj = ThisDrawing.ModelSpace.AddText(bzdw, pt, 10)
                               pt(0) = pt5(0) + 62.8: pt(1) = pt5(1) + 2.5: pt(2) = 0
                               Set TextObj = ThisDrawing.ModelSpace.AddText(gcxm, pt, 10)
End Sub

fingerli 发表于 2004-8-8 10:00:00

太感谢你了！！！
想不到还有这样无私的高手，我昨天买了一大堆书也没解决问题。
被你几行就搞定了，再说句谢谢！！

查看完整版本: 我的ＥＸＣＥＬ数据怎么读不出来呢