Como copiar a lista de todos os nomes de arquivos em uma pasta para a planilha do Excel via VBA

Coletar todos os nomes de arquivos em uma planilha é muito importante para o seu trabalho. Neste artigo, apresentaremos um método para inserir todos os nomes de arquivos em uma planilha usando a macro VBA.

Em nosso artigo anterior 2 métodos para copiar a lista de todos os nomes de arquivo em uma pasta para sua planilha do Excel, introduzimos dois métodos para listar todos os nomes de arquivo em uma pasta em uma planilha. E agora encontramos outro método. Você também pode usar a macro VBA para concluir esta tarefa. Siga os passos abaixo e veja como usá-lo.

Copie a lista de todos os nomes de arquivo em uma pasta

1. Abra a pasta de trabalho que você precisa para inserir os nomes dos arquivos.
2. E então pressione as teclas de atalho “Alt + F11” no teclado para abrir o editor do Visual Basic.
3. Depois disso, clique na aba “Inserir” na barra de ferramentas.
4. Em seguida, escolha a opção “Módulo” na lista suspensa. Portanto, você inseriu um novo módulo no editor.
5. Nesta etapa, copie os seguintes códigos para o novo módulo:

Sub ListAllFileNames()
  Dim strTargetFolder As String, strFileName As String, nCountItem As Integer

  '  Initialization
  nCountItem = 1
  strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\"
  strFileName = Dir(strTargetFolder, vbDirectory)

  '  Get the file name
  Do While strFileName <> ""
    If strFileName <> "." And strFileName <> ".." Then
      Cells(nCountItem, 1) = strFileName
      nCountItem = nCountItem + 1
    End If
    strFileName = Dir
  Loop
End Sub

Nesta macro, você precisa alterar a pasta de destino de acordo com sua necessidade. Os nomes dos arquivos serão inseridos na coluna A de uma planilha. Caso precise inserir os nomes dos arquivos em outro intervalo, você também pode modificar o código.

6. Depois disso, execute esta macro. Você pode clicar no botão “Run Sub” na barra de ferramentas ou pressionar o botão “F5” no teclado para executar esta macro.
7. Em seguida, volte para a planilha. Você descobrirá que todos os nomes de arquivo na pasta já apareceram na coluna A.

Comparado com os outros dois métodos no artigo 2 métodos para copiar a lista de todos os nomes de arquivo em uma pasta para sua planilha do Excel, você verá que usar a macro VBA é muito conveniente. No entanto, por outro lado, se você não estiver familiarizado com o Excel VBA, encontrará erros ao modificar os códigos. Portanto, você pode usar um dos três métodos de acordo com sua real necessidade.

Preste atenção ao software perigoso

Você certamente instalará muitos softwares em seu computador. E esses aplicativos podem te ajudar muito no seu trabalho. No entanto, alguns deles são aplicativos perigosos. Depois de instalá-los em seu computador, eles coletarão suas informações pessoais. O que é pior, seus arquivos do Excel também serão danificados por eles. Neste momento, desinstale o software perigoso imediatamente. Além disso, você também precisa usar uma ferramenta de recuperação para reparar arquivo xlsx danificado. Assim, você pode ter certeza de que seus arquivos do Excel estão seguros.

Introdução do autor:

Anna Ma é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar problema de arquivo docx do Word e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com