根据站内相关函数改编:
Sub dvbload()
Dim i As Integer
Dim objIDE As Object
Set objIDE = Application.VBE
ReDim projects(0 To objIDE.VBProjects.Count - 1, 1)
For i = 0 To objIDE.VBProjects.Count - 1
If objIDE.VBProjects(i + 1).Name = "mytools" Then Exit Sub '1
Next
End Sub
注释1处的name不是自己的mytools.dvb,而是acadproject,请问如何修改才能获得加载的dvb文件名?
name 是工程名称，filename 才是文件名，包含路径。
Sub dvbload()
Dim i As Integer
Dim objIDE As Object
Set objIDE = Application.VBE
For i = 0 To objIDE.vbprojects.count - 1
Debug.Print objIDE.vbprojects(i + 1).FileName
Debug.Print objIDE.vbprojects(i + 1).Name
Next
End Sub
置顶卡
