Em đang dùng code sau để tổng hợp dữ liệu từ nhiều file. Giờ em muốn thêm điều kiện để chọn file trong folder mà tên file có chứa nội dung ví dụ như *bao cao.xlsx* kính mong các bác trợ giúp em với ạ.
Mã:
Sub nhapcl01t1()
ThisWorkbook.Sheets("CL01-T-1").Range("F:CK").ClearContents
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True 'chon 1 file
.Show 'hien cua so chon file
Dim i As Long
For i = 1 To .SelectedItems.Count
'Gan bien cho cac wkb
Dim wb_KQ As Workbook
Dim wb_Select As Workbook
Set wb_KQ = ThisWorkbook
Set wb_Select = Workbooks.Open(.SelectedItems(i))
Dim LRselect As Long ' dong cuoi wb select
Dim LRKQ As Long 'dong cuoi wbkq
Dim dongdauselect As Long
dongdauselect = 1 'dong dau data dua vao
Dim khoangcachduavao As Long
LRselect = wb_Select.Sheets("Page 0").Range("b" & Rows.Count).End(xlUp).Row + 1
LRKQ = wb_KQ.Sheets("CL01-T-1").Range("g" & Rows.Count).End(xlUp).Row
khoangcachduavao = LRselect - dongdauselect
' dua du lieu vao
wb_KQ.Sheets("CL01-T-1").Range("F" & LRKQ & ":CK" & LRKQ + khoangcachduavao).Value = _
wb_Select.Sheets("Page 0").Range("A" & dongdauselect & ":CF" & LRselect).Value
wb_Select.Close savechanges:=False
Next i
End With
End Sub