objVBComponent.CodeModule

Tacker91 · 17. Januar 2011, 09:54

Hallo Forum,

also stehe im Moment vor einem Rätsel, und zwar geht es darum:

in Excel verwende ich diesen Code

Public Sub prcGenerate()
Dim objVBComponent As Object
Dim lngLine As Long
Dim blnFound As Boolean
For Each objVBComponent In ThisWorkbook.VBProject.VBComponents
With objVBComponent.CodeModule
For lngLine = 1 To .CountOfLines
If .ProcOfLine(lngLine, 0) = "Name deines Makros" Then 'hier den Namen deinens Makros einfügen
blnFound = True
Exit For
End If
Next
End With
Next
If Not blnFound Then
Set objVBComponent = ThisWorkbook.VBProject.VBComponents.Item("Modul4") ' hier den Ort wo es hingeschrieben werden soll
For Each objVBComponents In ThisWorkbook.VBProject.VBComponents
With objVBComponents.CodeModule
For X = 1 To .CountOfLines
Next
End With
Next
With objVBComponent.CodeModule
.InsertLines .CountOfLines + 1, ""
.InsertLines .CountOfLines + 1, "" 'Code in die Anführunszeichen schreiben
End With
End If
End Sub

so nun hab ich das etwas umgeschrieben um das in Inventor zu verwenden

Public Sub prcGenerate()
Dim objVBComponent As Object
Dim lngLine As Long
Dim blnFound As Boolean
For Each objVBComponent In ThisApplication.ActiveDocument.VBAProject.InventorVBAComponents
With objVBComponent.CodeModule
For lngLine = 1 To .CountOfLines
If .ProcOfLine(lngLine, 0) = "Arbeitsebenen_aus" Then 'hier den Namen deinens Makros einfügen
blnFound = True 'gefunden
Exit For
End If
Next
End With
Next
If Not blnFound Then
Set objVBComponent = ThisApplication.ActiveDocument.VBAProject.InventorVBAComponents.Item("Module1") For Each objVBComponents In ThisApplication.ActiveDocument.VBAProject.InventorVBAComponents
With objVBComponents.CodeModule
For X = 1 To .CountOfLines
Next
End With
Next
With objVBComponent.CodeModule
.InsertLines .CountOfLines + 1, "test"
.InsertLines .CountOfLines + 1, "test2" 'Code in die Anführunszeichen schreiben
End With
End If
End Sub

allerdings meckert er dann bei "With objVBComponent.CodeModule" mit dem Fehler:

Run-time error '438':

Object doesn´t suppot this property or method

hier bin ich jetzt mit meinem Latein am Ende

also Inventor hatt auch VBA mit eingebunden wie Excel

Vielen Dank euch schon mal im Vorraus