Sắp xếp File hàng loạt với VBA Excel

Mở đầu

Trong quá trình làm việc, bạn thường xuyên phải xử lý một lượng lớn file với các định dạng khác nhau. Nếu file được sắp xếp theo một thứ tự nhất định, bạn sẽ dễ dàng tìm kiếm và quản lý hơn.

Cách sắp xếp file thủ công

Cách đơn giản nhất để sắp xếp file là thực hiện thủ công. Bạn có thể sử dụng các công cụ như Windows Explorer hoặc File Explorer để sắp xếp theo tên, ngày tạo, ngày sửa đổi, v.v.

Tuy nhiên, cách này sẽ rất tốn thời gian và công sức nếu bạn cần sắp xếp hàng loạt file.

Sử dụng VBA Excel để sắp xếp file hàng loạt

VBA Excel là một công cụ mạnh mẽ giúp bạn tự động hóa các tác vụ trong Excel. Bạn có thể sử dụng VBA để sắp xếp file hàng loạt chỉ với vài dòng code.

Ví dụ

Mục tiêu: Sắp xếp tất cả các file trong một thư mục theo thứ tự tăng dần theo tên.

Code:

VB.Net

Sub SortFiles()

' Khai báo biến
Dim wb As Workbook
Dim fso As Object
Dim fld As Object
Dim i As Long

' Mở thư mục chứa các file cần sắp xếp
Set fso = CreateObject("Scripting.FileSystemObject")
Set wb = fso.OpenTextFile("C:\Temp\files.txt", 1)

' Lặp qua tất cả các file trong thư mục
For i = 1 To wb.ReadAll

' Lấy tên file
Set fld = fso.GetFile(wb.ReadLine)

' Sắp xếp file
fld.Name = fld.Name.Sort

Next i

End Sub

Hướng dẫn sử dụng:

1. Mở Excel và tạo một macro mới.
2. Dán code vào macro.
3. Lưu macro và đặt tên là “SortFiles”.
4. Mở thư mục chứa các file cần sắp xếp.
5. Chạy macro.

Kết luận

Với VBA Excel, bạn có thể sắp xếp file hàng loạt một cách nhanh chóng và dễ dàng. Điều này sẽ giúp bạn tiết kiệm thời gian và công sức, đồng thời nâng cao hiệu quả công việc.

👍 💯