Como mover ficheiros específicos de uma pasta para outra no Excel?
Suponhamos que tenho uma pasta grande com vários tipos de ficheiros — como .docx, .jpg, .xlsx, entre outros — conforme ilustrado na seguinte captura de ecrã. Pretendo mover apenas determinados tipos de ficheiros dessa pasta para uma nova pasta, sem ter de os mover manualmente, um a um. Tem alguma boa sugestão para resolver esta tarefa no Excel?
Mover ficheiros específicos de uma pasta para outra pasta com código VBA
Mover ficheiros específicos de uma pasta para outra pasta com código VBA
Para mover todos os ficheiros de um tipo específico de uma pasta para outra tão rapidamente quanto desejar, o seguinte código VBA pode ajudá-lo. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Mover Tipo de Arquivo específicos de uma pasta para outra:
Sub MoveFiles()
'Updateby Extendoffice
Dim xFd As FileDialog
Dim xTFile As String
Dim xExtArr As Variant
Dim xExt As Variant
Dim xSPath As String
Dim xDPath As String
Dim xSFile As String
Dim xCount As Long
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Please select the original folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xFd.Title = "Please select the destination folder:"
If xFd.Show = -1 Then
xDPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
xExtArr = Array("*.xlsx*", "*.jpg")
For Each xExt In xExtArr
xTFile = Dir(xSPath & xExt)
Do While xTFile <> ""
xSFile = xSPath & xTFile
FileCopy xSFile, xDPath & xTFile
Kill xSFile
xTFile = Dir
xCount = xCount + 1
Loop
Next
MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub
Nota: No código acima, "*.xlsx*« e »*.jpg" no script:xExtArr = Array(«*.xlsx*», «*.jpg») são os tipos de ficheiro que pretende mover; pode alterá-los ou adicionar outros tipos de ficheiro conforme necessário.
3. Em seguida, prima a tecla F5 para executar este código e surgirá uma janela a lembrá-lo para selecionar a pasta original de onde pretende mover os ficheiros. Veja a captura de ecrã:
4. Depois, clique em OK e surgirá outra janela; por favor, escolha a pasta de destino para onde pretende mover os ficheiros. Veja a captura de ecrã:
5. Depois, clique em OK. Uma caixa de aviso irá surgir, indicando-lhe quantos ficheiros foram movidos. Feche-a e verá que os ficheiros JPG e XLSX específicos foram movidos para a pasta especificada — veja a captura de ecrã:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos