Module exportieren
09.05.2013 19:03:23
ing.grohn
folgendes Modul hab ich aus dem Archiv:
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
das Modul steigt in der Zeile: For Each objVBComponent In objWorkbook.VBProject.VBComponents
mit der Fehlermeldung "Die Methode 'VbProject' für das Object '_Workbook' ist fehlgeschlagen" aus.
Warum? bzw welche Verweise müssen angehakt sein?
Vielen Dank für Eure Mühe!!
Mit freundlichen Grüßen
Albrecht