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