Note: The other languages of the website are Google-translated. Back to English

Как переместить определенные файлы из одной папки в другую в Excel?

Предположим, у меня есть большая папка, которая содержит файлы разных типов, такие как docx, jpg, xlsx и т. Д., Как показано на следующем скриншоте. Теперь я хочу переместить файлы некоторых определенных типов из папки в другую новую папку, не перемещая их вручную. Есть ли у вас хорошие идеи для решения этой задачи в Excel?

Перемещайте определенные файлы из одной папки в другую с кодом VBA


Перемещайте определенные файлы из одной папки в другую с кодом VBA

Чтобы переместить все определенные типы файлов из одной папки в другую так быстро, как вы хотите, следующий код VBA может вам помочь, сделайте следующее:

1, Удерживать ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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 = массив ("*. xlsx *", "* .jpg") - это типы файлов, которые вы хотите переместить, вы можете изменить их на другие или добавить другие типы файлов по мере необходимости.

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появилось окно, напоминающее вам о выборе исходной папки, из которой вы хотите переместить файлы, см. снимок экрана:

4. Затем нажмите OK, и появится другое окно, выберите папку назначения, в которую вы хотите переместить файлы, см. снимок экрана:

5, Затем нажмите OK, появится окно подсказки, чтобы напомнить вам, сколько файлов было перемещено, закройте его, и вы увидите, что определенные файлы jpg, xlsx были перемещены в указанную папку, см. снимок экрана:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (10)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Hi

Спасибо за полезный совет. У меня есть около 5000 файлов, перечисленных в одном файле Excel. Мне нужно найти все эти файлы со всего компьютера, если имена файлов совпадают, скопируйте и вставьте в другую папку.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Мне нужна помощь. Можем ли мы выбрать несколько файлов и переместить их в отдельную папку по списку в файле Excel?
заранее спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кумар,
Чтобы переместить или скопировать файлы из папки в другую на основе списка Excel, вам может помочь следующая статья!
https://www.extendoffice.com/documents/excel/4775-move-files-based-on-excel-list.html

Надеюсь, это поможет вам, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, это отлично. Очень ценю вашу помощь.
Этот комментарий был сведен к минимуму модератором на сайте
Можем ли мы выбрать путь назначения в списке Excel для этого макроса. пожалуйста, помогите.
Этот комментарий был сведен к минимуму модератором на сайте
большое спасибо за вашу большую помощь
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте
Чтобы переместить или скопировать файлы из папки в другую на основе списка Excel, вам может помочь следующая статья!
Этот комментарий был сведен к минимуму модератором на сайте
Чтобы переместить или скопировать файлы из папки в другую на основе списка Excel и места назначения (пути)
в списке эксель. плиз помогите...
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Код отлично работает для того, что я делаю. Благодарю вас! Как вы проверяете, существуют ли файлы в папке назначения, и предлагаете пользователю спросить, хотят ли они перезаписать файлы или сохранить их как другое имя файла? Я работаю с файлами .pdf, сохраняя их в папку назначения.
Этот комментарий был сведен к минимуму модератором на сайте
у меня не появляются всплывающие окна после экрана выбора
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL