Neste tutorial, você aprenderá como obter nomes de todos os arquivos em uma pasta e colocá-los em uma planilha.
Em vez disso, se você quiser aprender como verificar se um arquivo existe, você pode clicar neste link: Arquivo VBA existe
Usando o FileSystemObject para obter a lista de arquivos em uma pasta
O VBA permite que você liste todos os arquivos de uma pasta, usando o FileSystemObject.
Mostraremos como obter uma lista de arquivos na pasta Pasta C: \ VBA e coloque-o na primeira coluna da planilha. Esta pasta consiste em 5 arquivos, conforme mostrado na Imagem 1:
Imagem 1. Arquivos na pasta C: \ VBA Folder
Aqui está o código:
| 1234567891011121314151617181920 | Sub LoopThroughFiles ()Dim oFSO As ObjectDim oFolder As ObjectDim oFile As ObjectDim i As IntegerDefina oFSO = CreateObject ("Scripting.FileSystemObject")Defina oFolder = oFSO.GetFolder ("Pasta C: \ VBA")Para cada oFile em oFolder.FilesCélulas (i + 1, 1) = oFile.Nomei = i + 1Próximo oFileEnd Sub |
No exemplo, primeiro crie um objeto da classe Scripting.FileSystemObject:
| 1 | Defina oFSO = CreateObject ("Scripting.FileSystemObject") |
Em seguida, defina a pasta usando o método GetFolder:
| 1 | Defina oFolder = oFSO.GetFolder ("Pasta C: \ VBA") |
Próximo loop em cada arquivo em oFolder, usando oFile.Name para obtenha o nome de cada arquivo na pasta e escreva-o na próxima linha vazia:
| 123456 | Para cada oFile em oFolder.FilesCélulas (i + 1, 1) = oFile.Nomei = i + 1Próximo oFile |
Imagem 2. Planilha com a lista de arquivos na pasta
Como você pode ver na Imagem 2, todos os 5 arquivos da pasta C: \ VBA estão listados na primeira coluna.
