[Xin trợ giúp] Tổng hợp dữ liệu từ nhiều file exel theo điều kiện

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

jangzang

Thành viên mới
Tham gia
28/11/09
Bài viết
4
Được thích
1
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
 
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
Thử lệnh .InitialFileName = "*bao cao.xlsx*". . .
Mã:
. . .
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True  'chon 1 file
    .InitialFileName = "*bao cao.xlsx*"
     . . .
 
Upvote 0
Thử lệnh .InitialFileName = "*bao cao.xlsx*". . .
Mã:
. . .
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True  'chon 1 file
    .InitialFileName = "*bao cao.xlsx*"
     . . .
Không được bác ạ. Nó chỉ hiện ra các file có tên chứa điều kiện kia thôi ạ. Em muốn tạo điều kiện để khi pick nhiều file, thì file có "*baocao*" sẽ nhập vào sheet 1, "*baocao2*" nhập vào sheet 2 ấy ạ
 
Upvote 0
Không được bác ạ. Nó chỉ hiện ra các file có tên chứa điều kiện kia thôi ạ. Em muốn tạo điều kiện để khi pick nhiều file, thì file có "*baocao*" sẽ nhập vào sheet 1, "*baocao2*" nhập vào sheet 2 ấy ạ
Ủa bài #1 chỉ có yêu cầu
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 ạ.
Giờ sao lại lòi ra yêu cầu khác
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom