mingyu9608 发表于 2004-3-15 19:20:00

谁能帮帮我?关于EXCEL与CAD互相转换表格的问题.

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">由于工作的需要,现在正在学习VBA,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">我从论坛上下在了一个EXCEL与CAD互相转换表格的程序





<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">我试了一下。<o:p></o:p>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">由<FONT face="Times New Roman">excel</FONT>表生成<FONT face="Times New Roman">autocad</FONT>时出现错误。实时错误‘<FONT face="Times New Roman">9</FONT>’<FONT face="Times New Roman"> </FONT>下标越界<FONT face="Times New Roman">        <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">由<FONT face="Times New Roman">autocad</FONT>生成<FONT face="Times New Roman">excel</FONT>表怎么里面什么都没有啊。<o:p></o:p>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">ByVal x As Integer, ByVal y As Integer</FONT>是什么意思啊,为什么前面要加<FONT face="Times New Roman">ByVal </FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">下面这个是我用来测试的excel表。


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">

leeyeafu 发表于 2004-3-15 19:36:00

谁能帮帮我?关于EXCEL与CAD互相转换表格的问题.

实时错误‘9’ 下标越界问题:你的EXCEL文档没有名为“报价”的工作表,你将程序中代码With xcelapp.ActiveWorkbook.Worksheets("报价")改为With xcelapp.ActiveWorkbook.Worksheets("Sheet1")就可以了。ByVal表示用值传递方式在函数(过程)间传递参数,目的是保证函数内部不会修改外部变量,即程序中i、j变量值。用ByVal传递参数,即使函数内修改了参数x、y的值也不会影响函数外部的变量i、j。

cbse_smy 发表于 2004-3-20 19:05:00

<FONT face="Times New Roman">ByVal 表示传值参数 不加此表示值传地址,是VB默认的,表示对参数在函数过程会被改变。这和C语言是不同的。</FONT>
页: [1]
查看完整版本: 谁能帮帮我?关于EXCEL与CAD互相转换表格的问题.