Thêm thủ tục vào mô-đun bằng VBA trong Microsoft Excel
Bạn có thể thêm mã vào mô-đun mà không cần sử dụng tệp văn bản riêng có chứa mã.
Macro bên dưới cho thấy cách này có thể được thực hiện. Macro phải được tùy chỉnh để chứa mã bạn muốn thêm:
Sub InsertProcedureCode(ByVal wb As Workbook, ByVal InsertToModuleName As String) ' inserts new code in module named InsertModuleName in wb ' needs customizing depending on the code to insert Dim VBCM As CodeModule Dim InsertLineIndex As Long On Error Resume Next Set VBCM = wb.VBProject.VBComponents(InsertToModuleName).CodeModule If Not VBCM Is Nothing Then With VBCM InsertLineIndex = .CountOfLines + 1 ' customize the next lines depending on the code you want to insert .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) ' no need for more customizing End With Set VBCM = Nothing End If On Error GoTo 0 End Sub
Ví dụ:
InsertProcedureCode Workbooks("WorkBookName.xls"), "Module1"