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

Bagaimana cara mengganti nama banyak file dari sebuah folder di Excel?

Mungkin sebagian besar dari kita mengalami masalah ini sehingga kita perlu mengganti nama banyak file dalam satu folder, untuk mengganti nama nama file satu per satu akan membuat kita gila jika ada ratusan atau ribuan file di folder itu. Apakah ada fungsi yang baik bagi kita untuk menangani tugas ini?

Buat daftar semua nama file dari folder tertentu di lembar kerja dengan kutools untuk Excel

Ubah nama beberapa file folder di Excel dengan kode VBA


Jika ada beberapa file yang ingin Anda ganti namanya, pertama, Anda bisa mencantumkan nama file lama di kolom lembar kerja, lalu masukkan nama file baru yang ingin Anda ganti. Untuk mencantumkan semua file dengan cepat di lembar kerja, Anda dapat menggunakan Kutools untuk Excel'S Daftar Nama File utilitas

Setelah menginstal Kutools untuk Excel, lakukan hal berikut :( Unduh Gratis Kutools untuk Excel Sekarang )

1. Klik Kutools Plus > Ekspor Impor > Daftar Nama File, lihat tangkapan layar:

2. di Daftar Nama File kotak dialog, klik doc-rename-banyak-file-1 tombol untuk memilih folder file yang Anda ingin daftar file, dan kemudian klik Semua data dari Jenis file, lihat tangkapan layar:

doc-rename-banyak-file-1

3. Lalu klik OK tombol, semua nama file telah dicantumkan di kolom lembar kerja baru, serta beberapa atribut file, dan sekarang, Anda dapat menghapus kolom yang tidak diinginkan lainnya dan hanya membiarkan File Name kolom, lihat tangkapan layar:

doc-rename-banyak-file-1

Klik untuk mengetahui lebih banyak tentang fitur Daftar Nama File ini ...

Unduh Gratis Kutools untuk Excel Sekarang


Setelah mencantumkan semua nama file asli dalam satu kolom A, dan Anda harus mengetikkan nama file baru di kolom B seperti gambar berikut yang ditampilkan:

doc-rename-banyak-file-1

Dan di sini saya akan berbicara tentang kode VBA yang dapat membantu Anda mengganti nama file lama dengan nama file baru sekaligus. Silakan lakukan dengan langkah-langkah berikut:

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic untuk Aplikasi.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela modul.

Kode VBA: Ubah nama banyak file dalam satu folder

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

3. Setelah menempelkan kode, silakan tekan F5 kunci untuk menjalankan kode ini, dan di Browse jendela, pilih folder tempat Anda ingin mengubah nama file, lihat tangkapan layar:

doc-rename-banyak-file-1

4. Dan kemudian klik OK, semua nama file lama segera diganti dengan nama file baru. Lihat tangkapan layar:

doc-rename-banyak-file-1 2 doc-rename-banyak-file-1

Catatan:

1. Ketika Anda membuat daftar nama file lama dan baru, ekstensi file harus disertakan.

2. Dalam kode di atas, referensi A: A menunjukkan daftar nama file lama yang ingin Anda ganti namanya, dan referensi B berisi nama file baru yang ingin Anda gunakan, Anda dapat mengubahnya sesuai kebutuhan


Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Artikel terkait:

Bagaimana cara membuat lembar kerja urutan dari berbagai sel di Excel?

Bagaimana cara mengganti nama beberapa lembar kerja di Excel?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda dengan
80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari
    300
    fitur yang kuat
    . Mendukung Office/Excel
    2007-2019 dan 365
    . Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap
    30
    percobaan gratis -hari. Jaminan uang kembali 60 hari.
tab kte 201905

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 dengan
    50%
    , dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (34)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Dear all, Bagaimana saya bisa mengubah FOLDER dengan cara yang sama seperti yang ditunjukkan di atas? Bisakah Anda membantu saya dengan masalah ini? Pertanyaannya adalah: Bagaimana cara mengganti nama beberapa FOLDER folder di Excel? Salam!
Komentar ini diminimalkan oleh moderator di situs
Apa yang perlu saya ubah dalam kode di atas jika nama lama dan baru saya tidak dimulai hingga Baris 11. Saya mengubah baris ini "xRow = Application.Match(xFile, Range("C11:C5000"), 0)" tetapi itu tidak berhasil.
Komentar ini diminimalkan oleh moderator di situs
Tidak apa-apa, saya sudah mengetahuinya. Terima kasih. " xRow = Application.Match(xFile, Range("C:C"), 11)"
Komentar ini diminimalkan oleh moderator di situs
Cara mengganti nama file yang berisi karakter cina dalam nama. Mohon bantuannya
Komentar ini diminimalkan oleh moderator di situs
Terkejut (sedikit) melihat seseorang menggunakan sintaks yang sama untuk penamaan vars (xDir, misalnya). Hal ini memungkinkan untuk vars bernama sangat baik yang tidak bertentangan dengan nama sistem (misalnya, Dir atau Tanggal). Saya juga menggunakan 'z' untuk fungsi global (misalnya, zMsg, yang mengembalikan true atau false daripada vbOK atau vbCancel) dan 'y' untuk konstanta (misalnya, yCR untuk vbNewline dan yCR2 untuk dua di antaranya). Kerja bagus dan pemikiran bagus di pihak Anda. Anda harus sangat pintar!
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin mengganti nama hanya sepotong nama file tanpa menyatakan nama file lengkap dan ekstensi di lembar excel? yaitu ubah 123-yz.jpg ke abc-yz.jpg tapi saya hanya tahu bahwa 123 perlu diubah ke abc pada setiap gambar di folder?
Komentar ini diminimalkan oleh moderator di situs
Saya berhasil menggunakan instruksi di atas tahun lalu untuk mengganti nama file di setengah lusin folder. Ini bekerja dengan sangat baik sehingga saya menyimpan instruksi untuk digunakan di masa mendatang. Saya baru-baru ini mencoba menggunakannya lagi, tetapi setelah menempelkan makro di atas di jendela Modul ketika saya menekan F5 alih-alih mendapatkan jendela browser untuk memilih folder yang diinginkan, saya mendapatkan kotak dialog baru yang meminta saya untuk nama Makro. Ada saran? Saya biasanya memiliki sekitar 3-4 kali setahun di mana saya perlu mengganti nama file dengan cara ini, dan saya sangat senang ketika itu berhasil tahun lalu.
Komentar ini diminimalkan oleh moderator di situs
Hai, Saya memiliki lebih dari 100 file excel yang telah saya unduh dari sistem dan disimpan di folder. Semua file ini memiliki lembar bernama sebagai Content. Saya ingin file excel ini diberi nama menggunakan teks yang tersedia di Sel AA2 masing-masing Content lembaran. Sedemikian rupa sehingga nama di Sel AA2 ini akan sama persis dengan nama File dari file Excel masing-masing. semua file dalam folder harus diganti namanya dengan cara yang sama. Harap sarankan makro yang dapat bekerja dengan cara ini.
Komentar ini diminimalkan oleh moderator di situs
Hai. Apakah tugas Anda sudah Terpecahkan. ? Saya dapat membantu jika masih belum terpecahkan. Tolong kirimkan saya tugas Anda. Tx Franz
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak Pak, Tuhan memberkati Anda!
Komentar ini diminimalkan oleh moderator di situs
Dear all, Coba KrojamSoft BatchRename untuk batch rename file yang sangat mudah digunakan.
Komentar ini diminimalkan oleh moderator di situs
Saya mencobanya untuk excel, itu mengubah jenis file. Bisakah Anda memberi saya kode untuk mengganti nama file csv.
Komentar ini diminimalkan oleh moderator di situs
Saya sarankan untuk mencoba KrojamSoft BatchRename
Komentar ini diminimalkan oleh moderator di situs
saya ingin membuat kombo gambar misalnya saya memiliki 33 gambar dan saya ingin membuat kombo gambar satu sama lain, silakan temukan terlampir saya memiliki 10000 gambar lagi sehingga saya dapat membuat dalam 1 klik beberapa gambar. silahkan hubungi atau email di caparnasingla@gmail.com
Komentar ini diminimalkan oleh moderator di situs
hai, Kode luar biasa, telah menghemat banyak waktu saya.. terima kasih banyak..
Komentar ini diminimalkan oleh moderator di situs
Untuk mengganti nama beberapa file, Anda juga dapat memeriksa perangkat lunak. Cari di google- Alat BatchRenameFiles. Periksa hasil pencarian pertama.


Terima kasih
Jonatan F
Komentar ini diminimalkan oleh moderator di situs
Ini adalah perubahan permainan. Terima kasih banyak!!!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin mengganti nama banyak file dari folder dan subfolder. Jadi saya berpikir kode VBA di sana terlihat di jalur yang ada di Kolom 'Berisi Folder' (Saya mencentang kotak 'Sertakan file dalam subdirektori') Saya tidak berada di tempat yang cukup baik untuk mengkodekan VBA, tetapi saya melihat dan mencoba memahami . terima kasih
Komentar ini diminimalkan oleh moderator di situs
Saya tidak mengerti dengan jangkauan ( A:A) atau (B) bagaimana mendefinisikannya, terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai, Dee,

Sebagai catatan mengingatkan, referensi A:A menunjukkan daftar nama file lama yang ingin Anda ganti namanya, dan referensi B berisi nama file baru yang ingin Anda gunakan
, seperti tangkapan layar berikut yang ditampilkan:

Semoga ini bisa membantu Anda, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Saya mengikuti proses yang sama tetapi tidak berhasil mengganti nama file yang juga saya ubah ("A:A") dan ("B"). Apakah ada nilai lain yang perlu saya ubah dalam kode?
Komentar ini diminimalkan oleh moderator di situs
Halo, beberapa file memiliki nama yang sama. Script melewatkan file-file itu. Apakah ada cara untuk memodifikasi skrip sehingga menambahkan angka 1, 2, 3 dan seterusnya untuk setiap nama duplikat?
Komentar ini diminimalkan oleh moderator di situs
Halo, Kay,
Untuk mengganti nama file berdasarkan duplikat nama baru dengan nama-1,nama-2, kode VBA berikut dapat membantu Anda, silakan coba.

Catatan: Setelah menempelkan kode ini, Anda harus mereferensikan opsi Microsoft Scripting Runtime di kotak dialog Referensi-VBAProject seperti gambar di bawah ini.

Sub Ganti NamaFile()
Redupkan xDir Sebagai String
Redupkan xFile Sebagai String
Redupkan xVal Sebagai String
Redupkan xRow Selamanya
Redupkan x Hitung Selamanya
Redupkan xTemp Selamanya
Dim xDictionary Sebagai Kamus Baru
Application.ScreenUpdating = Salah
On Error Resume Next
Dengan Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = Salah
Jika .Tunjukkan = -1 Maka
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Lakukan Hingga xFile=""
xBaris = 0
xRow = Application.Match(xFile, Range("A:A"), 0)
Jika xRow > 0 Maka
xJumlah = 0
xVal = Sel(xRow, "B").Nilai
Jika Tidak xDictionary.Exists(xVal) Lalu
xDictionary.Tambahkan xVal, xCount
Lain
xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
xTemp = InStrRev(xVal, ".")
Sel(xRow, "B").Nilai = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
End If
Beri nama xDir & Application.PathSeparator & xFile As _
xDir & Aplikasi.PathSeparator & Sel(xRow, "B").Nilai
End If
xFile = Dir
Lingkaran
End If
Berakhir dengan
Application.ScreenUpdating = Benar
End Sub
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL