Como usar macros para criar livros do Excel
Às vezes você pode querer ou precisar para criar uma planilha do Excel de maneira automatizada. Por exemplo, pode ser necessário copiar os dados de uma tabela e colá-lo em uma pasta de trabalho recém-criado. Os seguintes macro copia um intervalo de células da folha ativa e cola os dados para um novo livro.
Como as obras de macro
Como você verá quando você ler através das linhas do código, esta macro é relativamente intuitiva:
Sub Macro1 () 'Passo 1 Copie as fichas ( "Exemplo 1") Intervalo.. ( "B4: C15") Copy'Step 2 Crie uma nova workbookWorkbooks.Add'Step 3 Cole o Destino dataActiveSheet.Paste: = Range ( " A1 ") 'Passo 4 Desligue aplicação alertsApplication.DisplayAlerts = False'Step 5 Salve o recém-criado workbookActiveWorkbook.SaveAs _Filename: =" C: Temp MyNewBook.xlsx "' Passo 6 ativar os alertas de aplicativos back onApplication.DisplayAlerts = TrueEnd Sub
Na Etapa 1, você simplesmente copiar os dados que varia de células B4 a C15. Note que você especificar a folha ea faixa pelo nome. Esta abordagem é uma prática recomendada ao trabalhar com vários livros abertos.
Na Etapa 2, você usa o método Add do objeto de pasta de trabalho para criar uma pasta de trabalho. O livro em branco é equivalente a escolher manualmente File-New-Blank Document na fita Excel.
Na Etapa 3, você usa o método Paste para enviar os dados copiados para a célula A1 da nova pasta de trabalho.
Preste atenção ao fato de que o código se refere ao objeto ActiveSheet. Quando você adiciona uma pasta de trabalho, o novo livro ganha imediatamente o foco, tornando-se o livro activo. (Excel faz o mesmo quando você adiciona uma pasta de trabalho manualmente.)
Na etapa 4 do código, você definir o método DisplayAlerts a False, efetivamente desligando as advertências de Excel. Você pode fazer isso, porque na próxima etapa do código, você salvar a pasta de trabalho recém-criado. Você pode executar essa macro várias vezes, caso em que o Excel tenta salvar o arquivo várias vezes.
O que acontece quando você tenta salvar uma pasta de trabalho várias vezes? É isso mesmo - Excel avisa que já existe um arquivo com esse nome e, em seguida, pergunta se você deseja substituir o arquivo existente anteriormente. Porque o seu objetivo é automatizar a criação da pasta de trabalho, você quer suprimir esse aviso.
No Passo 5, você salvar o arquivo usando o método SaveAs. Note que você digite o caminho completo do local de salvamento, incluindo o nome do arquivo final.
Porque você desligado altera aplicação no Passo 4, você precisa ativá-las novamente (ver Passo 6). Se não o fizer, o Excel continua a suprimir todos os avisos durante a sessão atual.
Como usar o macro
Para implementar essa macro, você pode copiar e colá-lo em um módulo padrão:
Ative o Editor do Visual Basic pressionando Alt + F11.
direita; clique no nome do projeto / pasta de trabalho na janela do projeto.
Escolha Inserir-Module.
Digite ou cole o código no módulo recém-criado.
Você provavelmente vai precisar para mudar o nome da folha, o endereço gama, e o local de salvamento.