voltar


 Questão 4:
 
 Tenho quatro arquivos. Para simplificar vamos chama-los de AA.xls, BB.xls, CC.xls e DD.xls. Executo uma macro para o arquivo AA.xls. Faço o mesmo em relação ao arquivo BB.xls. Grupo os resultados obtidos quando abro o arquivo CC.xls. O arquivo DD.xls importa os dados anteriores e executa outra série de calculos. Este processo, alem de demorado é trabalho so. É possivel fazer um programa que execute o mesmo serviço sem interrupção ?
 
 Solução 4:
 
 Suponhamos que a macro que manipula os dados do arquivo AA.xls seja a macro MacroAA, da mesma forma, seja MacroBB a macro que manipula os dados do arquivo BB.xls, e assim por diante.
 
 Suponhamos que seus arquivos AA.xls ... DD.xls estão no diretório C:Documents. Abra um novo arquivo (NovoArquivo.xls) e use como modelo de desenvolvimento a macro TestandoOperação( ) que abre o arquivo AA.xls faz os cálculos necessários e fecha o arquivo quando conclui o serviço. O modêlo abaixo para o arquivo AA.xls deve ser extendido aos demais arquivos.
 
 Sub TestandoOperação( )
 Dim Arquivo as string, diretorio as String
 Arquivo = "AA.xls"
 diretorio = "C:Documents"
 Workbooks.Open diretorio & Arquivo
 Application.Run Macro:=Arquivo + "!MacroAA"
 Windows(Arquivo).Close
 End Sub
 

                                                                                     Voltar