Como mover arquivos específicos de uma pasta para outra no Excel?
Suponha que eu tenha uma pasta grande que contém vários tipos de arquivos, como docx, jpg, xlsx, etc., conforme mostrado na captura de tela a seguir. Agora, quero mover alguns tipos específicos de arquivos da pasta para uma nova pasta sem precisar movê-los um por um manualmente. Você tem alguma boa ideia para resolver essa tarefa no Excel?
Mover arquivos específicos de uma pasta para outra com código VBA
Mover arquivos específicos de uma pasta para outra com código VBA
Para mover todos os tipos específicos de arquivos de uma pasta para outra tão rapidamente quanto você deseja, o seguinte código VBA pode ajudá-lo; por favor, faça o seguinte:
1. Pressione e segure 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 tipos específicos de arquivos 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
Observação: No código acima, "*.xlsx*", "*.jpg" no script: xExtArr = Array("*.xlsx*", "*.jpg") são os tipos de arquivos que você deseja mover; você pode alterá-los para outros ou adicionar outros tipos de arquivos conforme necessário.
3. Em seguida, pressione a tecla F5 para executar este código, e uma janela será exibida para lembrá-lo de selecionar a pasta original de onde você deseja mover os arquivos, veja a captura de tela:
4. Em seguida, clique em OK, e outra janela será exibida; escolha a pasta de destino para onde você deseja mover os arquivos, veja a captura de tela:
5. Depois, clique em OK, uma caixa de aviso será exibida informando quantos arquivos foram movidos; feche-a, e você verá que os arquivos específicos jpg, xlsx foram movidos para a pasta especificada, veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins