Verificar todas as planilhas no diretorio

 

Introdução e configuração sobre planilhas no diretorio

 

O código abaixo irá verificar todas as planilhas no diretorio que sua planilha principal está localizada
Com isso você pode mostrar em um combobox ou então abrir cada planilha

Para o codigo especificamente funcionar é necessário ter no mesmo diretorio da planilha (ja salva) uma pasta com nome “bases”.
Dentro desta pasta então coloque seus arquivos (no codigo esta xls, mas pode trocar para txt)

 

Tendo esta configuração de diretorio, basta copiar o codigo vba e inserir em uma planilha com qualquer nome.
O codigo somente verifica arquivos, para abrir arquivo de texto , por exemplo, veja outros posts : Abrir arquivo de texto. Mais abaixo segue video para facilitar o entendimento e trazer observações.

 

Codigo VBA para enxergar arquivos no diretorio

________________________________________

sub diretorio ()

Dim nomeArquivo As String

nomeArquivo = ActiveWorkbook.Name
num1 = Len(ActiveWorkbook.FullName)
num2 = Len(nomeArquivo)
tamanho = num1 - num2
enderecoArquivo = Left(ActiveWorkbook.FullName, tamanho)

'abaixo estou dizendo para verificar dentro de uma pasta chamado bases
'no local onde esta o arquivo

qtdeBases = enderecoArquivo + "bases\"   
nomePlanilha = Dir(qtdeBases & "*.xls*")

Do While Len(nomePlanilha) > 0
'[ codigo que voce desejar....exemplo abrir planilha]
nomePlanilha = Dir()
Loop

end sub

 

Video com detalhes VBA