Добавете процедура към модул, използвайки VBA в Microsoft Excel

Можете да добавите код към модул, без да използвате отделен текстов файл, който съдържа кода.
Макросът по -долу показва как това може да се направи. Макросът трябва да бъде персонализиран така, че да съдържа кода, който искате да добавите:

Sub InsertProcedureCode (ByVal wb Като работна книга, ByVal InsertToModuleName As String) 'вмъква нов код в модул с име InsertModuleName в wb' се нуждае от персонализиране в зависимост от кода, за да се вмъкне Dim VBCM като CodeModule Dim InsertLineIndex като дълго включено Грешка възобновяване Следващ набор VBCP = wBCM = .VBComponents (InsertToModuleName) .CodeModule Ако не VBCM е нищо, тогава с VBCM InsertLineIndex = .CountOfLines + 1 'персонализирайте следващите редове в зависимост от кода, който искате да вмъкнете. = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr 13) „няма нужда от повече персонализиране End with Set VBCM = Nothing End If On Error GoTo 0 End Sub

Пример:

Работни книги InsertProcedureCode ("WorkBookName.xls"), "Module1"