Um Excel Macro para imprimir todos os livros em um diretório
Se você precisa imprimir a partir de várias planilhas do Excel em um diretório, você pode usar a macro aqui apresentado para imprimi-los todos de uma vez.
Como as obras de macro
Nesta macro, você usa a função Dir para devolver uma cadeia que representa o nome do arquivo que corresponde ao que você passar para ele.
Você usar a função Dir para enumerar todos os arquivos .xlsx em um determinado diretório, capturando o nome de cada arquivo. Então você abrir cada arquivo, imprimi-lo e fechá-lo.
Sub Macro1 () 'Passo 1: Declare seus MyFiles variablesDim Como String'Step 2: especificar um directoryMyFiles target = Dir ( "C:. Temp * xlsx") Do While MyFiles lt;> "" 'Etapa 3: Abrir pastas de trabalho, um por oneWorkbooks.Open "C: Temp " MyFilesActiveWorkbook.Sheets ( "Sheet1") Cópias de Imprimir:. = 1ActiveWorkbook.Close SaveChanges: = False'Step 4: próximo arquivo na directoryMyFiles = DirLoopEnd Sub
Passo 1 declara a variável MyFiles String que irá capturar cada nome de arquivo na enumeração.
Passo 2 utiliza a função Dir para especificar o tipo de arquivos e diretórios que você está procurando. Observe que o código está procurando * .xlsx, portanto, apenas xlsx arquivos será transmitido. Se você quer olhar para arquivos .xls, você precisará especificar que (juntamente com o diretório que você precisa procurar). A macro passa qualquer nome de arquivo que encontra à variável MyFiles cadeia.
Passo 3 abre o arquivo e, em seguida, imprime uma cópia de Sheet1. Escusado será dizer, você provavelmente vai querer mudar o que as folhas para imprimir. Você também pode alterar o número de cópias a serem impressas.
Passo 4 loops de volta para encontrar mais arquivos. Se não houver mais arquivos, a variável MyFiles está em branco eo loop eo fim macro.
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, modificando a instrução de impressão conforme necessário.