Sub mình viết như sauSub BangLuong_01()'Xac dinh thu muc duoc chonWith ApplicationFileDig(msoFileDigFilePicker)

Hi Gitiho,

Sub mình viết như sau:

Sub BangLuong_01()

'Xac dinh thu muc duoc chon

With Application.FileDialog(msoFileDialogFilePicker)

    .AllowMultiSelect = True

    .Show

'Xac dinh vong lap

Dim i As Integer

    For i = 1 To .SelectedItems.Count

'Xet bien cho workbook

Dim wb_KQ As Workbook

Dim wb_Data As Workbook

   Set wb_KQ = ThisWorkbook

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

'Xac dinh Dong Cuoi file KQ

Dim DongCuoi_KQ As Long

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

'Xac dinh Dong Cuoi va Dong Dau file Data

Dim DongCuoi_Data As Long

Dim DongDau_Data As Long

    DongDau_Data = 8

    DongCuoi_Data = wb_Data.Sheets(1).Range("F" & Rows.Count).End(xlUp).Row

'Xac dinh khoang cach

Dim KhoangCach As Long

    KhoangCach = DongCuoi_Data - DongDau_Data + 1

'Chuyen du lieu tu file Data sang file KQ

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

        wb_Data.Sheets(1).Range("A" & DongDau_Data & ":BM" & DongCuoi_Data).Value

'Dong file Data khong luu

    wb_Data.Close savechanges:=False

'Thong bao hoan thanh

MsgBox "Chuyen du lieu thanh cong"

    Next i

    End With

End Sub

Sau khi chạy Import => Báo lỗi code như sau, Gitiho giải đáp giúp mình.