Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

15 de julho de 2013

VBA Excel - Listando todas as Abas disponíveis - List Of Available Tabs In Vba


Talvez precise preencher uma matriz com o nome de todas as abas de uma planilha, ou um listbox que será a base do menu, ou mesmo ordenar as sheets. Sim, é básico, mas útil.

Como listar o nome de todas as abas (worksheets) de uma planilha (workbook), na aba atual (sheet):

Sub ListAllSheet() 
    Dim StrSheets() As String 
    Dim OSheet As Object 
    Dim lCount As Long 
     
    Redim StrSheets(Sheets.Count - 1) 
     
    For Each OSheet In Sheets 
        Let StrSheets(lCount) = OSheet.Name 
        Let lCount = lCount + 1 
    Next OSheet 
     
    For lCount = LBound(StrSheets) To UBound(StrSheets) 
       Let Cells(lCount + 1, 1) = StrSheets(lCount) 
    Next lCount 
     
End Sub 

Tags: Sheet, VBA, Excel, worksheet, workbook



Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine