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

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

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型。
请问楼主错在哪里啊？

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

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

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

发表回复

精选推荐