
Capturando o nº de arquivos em um diretório.
Eis a solução:
sub diretorio ()
Dim nFile As StringDim nAddress As StringLet nFile = ActiveWorkbook.NameLet 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