VBA Excel - Adicione um Módulo a partir de um arquivo texto - Add content to a module from a file using VBA in Microsoft Excel


O código postado neste artigo é para quem tem inúmeros módulos de código VBA prontos em diversas aplicações e vez por outra deseja importar parte desses códigos para acelerar o desenvolvimento.

Examplo:

ImportModuleCode ActiveWorkbook, "TModule", "C:\Bernardes\NovosCodigos.txt"

Sub ImpModuleCod (ByVal wb As Workbook, _
    ByVal ModuleName As String, ByVal ImportFromFile As String)

Dim VBCM As CodeModule

    If Dir(ImportFromFile) = "" Then Exit Sub
    On Error Resume Next
    Set VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule
    If Not VBCM Is Nothing Then
        VBCM.AddFromFile ImportFromFile

        Set VBCM = Nothing
    End If

    On Error GoTo 0

End Sub

  TagsModules, Class Modules in VBA, VBA, Excel, import, code, 
    

Nenhum comentário:

Postar um comentário

diHITT - Notícias