Bagaimana cara memindahkan file tertentu dari satu folder ke folder lain di Excel?
Misalkan, saya memiliki folder besar yang berisi berbagai macam file, seperti docx, jpg, xlsx, dll seperti gambar di bawah ini. Sekarang, saya ingin memindahkan beberapa jenis file tertentu dari folder ke folder baru lainnya tanpa memindahkan satu per satu secara manual. Apakah Anda punya ide bagus untuk menyelesaikan tugas ini di Excel?
Pindahkan file tertentu dari satu folder ke folder lain dengan kode VBA
Pindahkan file tertentu dari satu folder ke folder lain dengan kode VBA
Untuk memindahkan semua jenis file tertentu dari satu folder ke folder lain secepat yang Anda inginkan, kode VBA berikut dapat membantu Anda, lakukan seperti ini:
1. Menekan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Pindahkan jenis file tertentu dari satu folder ke folder lain:
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
Note: Pada kode di atas, "* .xlsx *""* .jpg"di skrip: xExtArr = Larik ("*. xlsx *", "* .jpg") adalah jenis file yang ingin Anda pindahkan, Anda dapat mengubahnya ke orang lain atau menambahkan jenis file lain sesuai kebutuhan.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan sebuah jendela muncul untuk mengingatkan Anda untuk memilih folder asli tempat Anda ingin memindahkan file, lihat tangkapan layar:
4. Lalu klik OK, dan jendela lain muncul, pilih folder tujuan tempat Anda ingin memindahkan file, lihat tangkapan layar:
5. Dan kemudian klik OK, Kotak prompt akan muncul untuk mengingatkan Anda berapa banyak file yang telah dipindahkan, tutup, dan Anda dapat melihat file jpg, xlsx tertentu telah dipindahkan ke folder yang ditentukan, lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!