Finding Activevbproject.filename

Question

I read the post between Caddcop andJohn, and followed the link, but it failed ? 
 
 Not sure of how old the link is but I did want to read the information. I checked to see if I could just message Caddcop, but name did not show up. 
 I was hoping someone could furnish a link that might still be good

Jon Summers · Accepted Answer

Robert Hook 's code worked fine for me. My VBA project is attached. 
 EnumerateVbaProjects.mvba 
 MicroStation key-in: 
 vba run [EnumerateVbaProjects]modMain.Main

Robert Hook · Answer

Hi Richard, 
 Here is a Microsoft VBA code snip I created to iterate all loaded VBA projects listing their full path and file names. 
 Make sure to add the Reference needed (in the code snip comment) to your VBA project then run. It runs fine in MicroStation V8i or CONNECT. 
 ' Add: Tools > References: "Microsoft Visual Basic for Application Extensibility 5.3"
Public Sub VBEProjectsList() ' WORKING: RH - 2013/10/14
 Dim oVBE As vbe
 Dim oProject As VBIDE.VBProject
 Dim iProjIdx As Integer
 Dim sProjIdx As String
 Set oVBE = Application.vbe
 For Each oProject In oVBE.VBProjects
 iProjIdx = iProjIdx + 1
 sProjIdx = "[" & iProjIdx & "] "
 Debug.Print sProjIdx & " Project Name: " & """" & oProject.Name & """" & ", FullPath: " & oProject.fileName
 Next
End Sub 
 
 HTH, Bob

Finding Activevbproject.filename

Top Replies