[求助]：程序的调用路径问题

gdzhou

2. 
   
3. 
   
4. Sub tksc()
   
5. Dim fn As String
   
6. fn = ThisDrawing.Application.VBE.activevbproject.FileName
   
7. if fn<>"" then ThisDrawing.Utility.Prompt fn & vbCrLf
   
8. End sub
   

<br /> <br /> Sub tksc()<br /> Dim fn As String<br /> fn = ThisDrawing.Application.VBE.activevbproject.FileName<br /> if fn<>"" then ThisDrawing.Utility.Prompt fn & vbCrLf<br /> End sub<br />

我在菜单中加了一个命令来直接调用，
-vbarun 500-2000tk.dvb!ThisDrawing.tksc

为什么在点第二次的时候才会把路径取得成功并显示出来呢？

如果先加载程序，再按Alt+F8运行就不会出现这种情况。

请高手帮忙给点建议怎么使用菜单调用的时候，第一次就可以把路径取得成功。。

iflinjp

up，路过