Neste artigo, criaremos uma macro para importar um módulo para a pasta de trabalho ativa.
Estaremos usando Filename.bas como um módulo, que queremos importar.
Clique no botão inserir para importar o módulo de Filename.bas para a pasta de trabalho ativa.
A pasta de trabalho contém apenas um módulo “MainModule”.
Depois de executar a macro, um novo módulo será importado de Filename.bas
Explicação lógica
Neste artigo, criamos duas macros, InsertVBComponent e Calling_Procedure
InsertVBComponent
Ele pega o nome da pasta de trabalho e o nome do arquivo como entradas e importa o módulo para a pasta de trabalho.
Calling_Procedure
É usado para chamar a macro InsertVBComponent com a pasta de trabalho ativa e Filename.bas como entradas.
Explicação do código
If Dir (CompFileName) "" Then
O código acima é usado para verificar se o nome do arquivo existe no diretório.
wb.VBProject.VBComponents.Import CompFileName
O código acima é usado para importar o módulo para a pasta de trabalho ativa.
Siga abaixo para o código
Option Explicit Sub InsertVBComponent (ByVal wb As Workbook, ByVal CompFileName As String) 'Insere o conteúdo de CompFileName como um novo componente na pasta de trabalho' CompFileName deve ser um componente VBA válido adequado para 'importar (um componente VBA exportado)' Verificar se o arquivo CompFileName existe If Dir (CompFileName) "" Then 'Ignorar erros On Error Resume Next' Insere o componente do arquivo wb.VBProject.VBComponents.Import CompFileName On Error GoTo 0 End If Set wb = Nothing End Sub Sub Calling_Procedure () 'Chamando o procedimento InsertVBComponent InsertVBComponent ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail