AW: K.A., viell Import? Übrigens hast du für...
16.12.2010 11:03:59
Sascha
hallo luc...
ja jetzt versteh ich so langsam was du meinst :) -- (werd auch mein status bei excel vba runtersetzen :) )
also ich habs jetzt so gelöst...codezeilen hier im archiv gefunden von nepumuk:
Module Exportieren:
Public Sub prcExort()
Dim objVBComponent As Object
Dim objWorkbook As Workbook
Dim strType As String
Set objWorkbook = ActiveWorkbook
For Each objVBComponent In objWorkbook.VBProject.VBComponents
With objVBComponent.CodeModule
Select Case objVBComponent.Type
Case 1
strType = ".bas"
Case 2, 100
strType = ".cls"
Case 3
strType = ".frm"
End Select
objWorkbook.VBProject.VBComponents(objVBComponent.Name).Export _
"C:\Export\" & objVBComponent.Name & strType
End With
Next
End Sub
Module Importieren: (Wobei ich hier auf den Import von .cls dateien verzichte)
Public Sub prcImport()
Dim objVBComponents As Object, strFilename As String
With ActiveWorkbook.VBProject
For Each objVBComponents In .VBComponents
Select Case objVBComponents.Type
Case 1, 2, 3
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Case 100
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
strFilename = Dir$("C:\Gerling\GK\60_Kunden\6020_Dokumentation (Entwicklung)\! _
_Dokumentation\Neue Doku mit O2010\Vorlagen_Doku_Office 2010\ABFRAGEMASKE\ExportOfficebsp\" & "*.*")
Do While strFilename ""
If UCase$(Right$(strFilename, 4)) = ".BAS" Or _
UCase$(Right$(strFilename, 4)) = ".FRM" Then
.VBComponents.Import "C:\Export\" & strFilename
End If
strFilename = Dir$
Loop
On Error Resume Next
For Each objVBComponents In .VBComponents
If objVBComponents.Type = 2 Then
Err.Clear
If Left$(objVBComponents.Name, 17) = "DieseArbeitsmappe" Or _
Left$(objVBComponents.Name, 7) = "Tabelle" Or _
Left$(objVBComponents.Name, 8) = "Diagramm" Then
.VBComponents(Left$(objVBComponents.Name, Len(objVBComponents.Name) - 1)). _
_
CodeModule.InsertLines 1, objVBComponents.CodeModule.Lines( _
1, objVBComponents.CodeModule.CountOfLines)
If Err.Number = 0 Then
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Else
Debug.Print objVBComponents.Name
End If
End If
End If
Next
End With
End Sub
liebe grüße
Sascha
