[求助]：如何得到vba程序所在的路径

hxg_888

在对话框中有一图片，单击时放大（新窗口）
可是如何得到路径（路径不是固定的）？
在VB里有APP.PATH，VBA怎么没有？

Laoyao

Function getFileName(index As Integer) As String
    On Error Resume Next
    getFileName = Application.VBE.VBProjects(index).FileName
   
End Function
Sub a()
Debug.Print getFileName(1)

End Sub

lijiao

最初由 hxg_888 发布
[B]在对话框中有一图片，单击时放大（新窗口）
可是如何得到路径（路径不是固定的）？
在VB里有APP.PATH，VBA怎么没有？ [/B]

下面的代码或许有用
VBA中

2. 
   
3.   [FONT=courier new]
   
4. Public Sub test()
   
5. Dim MyIDE As Object
   
6. Dim Pros As Object
   
7. Dim pro As Object
   
8. Set MyIDE = ThisDrawing.Application.VBE
   
9. Set Pros = MyIDE.vbprojects
   
10. 
    
11. For Each pro In Pros
    
12.    MsgBox pro.filename
    
13. Next pro
    
14. End Sub
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Sub test()<br /> Dim MyIDE As Object<br /> Dim Pros As Object<br /> Dim pro As Object<br /> Set MyIDE = ThisDrawing.Application.VBE<br /> Set Pros = MyIDE.vbprojects<br /> <br /> For Each pro In Pros<br />    MsgBox pro.filename<br /> Next pro<br /> End Sub<br />   [/FONT]<br />

VL中

2. 
   
3.   [FONT=courier new]
   
4. (setq pros (vlax-get-property myide 'vbprojects))
   
5. (setq out '() i 1)
   
6. (repeat (vla-get-count  pros)
   
7.   (setq pro (vla-item pros i))
   
8.   (setq out (cons (vlax-get-property pro 'filename) out))
   
9.   (setq i (1+ i))
   
10.   )
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> (setq pros (vlax-get-property myide 'vbprojects))<br /> (setq out '() i 1)<br /> (repeat (vla-get-count  pros)<br />   (setq pro (vla-item pros i))<br />   (setq out (cons (vlax-get-property pro 'filename) out))<br />   (setq i (1+ i))<br />   )<br />   [/FONT]<br />

Laoyao

to lijiao  
你的VBA程序需要加入容错处理,
因为没有SAVE的PRJECT是没有路径的.

lijiao

最初由 Laoyao 发布
[B]to lijiao  
你的VBA程序需要加入容错处理,
因为没有SAVE的PRJECT是没有路径的. [/B]

谢谢提醒。
好象这只能在ACAD2002以上版本运行。

hxg_888

非常感谢！！！！
to lijiao:
VL程序好象也有问题