Home Excel - Dicas Microsoft Excel VBA Excel VBA - VBE Excel planiha vba vbe exporta importa modulo add plan loop

Excel planiha vba vbe exporta importa modulo add plan loop

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), exportará o Módulo VBE (*.bas) para determinada pasta  no path atribuido no macro.  Criará 26 - Planilhas com os nomes aos lados , salvará as planihas em uma pasta. 
O macro Importará o Mesmo Módulo do Path para onde exportou, e inserirá em todas as planilhas que serão criadas, (veja o loop no Macro).

No Novo livro criado com módulo e macros vão ser copiados somente as folhas de Planilhas (Menu e Auxiliar)
Ai você pode até questinar o que faço com isso?  a principal intenção do exemplo mostrar que funciona, outra as possibilidades de voce desenvolver uma planilha e para cópia precisar importar um módulo personalizado.

Suponhamos que você desenvolva um projeto que  crie uma cópia do livro com macros personalizadas importando um módulo(*.Bas) desejado para essa cópia, e delete todas os vestigios da planilha original no computador do usuário.  O usuário ficará somente com a planilha cópia com os macros personalizados. Observe que essa são uma das muitas possibilidades, mas com um pouco de criatividade poderá encontrar centenas de aplicações para esse exemplo. Espero que o exemplo os ajude. Fique com Deus, Boa sorte.
Expedito Marcondes

Sub exportar_importar_modulo_bas()
' Deletar todas cópias antigas criadas de do módulo saber1
On Error Resume Next
Kill ("C:\vba\mdSaber1.bas")
On Error GoTo 0
' Exportando o Módulo 'Saber1'(VBE)
ActiveWorkbook.VBProject.VBComponents("mdSaber1").Export ("C:\vba\mdSaber1.bas")

For sb = 1 To 26

    vNomePlan = Sheets("ListaNova").Range("A" & sb).Value
  
  'personalizando com cópia
    Sheets(Array("Menu", "Auxiliar")).Copy
   
    sbNome = ActiveWorkbook.Name  '
novo livro nome
    'Importando novamente o módulo e inserindo no novo Livro copiado
   
'importa para todos os livros copiados
    On Error GoTo sbx
    Application.VBE.ActiveVBProject.VBComponents.Import ("C:\vba\mdSaber1.bas")
    ActiveWorkbook.SaveAs Filename:=vNomePlan & sb
'acrescenta numeracao ao nome da planiha
   
    ActiveWorkbook.Close
   
Next sb
sbx:     Exit Sub
Kill ("C:\vba\mdSaber1.bas")

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





  Baixe o exemplo de planiha contendo os macros acima
Excel planilha vba vbe exporta importa modulo add plan loop (89.2 KB)


Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Sex, 26 de Agosto de 2011 08:53  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Excelente material, o DVD das Planilhas é simplesmente ótimo, uma bíblia do Excel, tem me ajudado muito, muito bom, parabéns!!...

Marcos F. K. Bergany - Florianópolis/SC
19 April 2010
Parabéns pelos produtos didáticos, gostei muito do curso completo ms excel vba, hoje estou praticando com macros, aprendi muito. Obrigado. Osvaldo São Paulo....

Osvaldo Oliveira
16 November 2011

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA