如何在程序中获得已经加载的dvb文件的路径，谢谢

mysunrises

如何在程序中获得已经加载的dvb文件的路径，谢谢

mccad

2. Public Function GetVBAProjects()
3.       
4.        Dim i As Long, projects() As String       Dim objIDE As Object
5.       
6.        Set objIDE = Application.vbe
7.       
8.        ReDim projects(0 To objIDE.VBProjects.Count - 1, 1)
9.    On Error Resume Next
10.        For i = 0 To objIDE.VBProjects.Count - 1
11.                projects(i, 0) = objIDE.VBProjects(i + 1).Name
12.                projects(i, 1) = objIDE.VBProjects(i + 1).FileName
13.        Next
14.       
15.        GetVBAProjects = projects
16.       
17. End Function

Public Function GetVBAProjects()               Dim i As Long, projects() As String       Dim objIDE As Object               Set objIDE = Application.vbe               ReDim projects(0 To objIDE.VBProjects.Count - 1, 1)    On Error Resume Next        For i = 0 To objIDE.VBProjects.Count - 1                projects(i, 0) = objIDE.VBProjects(i + 1).Name                projects(i, 1) = objIDE.VBProjects(i + 1).FileName        Next               GetVBAProjects = projects        End Function