Excel Mover vários arquivos listados no Excel pelo VBA

[Isabella Melo]

Boa noite, gente!

 

Eu tenho uma lista com o nome de alguns arquivos no excel e queria mover esses arquivos que estão numa determinada pasta, em outra pasta de uma vez só. Então, gostaria de saber qual código eu uso para colocar na macro e mover esses arquivos. Se puderem me ajudar, agradeço desde já. 

 

Eu até tentei fazer uma macro, mas o código que eu usei só movia um documento apenas. Sendo que eu queria que ele puxasse todos os documentos listados no excel. 

 

Sub Importar_Arquivos()
Dim Caminho As String
Dim Arquivo As String
Caminho = Range("b1").Value
Arquivo = Range("b2").Value
Arquivo = Dir(Caminho & "\" & Arquivo)
FileCopy Caminho & "\" & Arquivo, Range("E1").Value & "\" & Arquivo
End Sub

 

Espero que tenham entendido o que eu falei... é que eu nunca tinha feito uma macro antes.

Obs: Vou deixar o arquivo em anexo.

Pasta1.xlsx

[Basole]

Veja o anexo, adaptei o seu código para fazer o que solicitou.

  

Pasta1_MoverArquivos.zip

[Isabella Melo]

Muito obrigado! Moveu tudo direitinho... Valeu mesmo!