我采用vba调用Arctoolbox中的工具，出现自动化错误怎么解决？

  
<P>代码如下</P>
<P>'面由节点打断生成线</P>
<P>Public Sub SplitPolyline(inFile As String, outFile As String)<BR>  Dim GP As Object<BR>  Set GP = CreateObject("esriGeoprocessing.GpDispatch.1")<BR>  GP.Toolbox = "C:\Program Files\ArcGIS\ArcToolbox\Toolboxes\Data Management Tools.tbx"<BR>  GP.splitline inFile, outFile<BR>End Sub</P>
<P>当我调用这个函数的时候！有的时候能运行！有的时候却显示：</P>
<P>运行时错误-2147467259，自动化（Animation）错误。</P>
<P>一般第一次打开Arcgis，运行VBA调用它可以成功，但是第二次第三次运行VBA就不行了！怎么回事？</P>
<P>我想求各位大虾帮忙！在下感激涕零！</P>
<img src="images/post/smile/dvbbs/em12.gif" />

<P>怎么没人帮忙啊！提示一下啊！谢谢了！很着急啊！</P>