Code-Modul von einem Projekt ins andere?

30/10/2008 - 23:03 von Günter Gerold | Report spam
Hallo NG,

in einem Addin habe ich ein Modul, das ich in das aktuelle Projekt kopieren will.

Jedoch schaffe ich es im Moment nur mit dem Umweg Export->Import

Application.VBE.VBProjects(getProjectNumber).VBComponents.Export("Test.bas")
Application.VBE.ActiveVBProject.VBComponents.Import("Test.bas")

Geht das auch hübscher?

Günter
 

Lesen sie die antworten

#1 Günter Gerold
31/10/2008 - 00:23 | Warnen spam
Hallo,

natürlich alles Rossmist.

So gehts, jedoch unschön mit Datei:

Private Function getProjectNumber() As Integer

Dim i As Integer

For i = 1 To CurrentProject.Application.VBE.VBProjects.count
If CurrentDbC.Name = Application.VBE.VBProjects(i).FileName Then
getProjectNumber = i
Exit For
End If
Next

End Function

Public Function copyModule(ModuleName As String)
Dim vbComp As VBIDE.VBComponent
Dim i As Integer
i = 1
For Each vbComp In Application.VBE.ActiveVBProject.VBComponents
If vbComp.Name = ModuleName Then
Application.VBE.ActiveVBProject.VBComponents(i).Export ("c:\Test.bas")
Exit For
End If
i = i + 1
Next
For Each vbComp In Application.VBE.VBProjects(getProjectNumber).VBComponents
If vbComp.Name = ModuleName Then Exit Function
Next
Application.VBE.VBProjects(getProjectNumber).VBComponents.Import ("c:\Test.bas")
End Function

Günter

Ähnliche fragen