Tự động cập nhật tên tập tin vào trong Excel

Em coù 1 file Excel duøng ñeå quaûn lyù taäp tin trong trong 01 Folder.
Coät A, laø danh saùch caùc file trong Folder.
Thöôøng laøm thuû coâng Click 2 laàn taäp tin môùi, copy teân taäp tin vaø paste vaøo coät A.
Vaäy coù caùch naøo töï ñoäng caäp nhaät teân file môùi vaøo trong danh saùch Excel ñöôïc khoâng. Xin caùc anh chæ giuùp. Xin caûm ôn.

vd: quan lý file trong ổ D:

Sub timkiem()
 Dim tenfile As Long
    With Application.FileSearch
        .LookIn = "D:"
        For tenfile = 1 To .FoundFiles.Count
            Sheet1.Cells(tenfile, 1) = .FoundFiles(tenfile)
        Next tenfile
    End With
End Sub

Bạn thử xem sao

www.giaiphapexcel.com/diendan/threads/t%E1%BB%B1-%C4%91%E1%BB%99ng-c%E1%BA%ADp-nh%E1%BA%ADt-t%C3%AAn-t%E1%BA%ADp-tin-v%C3%A0o-trong-excel.9544/

Khóa học SprinGO phù hợp

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ

Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...

Xem khóa học