Tôi tôi đã làm đúng như hướng dẫn mà sao vẫn bị báo lỗi (phần lỗi

Tôi xin hỏi tôi đã làm đúng như hướng dẫn mà sao vẫn bị báo lỗi (phần lỗi sẽ đánh dấu)

Sub Gop_DuLieu_TongQuat()

'Tao thu muc chon file

        With Application.FileDialog(msoFileDialogFolderPicker)

              .AllowMultiSelect = False 'Cho phep chon nhieu file

              If .Show = -1 Then        'Hien cua so chon file

           Dim DuongDan As String  'Dai dien cho duong dan

                 DuongDan = .SelectedItems(1) & " \ "

           Dim Tenfile As String       'Dai dien ten file duoc chon

                Tenfile = "*Luong_Thang*.xlsx*"

           Dim File_Duoc_mo As String

                 File_Duoc_mo = Dir(DuongDan & Tenfile)  ('Khi chạy đến đây bị báo lỗi phần này)

           Do While File_Duoc_mo <> ""

 'Xac dinh file nao duoc chon

    'Gan bien cho cac workbook

            Dim wb_KQ As Workbook

            Dim wb_Select As Workbook

                Set wb_KQ = ThisWorkbook

                Set wb_Select = Workbooks.Open(Filename:=DuongDan & File_Duoc_mo)

 'B1:Xac dinh dong cuoi cua bang Tong_Hop

     Dim DongCuoi_KQ As Long

        DongCuoi_KQ = wb_KQ.Sheets("Data_TienLuong").Range("A" & Rows.Count).End(xlUp).Row

  'B2:Xac dinh dong dau va dong cuoi cua bang chi tiet

    'Xac dinh dong cuoi cua wb_select

    Dim DongCuoi_CT As Long

        DongCuoi_CT = wb_Select.Sheets(1).Range("F" & Rows.Count).End(xlUp).Row

        Dim DongDau_CT As Long

            DongDau_CT = 8

    'B3: xac dinh khoang cach so dong du lieu

        Dim Khoangcach As Long

            Khoangcach = DongCuoi_CT - DongDau_CT + 1

    'B4: Dua du lieu vao

    wb_KQ.Sheets("Data_TienLuong").Range("A" & DongCuoi_KQ + 1 & ":BM" & DongCuoi_KQ + Khoangcach).Value = _

    wb_Select.Sheets(1).Range("A" & DongDau_CT & ":BM" & DongCuoi_CT).Value

    'Dong file noi dung

        wb_Select.Close saveChanges:=False

    'Xac dinh lai file khac duoc mo

        File_Duoc_mo = Dir

     Loop

   End If

 End With

End Sub