Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luke · 1 months ago
    Hi,
    Code works great for what I am doing. Thank you! How do you have it check if files exist in the destination folder and prompt the user to ask if they want to overwrite the files or save as another file name? I am working with .pdf files saving to the destination folder.
  • To post as a guest, your comment is unpublished.
    Lokesh · 1 years ago
    To move or copy files from a folder to another based on excel list, and destination (path)
    on excel list. plz help...
  • To post as a guest, your comment is unpublished.
    lokesh · 1 years ago
    Hello
    To move or copy files from a folder to another based on excel list, the following article may help you!
  • To post as a guest, your comment is unpublished.
    Kumar · 1 years ago
    Hi,
    I need a help. Can we select few files and move them in to a separate folder by list in excel file?
    thanks in advance
  • To post as a guest, your comment is unpublished.
    rocky · 1 years ago
    Hi

    Thanks for helpful tip. I have around 5000 files listed on one excel file. I need to search all these files from the entire computer , if file names are matched then copy and paste in another folder