Kính nhờ các anh chị, thầy cô hướng dẫn trợ giúp chỉnh code Copy Data của nhiều File vào 1 file tổng hợp ạ.

[Ldh1984]

Nhu cầu của em là lấy dữ liệu tại “cột K” của các File chép vào File TONG HOP tại Sheet(“DATA”) đã thiết kế , với định dạng là: copy paste value
Em có file đính kèm bên dưới.

Cụ thể em nhặc được dòng code như sau:

Sub COPYDATA()

Dim wb As Workbook, wbmain As Workbook, Filename, i As Integer, j As Integer, cot As Integer

Application.ScreenUpdating = False

Set wbmain = ThisWorkbook

Filename = Application.GetOpenFilename("all,*.*", , "chon file", , True)

For i = LBound(Filename) To UBound(Filename)

For j = 2 To 12

If Filename(i) Like "*" & Cells(1, j) & ".xlsx" Then

cot = j

Exit For

End If

Next

Set wb = Workbooks.Open(Filename(i))

wb.Sheets("S").Range("K2:K10000").Copypastevalues wbmain.Sheets("DATA").Cells(3, cot)

wb.Close False

Next

Application.ScreenUpdating = True

End Sub

=====> Quá trình làm thất bại ☹ mong các bác dành ít thời gian hỗ trợ ạ.

Em chân thành cảm ơn!

 

[BuiQuangThuan]

Nhu cầu của em là lấy dữ liệu tại “cột K” của các File chép vào File TONG HOP tại Sheet(“DATA”) đã thiết kế , với định dạng là: copy paste value
Em có file đính kèm bên dưới.

Cụ thể em nhặc được dòng code như sau:

Sub COPYDATA()

Dim wb As Workbook, wbmain As Workbook, Filename, i As Integer, j As Integer, cot As Integer

Application.ScreenUpdating = False

Set wbmain = ThisWorkbook

Filename = Application.GetOpenFilename("all,*.*", , "chon file", , True)

For i = LBound(Filename) To UBound(Filename)

For j = 2 To 12

If Filename(i) Like "*" & Cells(1, j) & ".xlsx" Then

cot = j

Exit For

End If

Next

Set wb = Workbooks.Open(Filename(i))

wb.Sheets("S").Range("K2:K10000").Copypastevalues wbmain.Sheets("DATA").Cells(3, cot)

wb.Close False

Next

Application.ScreenUpdating = True

End Sub

=====> Quá trình làm thất bại ☹ mong các bác dành ít thời gian hỗ trợ ạ.

Em chân thành cảm ơn!

Cái đoạn set wb ấy phải cho vào trong vòng lặp chứ sao lại để ngoài

 

[Ldh1984]

Cái đoạn set wb ấy phải cho vào trong vòng lặp chứ sao lại để ngoài

Bác có thể giúp em thiết kế lại đoạn Code trên không ạ. VBA em mới nhập môn nên chưa rành ạ
em cảm ơn trước ^^

 

[Hoàng Tuấn 868]

Cái đoạn set wb ấy phải cho vào trong vòng lặp chứ sao lại để ngoài

Code bài này ở ngoài khác code trong file.