VBA Excel - Capturando todas as planilhas de um diretorio

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

DESENVOLVO APLICAÇÕES VBA

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

Você tem direito as informações da sua empresa

Capturando o nº de arquivos em um diretório.

Eis a solução:

sub diretorio ()

Dim nFile As String

Dim nAddress As String

Let nFile = ActiveWorkbook.Name

Let nAddress = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) – Len(nFile))

Let qtdeBases = nAddress + "bases"

Let nFile = Dir(qtdeBases & "*.xls*")

Do While Len (nomePlanilha) > 0

Let nFile = Dir()

Loop

end sub

Tags: VBA, excel, files