O nome do arquivo é retornado como uma String. A função Dir pode ser usada sem os respectivos argumentos para retornar o nome do próximo arquivo, neste mesmo diretório.
O uso mais comum da função Dir é percorrer todos os arquivos de uma pasta, executando uma ação em cada um. Outros usos comuns incluem a verificação da existência destes, saber se um diretório existe, ou procurar um arquivo específico.
O uso mais comum da função Dir é percorrer todos os arquivos de uma pasta, executando uma ação em cada um. Outros usos comuns incluem a verificação da existência destes, saber se um diretório existe, ou procurar um arquivo específico.
Listar os arquivos de uma pasta em uma planilha
Sub ListFiles()Dim MyDirectory As String 'Folder containing the filesDim MyFile As String 'The filename to enter on the worksheetDim NextRow As Long 'The row for the next filename in listMyDirectory = "C:\ExcelFiles" 'Assign directory to MyDirectory variableMyFile = Dir(MyDirectory) 'Dir gets the first file in the folder'Find the next empty row in the list and store in NextRow variableNextRow = Application.CountA(Range("A:A")) + 1Do Until MyFile = ""Cells(NextRow, 1).value = MyFileNextRow = NextRow + 1 'Move to the next rowMyFile = Dir 'Dir gets the name of next file in the folderLoopEnd Sub
Tags:
Nenhum comentário:
Postar um comentário