Làm cách nào để đổi tên nhiều tệp của một thư mục trong Excel?
Có thể hầu hết chúng ta đều gặp phải vấn đề này là chúng ta cần phải đổi tên nhiều tệp trong một thư mục, đổi tên lần lượt từng tên tệp sẽ khiến chúng ta phát điên nếu có hàng trăm hoặc hàng nghìn tệp trong thư mục đó. Có chức năng nào tốt để chúng tôi giải quyết công việc này không?
Liệt kê tất cả các tên tệp từ một thư mục cụ thể trong trang tính với kutools cho Excel
Đổi tên nhiều tệp của một thư mục trong Excel bằng mã VBA
Liệt kê tất cả các tên tệp từ một thư mục cụ thể trong trang tính với kutools cho Excel
Nếu có nhiều tệp mà bạn muốn đổi tên, trước tiên, bạn có thể liệt kê tên tệp cũ trong một cột của trang tính, sau đó nhập tên tệp mới mà bạn muốn thay thế. Để nhanh chóng liệt kê tất cả các tệp trong trang tính, bạn có thể sử dụng Kutools cho Excel'S Danh sách tên tệp tiện ích.
Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau :( Tải xuống miễn phí Kutools cho Excel ngay )
1. Nhấp chuột Kutools Plus > Nhập khẩu xuất khẩu > Danh sách tên tệp, xem ảnh chụp màn hình:
2. Trong Danh sách tên tệp hộp thoại, nhấn để chọn thư mục tệp mà bạn muốn liệt kê các tệp, sau đó bấm Tất cả các file từ Loại tệp, xem ảnh chụp màn hình:
3. Sau đó nhấn vào OK , tất cả các tên tệp đã được liệt kê trong một cột của trang tính mới, cũng như một số thuộc tính tệp và bây giờ, bạn có thể xóa các cột không mong muốn khác và chỉ để lại File Name cột, xem ảnh chụp màn hình:
Nhấp để biết thêm về tính năng Danh sách tên tệp này…
Tải xuống miễn phí Kutools cho Excel ngay
Đổi tên nhiều tệp của một thư mục trong Excel bằng mã VBA
Sau khi liệt kê tất cả các tên tệp gốc trong một cột A, và bạn nên nhập các tên tệp mới vào cột B như ảnh chụp màn hình sau:
Và ở đây tôi sẽ nói về mã VBA có thể giúp bạn thay thế tên tệp cũ bằng tên tệp mới cùng một lúc. Vui lòng thực hiện theo các bước sau:
1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic cho ứng dụng.
2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.
Mã VBA: Đổi tên nhiều tệp trong một thư mục
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. Sau khi dán mã, vui lòng nhấn F5 để chạy mã này và trong Xem cửa sổ, chọn thư mục mà bạn muốn thay đổi tên tệp, xem ảnh chụp màn hình:
4. Và sau đó nhấp vào OK, tất cả các tên tệp cũ đã được thay thế bằng tên tệp mới ngay lập tức. Xem ảnh chụp màn hình:
Ghi chú:
1. Khi bạn liệt kê tên tệp cũ và mới, phần mở rộng tệp phải được bao gồm.
2. Trong đoạn mã trên, tham chiếu A: A cho biết danh sách tên tệp cũ mà bạn muốn đổi tên và tham chiếu B chứa các tên tệp mới mà bạn muốn sử dụng, bạn có thể thay đổi chúng theo nhu cầu của mình
Demo: Đổi tên nhiều tệp của một thư mục trong Excel
Các bài liên quan:
Làm cách nào để tạo trang tính trình tự từ một dải ô trong Excel?
Làm cách nào để đổi tên nhiều trang tính trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!