VBComponents

12/03/2015 - 13:49 von Peter Kraeft | Report spam
Hallo NG,

kann mir jemand einen Tipp für folgendes Problem geben?

Public Sub Alle_Module_exportieren()
Dim objVBComponents As Object
Dim strType As String
For Each objVBComponents In ThisWorkbook.VBProject.VBComponents
With objVBComponents.CodeModule
Select Case objVBComponents.Type
Case 1: strType = ".bas"
Case 2, 100: strType = ".cls"
Case 3: strType = ".frm"
End Select
Workbooks(1).VBProject.VBComponents(objVBComponents.Name).Export _
"C:\Code\" & objVBComponents.Name & strType
End With
Next
End Sub


Es gibt eine Fehlermeldung weil : objVBComponents : Nothing : Object

Verweise habe ich MS VBA Extensibility x.x aktiviert.

Ich benutze Excel 2013.

Viele Grüße

Peter
 

Lesen sie die antworten

#1 Claus Busch
12/03/2015 - 15:01 | Warnen spam
Hallo Peter,

Am Thu, 12 Mar 2015 05:49:33 -0700 (PDT) schrieb Peter Kraeft:

Es gibt eine Fehlermeldung weil : objVBComponents : Nothing : Object



nicht in 2013 getestet, aber in den anderen Versionen làuft:

Public Sub Alle_Module_exportieren()
Dim objVBComponents As Object
Dim strType As String
For Each objVBComponents In ThisWorkbook.VBProject.VBComponents
With objVBComponents
Select Case .Type
Case 1: strType = ".bas"
Case 2, 100: strType = ".cls"
Case 3: strType = ".frm"
End Select

ThisWorkbook.VBProject.VBComponents(objVBComponents.Name).Export _
"C:\Code\" & objVBComponents.Name & strType
End With
Next
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen