mysunrises 发表于 2004-5-9 18:06:00

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

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

mccad 发表于 2004-5-9 21:20:00

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
页: [1]
查看完整版本: 如何在程序中获得已经加载的dvb文件的路径，谢谢