Aggiungi una procedura a un modulo utilizzando VBA in Microsoft Excel

Anonim

È possibile aggiungere codice a un modulo senza utilizzare un file di testo separato che contenga il codice.
La macro seguente mostra come eseguire questa operazione. La macro deve essere personalizzata per contenere il codice che si desidera aggiungere:

Sub InsertProcedureCode(ByVal wb As Workbook, ByVal InsertToModuleName As String) ' inserisce il nuovo codice nel modulo denominato InsertModuleName in wb ' deve essere personalizzato a seconda del codice da inserire Dim VBCM As CodeModule Dim InsertLineIndex As Long On Error Riprendi Avanti Imposta VBCM = wb.VBProject .VBComponents(InsertToModuleName).CodeModule If Not VBCM Is Nothing Then With VBCM InsertLineIndex = .CountOfLines + 1 ' personalizza le righe successive a seconda del codice che vuoi inserire .InsertLines InsertLineIndex, "Sub NewSubName()" & Chr(13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ " Msgbox ""Hello World!"",vbInformation,""Message Box Title""" & Chr(13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr( 13) 'non c'è bisogno di ulteriori personalizzazioni End With Set VBCM = Nothing End If On Error GoTo 0 End Sub

Esempio:

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