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

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


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 doc-rename-multi-files-1 để 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:

doc-rename-multi-files-1

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:

doc-rename-multi-files-1

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


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:

doc-rename-multi-files-1

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:

doc-rename-multi-files-1

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:

doc-rename-multi-files-1 2 doc-rename-multi-files-1

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


Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay!

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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (36)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kính gửi tất cả, Làm cách nào để thay đổi FOLDERS giống như cách hiển thị ở trên? Bạn có thể vui lòng giúp tôi với vấn đề này? Câu hỏi đặt ra là: Làm thế nào để đổi tên nhiều THƯ MỤC của một thư mục trong Excel? Trân trọng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần sửa đổi điều gì trong đoạn mã trên nếu tên cũ và mới của tôi không bắt đầu cho đến Hàng 11. Tôi đã thay đổi dòng này "xRow = Application.Match (xFile, Range (" C11: C5000 "), 0)" nhưng nó không hoạt động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không sao đâu, tôi đã đoán ra. Thanks. "xRow = Application.Match (xFile, Range (" C: C "), 11)"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào để đổi tên các tập tin có chứa các ký tự Trung Quốc trong tên. Xin hãy giúp đỡ về nó
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngạc nhiên (một chút) khi thấy ai đó sử dụng cùng một cú pháp để đặt tên vars (ví dụ: xDir). Nó cho phép các vars được đặt tên đặc biệt tốt mà không xung đột với tên hệ thống (ví dụ: Dir hoặc Date). Tôi cũng sử dụng 'z' cho các hàm toàn cục (ví dụ: zMsg, trả về true hoặc false thay vì vbOK hoặc vbCancel) và 'y' cho các hằng số (ví dụ: yCR cho vbNewline và yCR2 cho hai trong số chúng). Làm việc tốt và suy nghĩ tốt về phía bạn. Bạn phải rất thông minh!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có thể đổi tên chỉ một phần của tên tệp mà không khai báo đầy đủ tên tệp và phần mở rộng trong trang tính excel không? tức là thay đổi 123-yz.jpg thành abc-yz.jpg nhưng tôi chỉ biết rằng 123 cần thay đổi thành abc trên mọi hình ảnh trong thư mục?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Năm ngoái, tôi đã sử dụng thành công các hướng dẫn trên để đổi tên tệp trong nửa tá thư mục. Nó hoạt động tốt đến mức tôi đã lưu các hướng dẫn để sử dụng trong tương lai. Gần đây tôi đã cố gắng sử dụng lại nó, nhưng sau khi dán macro ở trên vào cửa sổ Mô-đun khi tôi nhấn F5 thay vì nhận được cửa sổ trình duyệt để chọn thư mục mong muốn, tôi nhận được một hộp thoại mới nhắc tôi đặt tên Macro. Bất kỳ đề xuất? Tôi thường có khoảng 3-4 lần mỗi năm khi tôi cần đổi tên tệp theo cách này, và tôi rất vui mừng khi nó hoạt động vào năm ngoái.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi có hơn 100 tệp excel mà tôi đã tải xuống từ hệ thống và được lưu trong thư mục. Tất cả các tệp này có một trang tính được đặt tên là Nội dung. Tôi muốn các tệp excel này được đặt tên bằng cách sử dụng văn bản có sẵn trong Ô AA2 của tệp Nội dung tấm. Sao cho tên trong Ô AA2 này sẽ chính xác là Tên tệp của tệp Excel tương ứng đó. tất cả các tệp trong thư mục sẽ được đổi tên theo cùng một cách. Vui lòng đề xuất một macro có thể hoạt động theo cách này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào. Nhiệm vụ của bạn đã được giải quyết chưa. ? Tôi có thể giúp đỡ nếu vẫn chưa được giải quyết. Xin vui lòng gửi thư cho tôi nhiệm vụ của bạn. Tx Franz
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều, Chúa phù hộ cho bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thân gửi tất cả, Hãy thử KrojamSoft BatchRename để đổi tên hàng loạt các tệp rất dễ sử dụng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thử nó cho excel, nó thay đổi loại tệp. Bạn có thể vui lòng cung cấp cho tôi mã để đổi tên tệp csv.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đề nghị dùng thử KrojamSoft BatchRename
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn tạo kết hợp các hình ảnh, ví dụ tôi có 33 hình ảnh và tôi muốn tạo một kết hợp các hình ảnh với nhau, vui lòng tìm tệp đính kèm tôi có thêm 10000 hình ảnh để tôi có thể tạo nhiều hình ảnh trong một cú nhấp chuột. vui lòng gọi hoặc gửi email theo địa chỉ caparnasingla@gmail.com
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, mã tuyệt vời, đã tiết kiệm rất nhiều thời gian của tôi .. cảm ơn rất nhiều ..
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Để đổi tên nhiều tệp, bạn cũng có thể kiểm tra một phần mềm. Tìm kiếm trên google- Công cụ BatchRenameFiles. Kiểm tra kết quả tìm kiếm đầu tiên.


Cảm ơn
Jonathan F.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là trò chơi đang thay đổi. Cảm ơn nhiều!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn đổi tên nhiều tệp từ các thư mục và thư mục con. Vì vậy, tôi đang nghĩ mã VBA ở đó nhìn vào đường dẫn có trong Cột 'Thư mục chứa' (Tôi chọn hộp kiểm 'Bao gồm tệp trong thư mục con') Tôi không ở đâu đủ tốt để mã hóa VBA, nhưng tôi nhìn và cố gắng hiểu . Thanks
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi không thể hiểu với phạm vi (A: A) hoặc (B) làm thế nào để xác định điều đó, cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Dee,

Như ghi chú nhắc nhở, 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
, như ảnh chụp màn hình sau được hiển thị:

Hy vọng điều này có thể giúp bạn, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang làm theo quy trình tương tự nhưng không thể đổi tên tệp mà tôi cũng đang thay đổi ("A: A") và ("B") thành công. Có bất kỳ giá trị nào khác mà tôi cần thay đổi trong mã không
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, một số tệp có cùng tên. Tập lệnh bỏ qua các tệp đó. Có cách nào để sửa đổi tập lệnh để nó thêm số 1, 2, 3, v.v. cho mọi tên trùng lặp không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Kay,
Để đổi tên các tệp dựa trên các tên mới trùng lặp với tên-1, tên-2, mã VBA sau có thể giúp bạn, hãy thử nó.

Lưu ý: Sau khi dán mã này, bạn nên tham khảo tùy chọn Microsoft Scripting Runtime trong hộp thoại References-VBAProject như hình minh họa bên dưới.

Sub RenameFiles ()
Dim xDir dưới dạng chuỗi
Dim xFile dưới dạng chuỗi
Dim xVal dưới dạng chuỗi
Dim xRow As Long
Dim xCount As Long
Dim xTemp càng lâu càng tốt
Dim xDictionary Như Từ Điển Mới
Application.ScreenUpdating = Sai
On Error Resume Next
Với Application.FileDialog (msoFileDialogFolderPicker)
.AllowMultiSelect = Sai
Nếu .Show = -1 Thì
xDir = .SelectedItems (1)
xFile = Dir (xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xHàng = 0
xRow = Application.Match (xFile, Range ("A: A"), 0)
Nếu xRow> 0 Thì
xCount = 0
xVal = Cells (xRow, "B"). Giá trị
Nếu không phải xDictionary.Exists (xVal) Thì
xDictionary. Thêm xVal, xCount
Khác
xDictionary.Item (xVal) = xDictionary.Item (xVal) + 1
xTemp = InStrRev (xVal, ".")
Ô (xRow, "B"). Giá trị = Giữa (xVal, 1, xTemp - 1) & "-" & CStr (xDictionary.Item (xVal)) & Giữa (xVal, xTemp)
Cuối Nếu
Đặt tên xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells (xRow, "B"). Giá trị
Cuối Nếu
xFile = Dir
Vòng lặp
Cuối Nếu
Kết thúc với
Application.ScreenUpdating = True
End Sub
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL