Macro para percorrer todas as planilhas em uma pasta de trabalho

Resumo

Este artigo contém uma macro do Microsoft Visual Basic for Applications (procedimento Sub) que percorre todas as planilhas na pasta de trabalho ativa. Essa macro também exibe o nome de cada planilha.

Informações adicionais

A Microsoft fornece exemplos de programação apenas por questões ilustrativas, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a garantias implícitas de comercialização ou adequação a um determinado propósito. Este artigo pressupõe que você conhece a linguagem de programação demonstrada e também as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas. Para testar as macros de exemplo, execute as seguintes etapas:

1. Digite o seguinte código de macro em um novo módulo de planilha.
   
   

         Sub WorksheetLoop()
   
            Dim WS_Count As Integer
            Dim I As Integer
   
            ' Set WS_Count equal to the number of worksheets in the active
            ' workbook.
            WS_Count = ActiveWorkbook.Worksheets.Count
   
            ' Begin the loop.
            For I = 1 To WS_Count
   
               ' Insert your code here.
               ' The following line shows how to reference a sheet within
               ' the loop by displaying the worksheet name in a dialog box.
               MsgBox ActiveWorkbook.Worksheets(I).Name
   
            Next I
   
         End Sub
   

2. Para executar a macro, posicione o ponto de inserção na linha "Sub WorksheetLoop()" e pressione F5.
   

A macro percorrerá a pasta de trabalho e exibirá uma caixa de mensagem com um nome de planilha diferente a cada vez que for executada. Observe que essa macro exibirá apenas os nomes de planilha; não exibirá os nomes de outros tipos de planilhas na pasta de trabalho.


Você também pode percorrer todas as planilhas na pasta de trabalho usando um loop "For Each".

1. Digite o seguinte código de macro em um novo módulo de planilha.
   
   

         Sub WorksheetLoop2()
   
            ' Declare Current as a worksheet object variable.
            Dim Current As Worksheet
   
            ' Loop through all of the worksheets in the active workbook.
            For Each Current In Worksheets
   
               ' Insert your code here.
               ' This line displays the worksheet name in a message box.
               MsgBox Current.Name
            Next
   
         End Sub
   

2. Para executar a macro, posicione o ponto de inserção na linha "sub WorksheetLoop2()" e pressione F5.
   

Essa macro funciona de forma idêntica à macro WorksheetLoop, exceto por usar um tipo diferente de loop para processar todas as planilhas na pasta de trabalho ativa.

Referências

Para obter mais ajuda com o Visual Basic for Applications, consulte o seguinte artigo na Base de Dados de Conhecimento da Microsoft:

163435 VBA: Recursos de programação para Visual Basic for Applications

226118 OFF2000: Recursos de programação para Visual Basic for Applications