<P>谢谢5楼<A name=82220><FONT color=#000066><B>xinghesnak</B></FONT></A>的程序。</P>
<P>我的问题是在excel下如何判断acad已经运行？</P>
<P>哦,就用这个吧</P>
<P>dim acad as object</P>
<P>on error resume next</P>
<P>set acad=getobject(,"acad.application")</P>
<P>if err then set acad=createobject("acad.application")</P>
<P>on error goto 0</P>
<P>如果err有错误值就证明没运行acad,如果没有err,证明acad已经运行了..</P>
<P> </P>