Microsoft Excel - Excel vba vbe exporta importa modulo add plan
loop [Modo de Compatibilidade]
Produtos SaberExcelhttp://www.saberexcel.com.brPRODUTOS
SABEREXCELColeo 15.000 Macros Microsoft Excel VBADVD 14.000
Planilhas ExemplosMicrosoft Excel VBACurso CompletoMicrosoft Excel
VBADVD 1.800 Apostilas e Ebooks Microsoft Excel VBA e Excel
AvanadoCOMO FAZER - Programao Microsoft Excel VBA (Vrios
Mdulos)Seja um assinante do nosso sitePlanilhas de programao
fantsticasTudo sobre o Aplicativo Microsoft Excel VBAQualquer
dvida, visite nosso site ou envie-nos um
email.http://[email protected]
[email protected]://www.saberexcel.com.brhttp://www.saberexcel.com.br
ListaNovaSaberExcelVBASe ocorrer esse
erro:MacrosPlanilhasLinhasColunasCelulasComentariosDepurarProcedimentosRotinasSubRotinasFuncesFormulasLoopContadorDo_whileFor_nextFor_EachEnd_SubEnd_FunctionVBESuplementosBanco_de_DadosExemplo
de MoveMousePlanilhas26
Executar MacroEssa macro exportar o Mdulo 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 Mdulo do Path para onde exportou, e inserir em
todas as planilhas que sero criadas, (veja o loop no Macro).
No Novo livro criado com mdulo e macros vo ser copiados somente
as folhas de Planilhas (Menu e Auxiliar)E tambm voce poder importar
um mdulo com Macros determinadas para as Planihas criadas.
'Essa macro do Aplicativo microsoft Excel VBA,caso ocorra o erro
ao lado como mostra na figura --- veja acima como configurar seu
excel.Sub exportar_importar_modulo_bas()' Deletar todas cpias
antigas criadas de do mdulo saber1On Error Resume NextKill
("C:\vba\mdSaber1.bas")On Error GoTo 0' Exportando o Mdulo
'Saber1'ActiveWorkbook.VBProject.VBComponents("mdSaber1").Export
("C:\vba\mdSaber1.bas")
For sb = 1 To 26
vNomePlan = Sheets("ListaNova").Range("A" & sb).Value
'personalizando com cpia isso , a cpia so vai conter duas planilhas
Sheets(Array("Menu", "Plan")).Copy sbNome = ActiveWorkbook.Name '
novo livro nome 'Importando novamente o mdulo e inserindo no novo
Livro copiado 'importa para todos os livros copiados
Application.VBE.ActiveVBProject.VBComponents.Import
("C:\vba\mdSaber1.bas") ActiveWorkbook.SaveAs Filename:=vNomePlan
ActiveWorkbook.Close Next sb
Kill ("C:\vba\mdSaber1.bas")End SubSe ocorrer esse erro da
figura abaixo voce dever habilitar os tens Hablitar Macros e
Confiar no Acesso ao modelo de Objeto Projeto VBA
Arquivo ou boto office(2007) > Opes > Central de
confiabilidade > Configuraes da Central de Confiabilidade >
Configurao de Macro > Habilitar todas as macros > CONFIGURAES
DE MACRO DO DESENVOLVEDOR > Confiar no Acesso ao modelo de
Objeto Projeto VBA- com esse procedimento no ocorrer mais o erro
Ok. Fique com Deus - Expedito Marcondes
MenuO MACRO IMPORTAR O ARQUIVO .BAS PARA DISPONIBILIZAR OS
MACROS NESTA PLANILHAPLANILHA MENU
Executar Macro
AuxiliarO MACRO IMPORTAR O ARQUIVO .BAS PARA DISPONIBILIZAR OS
MACROS NESTA PLANILHAPLANILHA AUXILIAR
Executar Macro
