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

diHITT - Notícias