zhubin841127 发表于 2007-5-11 21:56:00

[原创]请AUTOCAD VBA高手进来看看！！

<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 我现在正在做一个软件包！要求用AUTOCAD VBA绘制应力弧垂曲线！现已经把EXCEL数据给我,要求开发的程序引用EXCEL后，运行程序能够获得曲线！我大致编了程序，界面已做好，运行后提示说用户定义类型未定义，我刚学了半个多月，实在不指导怎么处理！希望好手帮帮忙！一起探讨！<font face="黑体" size="7">我的QQ号码是323208679</font>，能帮忙的请联系我,我将把程序包括数据一起共享，来探讨,也请助我一力！</p><p>加我好友时请注明身份！谢谢！</p>

StartMe 发表于 2007-5-11 22:31:00

<p>你引用CAD相应版本的类型库了么？还是Excel的类型库？</p><p>是哪句出的问题？写出来。</p>

StartMe 发表于 2007-5-11 22:57:00

<p>看了你下面的贴，你没有引用Excel的类型库，</p><p>点击：工程－引用，如果你机器已安装Excel，那么会有Microsoft Excel x.0 Object Library的项，其中x跟你安装的Excel版本有关，选上这项就行了。</p>

zhubin841127 发表于 2007-5-11 23:24:00

<p>我选择了啊！确定后还是不能实现！</p>

zhubin841127 发表于 2007-5-11 23:31:00

<p>我后来重新用同样的方法做了一个界面！再代码窗口输入同样的代码！运行都他提示说<font color="#ee1111">用户定义类型未定义义</font>！！出现阴影的地方还是如下中的xlsApp As Excel.Application，只是不想上次那样说是不存在工程或库了！我茫然了！</p><p>Dim xlsApp As Excel.Application<br/>Dim xlsBook As Excel.Workbook<br/>Dim xlsheet As Excel.Worksheet<br/>Dim AllCount_row As Integer&nbsp; 'Excel表中数据行数<br/>Dim AllCount_column As Integer 'Excel表中数据列数<br/>Dim XX(0 To MAX_row) As Variant&nbsp; '档距值（XX（0）为文字说明）<br/>Dim YY(0 To MAX_row, 1 To MAX_column) As Variant '应力及</p>

zhubin841127 发表于 2007-5-11 23:33:00

<p>还有就是再AUTOCAD VBA的选项栏力好像没有工程这一选项！VB力是有！</p><p></p>

mccad 发表于 2007-5-12 06:57:00

没有工程，但在工具菜单下有“引用”项

zhubin841127 发表于 2007-5-12 12:19:00

我在工具菜单下引用了！我的版本是2004的，让后在引用项里是microsoft excel 10.0 object library，我选择了他！但是出现的以下提示：“名称与已在模块 ，工程，对象冲突！”请问这是不是版本问题！！该怎么解决！

cnks 发表于 2007-5-12 12:55:00

建议把工程发上来
页: [1]
查看完整版本: [原创]请AUTOCAD VBA高手进来看看！！