Views

Histats

Vitrine

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



LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...