Vui Chơi Với Thuật Toán Đệ Quy Trong Lập Trình Với Excel

[Kiều Mạnh]

Tình hình là mấy ngày nay Mình đang nghiên cứu ứng dụng thuật Toán đệ Quy trong VBA một tí ...Có đọc rất nhiều bài trên GPE và Goolge để nghiên cứu xem tình hình sao...

Thấy bài trên GPE rất nhiều nhưng ứng dụng và bài viết cũng ít ...

Mình có nghiên cứu nhưng chưa thật sự hiểu sâu lắm về thuật Toán đệ quy lắm....Vây Mình lập ra đề tài này để mình học hỏi và nghiên cứu thêm ...

Nếu Bạn nào có hứng với thuật Toán đệ quy và có thắc mắc gì thì cứ úp Bài chung vào đây càng nhiều càng tốt ta cùng nhau vui chơi cho thỏa thích...

Mạnh là nông dân thuần túy thích thì vọc chơi nên thuật ngữ chuyên nghành về lập trình phát biểu không giống ai ... Mong các Bạn có Kiến thức Hàm lâm chỉ thêm chứ không nên bắt bẻ nọ kia ...xin cảm ơn

Sẽ có nhiều bài ứng dụng thuật toán đệ quy trong Thớt này ...từ từ ta cùng nhau ngâm cứu

Ứng dụng duyệt File trong Folder và SubFolders Open File

Public Sub OpenFilesInSubFolder(ByVal sFolder As String, ByVal InSub As Boolean)
    Dim objsFolder As Object, ObjFile As Object
    With CreateObject("Scripting.FileSystemObject")
        For Each ObjFile In .GetFolder(sFolder).Files
            If .GetExtensionName(ObjFile) Like "xls*" Then
                If Left(ObjFile.Name, 2) <> "~$" Then
                    If ObjFile.Name <> ThisWorkbook.Name Then
                        With Workbooks.Open(ObjFile)
                            .Close False
                        End With
                    End If
                End If
            End If
        Next ObjFile
        If InSub Then
            For Each objsFolder In .GetFolder(sFolder).subFolders
                Call OpenFilesInSubFolder(objsFolder.Path, True)
            Next objsFolder
        End If
    End With
End Sub


''False = Open File Trong Folder       ==> không đệ Quy
''True = Open File Trong SubFolders ==> Đệ Quy


Public Sub Main()
    Dim Path As String
    Path = ThisWorkbook.Path
    OpenFilesInSubFolder Path, True
End Sub

Với code trên nếu Sub Main mà là False thì sẻ mở hết tất cả các File Excel trong Folder đó ...Còn True thì sẻ mở hết Từ Folder cha, con, cháu ... trong Folder cha...

Nếu Các Bạn có cách nào viết khác xin được chỉ thêm....

Rất mong các Bạn tham gia xem cách Viết như vậy có vấn đề gì không...
Nếu Ok bài sau ta sẻ ứng dụng nó tổng hợp các File trong Folder cha, con, cháu chắt nhà nó....

Sau nữa thì ta chơi qua ADO....
.................................
Xin cảm ơn Các bạn đã tham gia

Chúc Vui Chơi Trí Tuệ , Hòa Bình & Vui Vẻ

Thân

 

[huuthang_bd]

Cảm ơn bạn Mình làm theo mẫu tên Sheet mà mình Úp lên ở bài 27 gì đó ...
nhưng mới test File Bạn úp thấy lấy được mà

Theo hình bạn post thì kết quả trật lất rồi . Bạn xem lại dữ liệu trong file gốc xem.

 

[Kiều Mạnh]

Theo hình bạn post thì kết quả trật lất rồi . Bạn xem lại dữ liệu trong file gốc xem.

nó lấy được sheet đầu thui ......ngâm cứu thêm

 

[VetMini]

Hình như ít Bạn có hứng với Thuật Toán Đệ Quy thì phải...

...

Không phải không có hứng. Maf là bị cụt nguồn hứng.

Do kẹt cái này, không biết phải sử sự thế nào cho vừa ý chủ. Mở lời sợ bị cho là "không tôn trọng tôn chỉ" nên thà câm.

Đề Nghị Các Bạn Thực hiện theo Tôn chỉ Mục đích Bài #1 nha..
...

 

[Kiều Mạnh]

Không phải không có hứng. Maf là bị cụt nguồn hứng.

Do kẹt cái này, không biết phải sử sự thế nào cho vừa ý chủ. Mở lời sợ bị cho là "không tôn trọng tôn chỉ" nên thà câm.

Bạn cứ vui chơi tẹt ga đi nha ...
Cảm ơn Bạn