Как переместить определённые файлы из одной папки в другую в 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. Затем нажмите кнопку ОК — после этого откроется новое окно, в котором нужно выбрать папку назначения для перемещения файлов (см. снимок экрана):
5. После этого нажмите кнопку ОК — появится информационное окно с указанием количества перемещённых файлов. Закройте его, и вы увидите, что нужные файлы форматов 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек