Em muốn viết 1 đoạn Code mở Fille xml sangxlsx và gộp tất cả các file này

Em muốn viết 1 đoạn Code mở Fille .xml sang.xlsx và gộp tất cả các file này lại. Em thử nhưng không được. Mong thầy hỗ trợ giúp em. Em cảm ơn. Đoạn code

With Application.FileDialog(msoFileDialogFilePicker)

            .AllowMultiSelect = True

            .Show

        Dim i As Long

        For i = 1 To .SelectedItems.Count

            Dim wb_kq As Workbook

            Dim wb_select As Workbook

                Set wb_kq = ThisWorkbook

                Set wb_select = Workbooks.Open(.SelectedItems(i))

            Dim DongCuoi_KQ As Long

                DongCuoi_KQ = wb_kq.Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row

            Dim DongDau_CT As Long

                DongDau_CT = 1

            Dim DongCuoi_CT As Long

                DongCuoi_CT = wb_select.Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row

        Dim KC As Long

        KC = DongCuoi_CT - DongDau_CT + 1

        wb_kq.Sheets("sheet1").Range("A" & DongCuoi_KQ + 1 & ":DN" & DongCuoi_KQ + KC).Value = wb_select.Sheets(1).Range("A" & DongDau_CT & ":DN" & DongCuoi_CT).Value

         ActiveWorkbook.XmlImport URL:=wb_select, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")

        wb_select.Close savechanges:=False

            Next i

         End With