乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 75|回复: 4

我的EXCEL数据怎么读不出来呢

[复制链接]

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 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型。
请问楼主错在哪里啊?
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-8-5 22:03:00 | 显示全部楼层
ExcelApp.wokbooks.Worksheets("Sheet1").Activate
这句有问题,工作簿集合由多个工作簿组成,而单个工作簿又是由多个工作表组成,因而Worksheets("Sheet1").Activate之前应是一个工作簿对象。
回复

使用道具 举报

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2004-8-6 11:23:00 | 显示全部楼层
我把 With ExcelApp.Workbook.Worksheets("Sheet1") 这句
改为With ExcelApp.ActiveWorkbook.Worksheets("Sheet1")还是不行,到底问题出在哪里了?我在程序运行是在任务管理器里也见不到EXCEL运行啊?(根本就没有调用!!),我引用的是 Microsoft Excel 9.0 Objoct Library ,是什么问题存在啊?
请大侠指点迷津吧!!?
回复

使用道具 举报

wmz

50

主题

247

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
447
发表于 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
回复

使用道具 举报

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2004-8-8 10:00:00 | 显示全部楼层
太感谢你了!!!
想不到还有这样无私的高手,我昨天买了一大堆书也没解决问题。
被你几行就搞定了,再说句谢谢!!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 01:55 , Processed in 3.465584 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表