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

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

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

  Tags: Modules, Class Modules in VBA, VBA, Excel, import, code,