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
________________________________________
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
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