Как переместить определенные файлы из одной папки в другую в Excel?
Предположим, у меня есть большая папка, содержащая различные типы файлов, такие как docx, jpg, xlsx и т.д., как показано на следующем скриншоте. Теперь я хочу переместить некоторые определенные типы файлов из этой папки в новую папку, не перемещая их по одному вручную. Есть ли у вас какие-нибудь хорошие идеи для решения этой задачи в Excel?
Перемещение определенных файлов из одной папки в другую с помощью кода VBA
Перемещение определенных файлов из одной папки в другую с помощью кода VBA
Чтобы переместить все указанные типы файлов из одной папки в другую так быстро, как вам хочется, следующий код VBA может помочь вам, сделайте следующее:
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.
Код VBA: Перемещение определенных типов файлов из одной папки в другую:
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
Примечание: В приведенном выше коде "*.xlsx*", "*.jpg" в строке: xExtArr = Array("*.xlsx*", "*.jpg") — это типы файлов, которые вы хотите переместить; вы можете изменить их на другие или добавить другие типы файлов по мере необходимости.
3. Затем нажмите клавишу F5, чтобы запустить этот код, и появится окно, напоминающее вам выбрать исходную папку, из которой вы хотите переместить файлы, см. скриншот:
4. Затем нажмите OK, и появится еще одно окно, выберите целевую папку, куда вы хотите переместить файлы, см. скриншот:
5. Затем нажмите OK, появится диалоговое окно, сообщающее вам, сколько файлов было перемещено, закройте его, и вы увидите, что конкретные файлы jpg, xlsx были перемещены в указанную папку, см. скриншот:
Лучшие инструменты для повышения продуктивности работы с Office
Ускорьте работу в Excel с Kutools для Excel и ощутите новую степень эффективности. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени. Нажмите здесь, чтобы выбрать нужную вам функцию...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
- Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!