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

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

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