Como pesquisar vários arquivos específicos no Windows a partir de uma lista txt ou excel?

Question

Tenho uma pasta em meu PC com aproximadamente 70.000 arquivos xmls de cupons fiscais. Já importei todos esses xmls para o Excel através do Power Query, onde pude fazer uma análise de cupons que foram emitidos em duplicidade. Agora preciso copiar para outra pasta somente os xmls dos cupons emitidos em duplicidade.

Os arquivos estão salvos com o número do cupom, data de emissão e chave de acesso no título, e também possuo esses dados no Excel.

Exemplo: Preciso que os arquivos xmls dos cupons n° 101, 105, 140, 166, 178 e 204 sejam copiados/compactados/movidos para outra pasta. Os arquivos já estão renomeados com seus números e datas de emissão, porém ao invés de somente 6 cupons, são quase 4.000. Há alguma maneira de entregar uma lista para o windows pedindo para ele pesquisar todos os itens desta lista simultanea e especificamente?

Tenho as informações para pesquisar e sei onde estão todos os arquivos, porém preciso de uma forma de fazer essa pesquisa e seleção em massa, pois levarei semanas para copiar os arquivos manualmente.

Answer 1

Olá

Bem vindo à Comunidade Microsoft 365

Tudo , Gabriel? Você pode fazer isso utilizando uma macro no Excel. Primeiro, você precisa criar uma lista com os nomes dos arquivos que deseja copiar para outra pasta. Em seguida, você pode usar a função "Dir" do VBA para verificar se cada arquivo da lista existe na pasta original e, se existir, copiá-lo para a pasta de destino. Segue abaixo um exemplo de código que pode ser utilizado para realizar essa tarefa:

```

Sub CopiarArquivos()

*Dim origem As String, destino As String, arquivo As String*

*Dim lista As Range, cel As Range*

*'Definir as pastas de origem e destino*

*origem = "C:\PastaOriginal\"*

*destino = "C:\PastaDestino\"*

*'Definir a lista de arquivos a serem copiados*

*Set lista = Range("A1:A6") 'Substitua pela sua lista*

*'Loop para verificar cada arquivo da lista*

*For Each cel In lista*

    *arquivo = cel.Value & ".xml" 'Adicionar a extensão do arquivo*

    *If Dir(origem & arquivo) <> "" Then 'Verificar se o arquivo existe na pasta de origem*

        *FileCopy origem & arquivo, destino & arquivo 'Copiar o arquivo para a pasta de destino*

    *End If*

*Next cel*

*MsgBox "Arquivos copiados com sucesso!"*

End Sub

```

Para utilizar esse código, basta abrir o Excel, pressionar Alt + F11 para abrir o Editor do VBA, inserir um novo módulo e colar o código acima. Em seguida, basta ajustar as variáveis "origem", "destino" e "lista" de acordo com as suas necessidades e executar a macro.