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.

...

29 de março de 2013

VBA Excel - Capturando todas as planilhas de um diretorio

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


Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine