Views

Histats

Vitrine

VBA Excel - Adicionando um conteúdo para um módulo a partir de um arquivo - Add content to a module from a file using VBA in Microsoft Excel

Inline image 1

Ao efetuar a manutenção de uma aplicação talvez não desejemos importar todo um módulo, mas apenas algumas funcionalidades ou processos deste.

Selecionamos então as funcionalidades que desejamos e as colamos em um arquivo texto externo. Com o código abaixo somos capazes de importar o arquivo externo, inserindo o código dele no módulos que selecionarmos: ImportModuleCode ActiveWorkbook, "mdl_ExternalCode", "C:\Bernardes\nCodes.txt"


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

' imports code to ModuleName in wb from a textfile named ImportFromFile
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


Reference:
Tags:    VBA, Excel, content, add, module, módulo, adicionar, Module, conteúdo, Modules, Class Modules in VBA,  

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...