Gửi bởi
vuphuongcuong
Xin chào anh chị em trong diễn đàn.
Mình có một vấn đề mong anh chị em hướng dẫn giúp đỡ, cụ thể như sau:
Mình có 1 folder chứa những file pdf được đặt tên theo thứ nhất định. Mình phải cập nhật tên các file đó vào 1 list trong 1 file excel để quản lý hồ sơ. Sếp mình ra bải tập là làm marco tự động cập nhật list đó vào file excel.
vì mình học kỹ thuật nên không rành về excel lắm (nhất là marco), mà tra goole không đúng từ khoá nên vẫn chưa giải quyết được. Rất mong anh chị em giúp đỡ hướng dẫn.
Xin cảm ơn.
Bạn thử mở 1 file Excel mới, chèn 1 module vào file. Lưu file này cùng Folder với các file pdf của bạn. Copy code này vào module và chạy Sub Main. Kết quả sẽ trả về tai ô A1, bạn có thể tuỳ biến theo nhu cầu cá nhân. Nhớ là phải lưu dưới dạng xls hoặc xlsm nhá.
Mã nguồn PHP:
Sub Main()Dim Res()Res = GetFiles(ThisWorkbook.Path, "pdf")[A1].Resize(UBound(Res)) = Application.Transpose(Res)End Sub'......................................Function GetFiles(Path As String, Ext As String)Dim fso As Object, ObjFile As Object, Arr(), i&Set fso = CreateObject("Scripting.FileSystemObject")With fso.GetFolder(Path) For Each ObjFile In .Files If fso.GetExtensionName(ObjFile) Like Ext Then i = i + 1 ReDim Preserve Arr(1 To i) Arr(i) = ObjFile End If NextEnd WithIf i = 0 Then EndGetFiles = ArrEnd Function
Trả lời kèm Trích dẫn
vụ này với, không biết là cần phải thiết lập lại bảo mật server hay thế nào ?
