Como mover arquivos específicos de uma pasta para outra no Excel?
Suponha que eu tenha uma grande pasta que contém tipos de arquivos, como docx, jpg, xlsx, etc, como mostrado a seguir. Agora, quero mover alguns tipos de arquivo específicos da pasta para outra nova pasta sem mover um por um manualmente. Você tem alguma boa ideia para resolver essa tarefa no Excel?
Mova arquivos específicos de uma pasta para outra pasta com o código VBA
Mova arquivos específicos de uma pasta para outra pasta com o 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, faça o seguinte:
1. Calma ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: mova 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
Note: No código acima, "* .xlsx *""* .jpg"no script: xExtArr = Array ("*. xlsx *", "* .jpg") são os tipos de arquivo que você deseja mover, você pode alterá-los para outros ou adicionar outros tipos de arquivo conforme necessário.
3. Então aperte F5 para executar este código, e uma janela apareceu para lembrá-lo de selecionar a pasta original de onde deseja mover os arquivos, consulte a captura de tela:
4. Então clique OK, e outra janela for exibida, escolha a pasta de destino para onde você deseja mover os arquivos, veja a captura de tela:
5. E, em seguida, clique em OK, uma caixa de prompt aparecerá para lembrá-lo de quantos arquivos foram movidos, feche-o e você poderá ver os arquivos jpg e xlsx específicos que foram movidos para a pasta especificada, consulte a captura de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!