đoạn code này của em sao khi bấm f8 đên đoạn chon file thì khi vào folder nó ko hiện file excel vậy Thầy

Sub gop_du_lieu_vao_1_tong_quan()

'tao thu muc mo

With Application.FileDialog(msoFileDialogFolderPicker)

  .AllowMultiSelect = True

  .Show

'xac dinh cac file duoc chon

  Dim i As Long

  For i = 1 To .SelectedItems.Count

'tao cac thu muc cho va nhan

  Dim wb_nhan As Workbook

  Set wb_nhan = ThisWorkbook

  Dim wb_cho As Workbook

  Set wb_cho = Workbooks.Open(.SelectedItems(i)) ' neu khong dung thi (workbook.open(.selleceditems(i))

'xac dinh dong cuoi thu muc cho

  Dim dc_cho As Long

   dc_cho = wb_cho.Sheets("1").range("A" & Rows.Count).End(xlUp).Row

'xac dinh dong dau cua noi cho

  Dim dd_cho As Long

   dd_cho = 2

' xac dinh chieu dai

  Dim cd_cho As Long

   cd_cho = dc_cho - dd_cho + 1

' xac dinh dong cuoi cua thu muc nhan

  Dim dc_nhan As Long

   dc_nhan = wb_nhan.Sheets("data").range("A" & Rows.Count).End(xlUp).Row

' dua du lieu vung cho vao cung nhan

  wb_nhan.Sheet("data").range("A" & dc_nhan + 1 & ":B" & dc_nhan + cd_cho).Value = _

wb_cho.Sheet("1").range("A" & dd_cho & ":B" & dc_cho).Value

'tat file nguon

  wb_cho.Close savechanges:=False

  Next i

  End With

End Sub

chào bạn đoạn code trên bạn debug bằng cách chọn dòng code ấn F9 rồi chạy với từng phím F8 đến đoạn

.Show nó sẽ hiện forder chọn 

Em thử mà vẫn ko dc ạ.

khi vào folder để chọn thì ko thấy file excel để chọn đâu Thầy.

chào bạn bạn chỉ cần forder là được nhé.