Kodu içeren ayrı bir metin dosyası kullanmadan bir modüle kod ekleyebilirsiniz.
Aşağıdaki makro bunun nasıl yapılabileceğini gösterir. Makro, eklemek istediğiniz kodu içerecek şekilde özelleştirilmelidir:
Sub InsertProcedureCode(ByVal wb As Workbook, ByVal InsertToModuleName As String) ' wb'deki InsertModuleName adlı modüle yeni kod ekler ' Dim VBCM'yi CodeModule olarak eklemek için koda bağlı olarak özelleştirilmesi gerekiyor Dim InsertLineIndex Hata Devam Ettiği Süre Sonraki Set VBCM = wb.VBProject .VBComponents(InsertToModuleName).CodeModule Değilse VBCM Hiçbir Şey Değilse VBCM ile InsertLineIndex = .CountOfLines + 1 ' eklemek istediğiniz koda göre sonraki satırları özelleştirin .InsertLines InsertLineIndex, "Sub NewSubName()" & Chrx13) InsertLineInde = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ " Msgbox ""Merhaba Dünya!"",vbInformation,""Mesaj Kutusu Başlığı""" & Chr(13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr( 13) ' daha fazla özelleştirmeye gerek yok End With Set VBCM = Hata Onsa Hiçbir Şey Bitmez GoTo 0 End Sub
Örnek:
InsertProcedureCode Çalışma Kitapları("WorkBookName.xls"), "Module1"