Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Donativo

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


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine