Trong hướng dẫn này, tôi sẽ cung cấp một số thủ thuật để liệt kê nhanh tất cả các tên ảnh hoặc tên tệp của một thư mục cụ thể trong một trang tính Excel như hình minh họa. DI CHUYỂN NHANH >Liệt kê tên ảnh của một thư mục trong Excel với VBA >Liệt kê tên ảnh hoặc tên tệp định dạng cụ thể của một thư mục trong Excel với Danh sách tên tệp >Tải xuống tệp mẫu

Trong Excel, không có chức năng tích hợp nào có thể tự động liệt kê tất cả các tên ảnh của thư mục bạn chọn trong một ô của trang tính, nhưng ở đây tôi có mã VBA có thể giúp bạn giải quyết nhanh công việc này.

1. Trong Excel, sau đó nhấn Khác + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong cửa sổ bật lên, nhấp vào Chèn > Mô-đun để tạo một tập lệnh Mô-đun mới.

3. Sao chép mã bên dưới và dán chúng vào cửa sổ tập lệnh Mô-đun mới.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. nhấn F5 , sau đó một hộp thoại bật ra để bạn chọn một ô để đặt tên ảnh.

5. nhấp chuột OK để tiếp tục chọn thư mục bạn muốn liệt kê tên ảnh trong hộp thoại Duyệt qua.

6. nhấp chuột OK, bây giờ tất cả các tên ảnh trong thư mục đã chọn đã được liệt kê trong Excel.

Lưu ý: Trong mã VBA, bạn có thể jpg / png /… trong chuỗi mã Nếu InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Sau đó vào phần mở rộng tệp bạn cần, ví dụ: nếu bạn muốn liệt kê tên tệp của tệp ở định dạng doc, chỉ thay đổi chuỗi mã thành Nếu InStr (1, xFileName, ".doc")> 0 Thì.

Nếu bạn thường cần liệt kê một hoặc tất cả các tên tệp định dạng của một thư mục trong ô Excel trong công việc hàng ngày của mình, thì mã này phức tạp và không dễ xử lý, nhưng với cách dưới đây, bạn có thể nhanh chóng giải quyết công việc này.

Bạn Có Muốn Tăng Lương và Có Nhiều Thời Gian Để Đồng Hành Với Gia Đình Không? Tab Office Nâng cao hiệu quả của bạn lên 50% trong Microsoft Office Đang hoạt động ngay bây giờ Thật không thể tin được, làm việc với hai hoặc nhiều tài liệu dễ dàng và nhanh hơn so với làm việc cùng một lúc. So với các trình duyệt nổi tiếng, công cụ theo thẻ trong Office Tab mạnh hơn và hiệu quả hơn. Giảm hàng trăm lần click chuột và gõ bàn phím mỗi ngày cho bạn, nói lời tạm biệt với bàn tay chuột ngay bây giờ. Nếu bạn thường làm việc với nhiều tài liệu, Office Tab sẽ là một công cụ tiết kiệm thời gian tuyệt vời cho bạn. 30-ngày dùng thử miễn phí, Không cần thẻ tín dụng. Tìm hiểu thêmTải về miễn phí ngay bây giờ

Đây là một tiện ích - Danh sách tên tệp in Kutools cho Excel, có thể

>> liệt kê tất cả các tên tệp ở tất cả các định dạng tệp của một thư mục trong một trang tính mới;

>> liệt kê tên tệp trong một hoặc một số định dạng tệp bạn chỉ định cho Excel;

>> liệt kê tên tệp bao gồm các thư mục con và các tệp và thư mục ẩn trong Excel.

Dùng thử miễn phí Nói Lời Tạm Biệt Với ​​Tay Chuột và Thoái hóa đốt sống Cổ ngay

300 công cụ nâng cao của Kutools cho Excel giải quyết 80% Các tác vụ Excel trong vài giây, kéo bạn ra khỏi hàng nghìn lần nhấp chuột.

Dễ dàng giải quyết 1500 tình huống làm việc, không cần mất thời gian tìm kiếm giải pháp, có nhiều thời gian để tận hưởng cuộc sống của bạn. Cải thiện 80% năng suất cho 110000+ người hiệu quả cao mỗi ngày, tất nhiên bao gồm cả bạn. Không còn bị dày vò bởi những công thức và VBA đau đớn, hãy cho não của bạn được nghỉ ngơi và tâm trạng làm việc vui vẻ. Dùng thử miễn phí 30 ngày với đầy đủ tính năng, hoàn tiền trong 30 ngày không cần lý do. Một Cơ Thể Tốt Hơn Tạo Một Cuộc Sống Tốt Đẹp Hơn.

Tìm hiểu thêm Tải xuống Ngay

Sau khi cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. Bật sổ làm việc bạn muốn liệt kê tên tệp, sau đó nhấp vào Kutools Plus > Import / Export > Danh sách tên tệp.

2. bên trong Danh sách tên tệp trước tiên, hãy nhấp vào  để chọn một thư mục mà bạn muốn liệt kê tên tệp của nó, sau đó bạn có thể đánh dấu vào các hộp kiểm của Bao gồm các tệp trong thư mục con và Bao gồm các tệp và thư mục ẩn như bạn cần.

3. Sau đó, chọn định dạng tệp bạn muốn liệt kê tên trong Loại tệp phần.

kiểm tra Tất cả các file tùy chọn, nó sẽ liệt kê tất cả các tên tệp ở tất cả các định dạng tệp trong thư mục đã chọn

kiểm tra Chung và chọn định dạng tệp cụ thể mà bạn muốn liệt kê các tên tệp từ danh sách thả xuống, sau đó nó sẽ liệt kê tất cả các tên tệp của định dạng tệp bạn chọn trong danh sách thả xuống

kiểm tra Chỉ định tùy chọn, sau đó nhập các phần mở rộng tệp (sử dụng dấu phẩy để phân tách chúng) mà bạn muốn liệt kê tên tệp trong hộp văn bản, sau đó nó sẽ chỉ liệt kê các tên tệp có phần mở rộng tệp nhập trong Excel

4. Chọn đơn vị kích thước bạn cần từ danh sách thả xuống trong Đơn vị kích thước tệp , nếu bạn muốn tạo liên kết đến tên tệp, hãy kiểm tra Tạo siêu liên kết tùy chọn.

5. nhấp chuột Ok, một trang tính mới sẽ được tạo để liệt kê tên tệp và một số thông tin về tệp.

Mẹo: nếu bạn muốn liệt kê tất cả các tên trang tính trong Excel, bạn có thể áp dụng Kutools cho Excel ' Tạo danh sách tên trang tính tiện ích, nó sẽ tạo một trang tính mới để liệt kê tất cả các tên trang tính có thể liên kết.

Kutools cho Excel: + các công cụ tiện dụng hữu ích, đơn giản hóa các tác vụ phức tạp trong Excel thành một vài cú nhấp chuột.

Các công cụ năng suất được đề xuất

Tab Office - Duyệt theo tab, chỉnh sửa, quản lý tài liệu trong Microsoft Office 2019 - 2003 và Office 365

Tải xuống miễn phí

Một bổ trợ chuyên nghiệp để tăng tốc Excel 2019-2007, thu nhỏ nhiệm vụ hàng giờ xuống còn giây

Phần bổ trợ này bao gồm hàng chục nhóm chuyên nghiệp, với hơn 300 tùy chọn sẽ tự động hóa hầu hết các công việc hàng ngày của bạn trong Excel và tăng năng suất của bạn lên ít nhất 50%. Chẳng hạn như nhóm lựa chọn một lần nhấp và chuyển đổi hàng loạt.
Bây giờ là cơ hội để bạn tăng tốc bản thân với Kutools cho Excel!

Tải xuống miễn phí