Làm cách nào để liệt kê tất cả các tên tệp trong một thư mục và tạo siêu liên kết cho chúng trong Excel?

Đối với công việc hàng ngày của mình, bạn có thể cần nhập nhiều tên tệp từ một thư mục vào trang tính và tạo siêu liên kết cho từng tệp để mở tệp nhanh chóng và dễ dàng. Có thể, bạn có thể sao chép và dán các tên tệp và tạo siêu liên kết cho nó theo cách thủ công, nhưng điều này sẽ lãng phí nhiều thời gian nếu có hàng trăm tệp trong thư mục. Hôm nay, tôi sẽ nói về một số phương pháp nhanh chóng và thú vị để giải quyết công việc này.

Liệt kê tất cả các tên tệp trong một thư mục và tạo siêu liên kết bằng mã VBA

Liệt kê tất cả các tên tệp trong một thư mục và tạo siêu liên kết với Kutools cho Excel

Liệt kê tất cả các tên tệp trong một thư mục và tạo siêu liên kết bằng mã VBA

Để liệt kê và tạo siêu liên kết với các tệp từ một thư mục, mã VBA sau đây có thể giúp bạn.

1. Kích hoạt một trang tính mới để đặt kết quả.

2. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

VBA: Liệt kê tất cả các tên tệp trong một thư mục và tạo siêu liên kết

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object 
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Sau đó nhấn F5 để chạy mã này và chọn thư mục mà bạn muốn liệt kê các tệp từ Xem cửa sổ, xem ảnh chụp màn hình:

5. Sau khi chỉ định thư mục, hãy nhấp vào OK và tất cả các tệp trong thư mục cụ thể đã được liệt kê vào trang tính hoạt động với các siêu liên kết, xem ảnh chụp màn hình:

Chú thích: Nếu có các thư mục con trong thư mục cụ thể của bạn, các tệp trong thư mục con sẽ không được liệt kê.

Liệt kê tất cả các tên tệp trong một thư mục và tạo siêu liên kết với Kutools cho Excel

Để liệt kê tất cả các tệp cả trong một thư mục và các thư mục con của nó và các siêu liên kết đã tạo cho mỗi tệp, Kutools cho Excel'S Danh sách tên tệp có thể giúp bạn một việc. Với tính năng này, tất cả các tệp trong thư mục và thư mục con sẽ được liệt kê cùng một lúc với một số thuộc tính, chẳng hạn như tên tệp, kích thước tệp, thời gian được tạo, thư mục chứa, v.v.

Nếu bạn đã cài đặt Kutools cho Excel, vui lòng thực hiện theo các bước sau:

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 tạp chí Danh sách tên tệp hộp thoại, vui lòng thực hiện các thao tác sau:

(1.) Nhấp vào để chọn thư mục mà bạn muốn liệt kê các tên tệp;

(2.) Kiểm tra Bao gồm các tệp trong thư mục con nếu bạn muốn liệt kê tên tệp trong các thư mục con, hãy kiểm tra Bao gồm các tệp và thư mục ẩn nếu bạn muốn liệt kê các tệp ẩn;

(3.) Chỉ định các loại tệp mà bạn muốn tìm và liệt kê trong Loại tệp phần;

(4.) Chọn đơn vị kích thước tệp mà bạn muốn hiển thị;

(5.) Kiểm tra Tạo siêu liên kết ở dưới cùng bên trái của hộp thoại.

Tải xuống Kutools cho Excel ngay!

3. Sau đó nhấn vào Ok và tất cả các tệp trong thư mục và thư mục con đã được liệt kê trong một trang tính mới với các siêu liên kết khi bạn cần, xem ảnh chụp màn hình:

Nhấp để biết thêm chi tiết về tiện ích Danh sách tên tệp…

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!

Demo: Liệt kê tất cả các tên tệp trong một thư mục và tạo siêu liên kết với Kutools cho Excel

Bài viết liên quan:

Làm cách nào để liệt kê tất cả các tệp trong thư mục và thư mục con vào một trang tính?