Как переместить определенные файлы из одной папки в другую в 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% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек