Nhiều lý do lắm.
Con từng gặp dạng dữ liệu kiểu này.
ko hiểu ý bác lắm, nhưng e lượm nhặt dc code đóng mở các file trong 1 folder. Bác tự thêm code copy vào là được
'Check Output
Sub ListFiles()
Application.ScreenUpdating = False
Dim path As String
Dim dem As Integer
path = "C:\Users\" 'must end with path separator ( \ )
Cells.Clear
Call GetFiles(path)
End Sub
Private Sub GetFiles(ByVal path As String)
Application.ScreenUpdating = False
Dim FSO As Object, Fldr As Object, subF As Object, file As Object, extn As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fldr = FSO.GetFolder(path)
For Each subF In Fldr.SubFolders
GetFiles (subF.path)
Next subF
For Each file In Fldr.Files
On Error Resume Next
If Err.Number = 0 Then
Workbooks.Open (file.path)
'-------------------------------------------------------------------------
code here
'------------------------------------------------------------------------------------
End If
On Error GoTo 0
Next file
Set FSO = Nothing
Set Fldr = Nothing
Set subF = Nothing
Set file = Nothing
End Sub
Cỡ 20 files là phải có quy trình quản lý và lưu trữ "dữ liệu để dành" (archived data) rồi.
Tổng hợp nhiều file thành 1 file thì có nhiều code và nhiều bài viết cho vấn đề này. Nhưng đối với người không chuyên VBA tôi khuyên sử dụng Power Query hoặc Power BI, tổng hợp nhiều sheet vào 1 sheet hay tổng hợp nhiều file vào 1 file.......Power Query đều làm được hết, dễ sử dụng cho những người không biết code.
Cám ơn đã gợi ý cho mình ạ
Mình cảm ơn
Mình xin pass để mở xem code dc ko?
bài này hay có gì chia sẻ thành quả cho tôi học với nhé, cảm ơn!
Mình đã gửi cho bạn rồi nhé
Ngay trong diễn đàn này có chuyên mục về Power query. Có cả 1 tài liệu để đọc về nó. Còn nói về mở tất cả file trong folder lấy dữ liệu thì có 1 chủ đề, và thậm chí có code sẵn.
Thế bạn có lường được là ngoài vấn đề của bạn thì code còn vô số sub/function làm những thứ khác không? Bạn có sẽ biết được là cái mình cần nó nằm ở đâu không? Nếu nhiều code ngoài việc bạn cần làm thì có khi bạn sẽ lạc trong một rừng code, tẩu hỏa nhập ma thôi.
