Як перемістити певні файли з однієї папки в іншу в Excel?
Припустимо, у мене є велика папка, яка містить різновиди файлів, таких як docx, jpg, xlsx тощо, як показано на наступному скріншоті. Тепер я хочу перемістити деякі конкретні типи файлів з папки в іншу нову папку, не переміщуючи один за одним вручну. У вас є якісь ідеї для вирішення цього завдання в Excel?
Перемістіть певні файли з однієї папки в іншу з кодом VBA
Перемістіть певні файли з однієї папки в іншу з кодом VBA
Щоб перенести всі конкретні типи файлів з однієї папки в іншу як можна швидше, вам може допомогти такий код VBA, будь ласка, зробіть так:
1. Постривай ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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, які були переміщені у вказану папку, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!