Hinzufügen einer Prozedur zu einem Modul mit VBA in Microsoft Excel

Anonim

Sie können einem Modul Code hinzufügen, ohne eine separate Textdatei zu verwenden, die den Code enthält.
Das folgende Makro zeigt, wie dies möglich ist. Das Makro muss so angepasst werden, dass es den Code enthält, den Sie hinzufügen möchten:

Sub InsertProcedureCode(ByVal wb As Workbook, ByVal InsertToModuleName As String) ' fügt neuen Code in Modul namens InsertModuleName in wb ein ' muss je nach Code angepasst werden Dim VBCM As CodeModule Dim InsertLineIndex As Long On Error Resume Next Set VBCM = wb.VBProject .VBComponents(InsertToModuleName) = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ " Msgbox ""Hello World!"",vbInformation,""Message Box Title""" & Chr(13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr( 13) ' keine weiteren Anpassungen erforderlich End With Set VBCM = Nothing End If On Error GoTo 0 End Sub

Beispiel:

InsertProcedureCode Workbooks("WorkBookName.xls"), "Module1"