乐筑天下

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

关于AUTOCAD VBA的菜鸟问题!我是新手,求助!

[复制链接]

3

主题

9

帖子

1

银币

初来乍到

Rank: 1

铜币
21
发表于 2007-5-11 12:36:00 | 显示全部楼层 |阅读模式
我有以下的一段代码 !但是运行后总是提示说用户类型未定义!我怀疑是不是没有引用好EXCEL,在这想请教引用的方法,刚接触VBA,不太会!下面是我的一部分代码,只求引用EXCEL的方法!
Dim DrawCureType(0 To 2) As Boolean
Dim ii, jj, kk As Integer '循环用变量
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet:
Dim AllCount_row As Integer  'Excel表中数据行数
Dim AllCount_column As Integer 'Excel表中数据列数
Dim XX(0 To MAX_row) As Variant  '档距值(XX(0)为文字说明)
Dim YY(0 To MAX_row, 1 To MAX_column) As Variant '应力及弧垂值(YY(0,*)为文字说明)
回复

使用道具 举报

3

主题

9

帖子

1

银币

初来乍到

Rank: 1

铜币
21
发表于 2007-5-11 12:39:00 | 显示全部楼层
当出现未定义提示时,xlsApp As Excel.Application上被阴影覆盖
回复

使用道具 举报

1

主题

157

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
161
发表于 2007-5-11 14:58:00 | 显示全部楼层
你没有引用Excel的函数库把?
回复

使用道具 举报

3

主题

9

帖子

1

银币

初来乍到

Rank: 1

铜币
21
发表于 2007-5-11 15:40:00 | 显示全部楼层
可能是吧!但是我就是不会啊 !就是来请问怎么引用!
回复

使用道具 举报

55

主题

282

帖子

5

银币

中流砥柱

Rank: 25

铜币
502
发表于 2007-5-12 09:14:00 | 显示全部楼层
在引用里!
还有,我要说一点就是,你这样的声明是不对的,这样只有kk是Integer。
Dim ii, jj, kk As Integer '循环用变量
应该是这样声明
Dim ii As Integer , jj As Integer , kk As Integer '循环用变量
回复

使用道具 举报

1

主题

7

帖子

1

银币

初来乍到

Rank: 1

铜币
11
发表于 2007-5-12 13:30:00 | 显示全部楼层
呵呵,都是菜鸟。应该先在VBA的菜单里有,找找吧。。。(呵呵,刚接触CAD VBA没几天,有个印象)
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 18:37 , Processed in 1.614755 second(s), 64 queries .

© 2020-2025 乐筑天下

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