Lấy dữ liệu và liên kết giữa các file

Chia sẻ bởi:hands

★★★★★

‹ Cách lấy dữ liệu từ 1 file... Code lấy tên sheet bỏ vào 1... ›

Quảng cáo

Cảm ơn anh chị nhiều.

Chào anh chị,

Anh chị giúp em viết code dùng VBA lấy dữ liệu từ các file gốc như trong bài em gửi bên dưới.
Ý em là khi nhập giá trị ở ô A1- sheet long an trong file excel "main" thì ở file long an ở ô A1 – sheet 1 có giá trị giống như vậy. Các sheet khác ở file main cũng như vậy.
Ví dụ:
Ô a1 sheet long an file excel main đánh chữ abc thì file excel long an ở ô a1 sheet1 nó hiện chữ abc. Sau đó trong sheet long an file excel main tự copy các ô từ ô A6:S200 tronh sheet1 file excel long an sang ô A5 của sheet long an file excel main.
Như vậy khi chuyển qua sheet cà mau file main. Khi đánh ô a1 chữ dcf thì ô a1 sheet1 file excel cà mau hiện dcf và copy dữ liệu các ô như vậy.
Với nhiều file khác cũng vậy.
em gửi file giả định. anh chị coi giúp em nha. em cảm ơn.

Mô tả file:
Bước 1: nhập giá trị ô A1 tại sheet ""Long AN"" trong file Excel ""Main""

sau đó tại ô A1 sheet 1 file excel ""Long An"" nó tự hiện lên kết quả vừa nhập.

tại sheet1 file excel ""Long An"": Khi có giá trị ô 1 nó tự tìm giá trị ở sheet2 và cho ra kết quả.

Bước 2: copy tất cả dữ liệu từ ô A5:N200 trong sheet1 file excel ""Long An"" vào sheet ""Long An"" file excel ""Main"". giá trị copy qua cho vào bắt đầu từ ô A6.

các sheet khác trong file ""main"" đều giống nhau.
Cảm ơn anh chị nhiều.

Tôi làm giúp bạn công đoạn lấy dữ liệu sang file main theo điều kiện ở cell A1.
Sub Test()
Dim ado As Object, rst As Object
Set ado = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
ado.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""" _
& ThisWorkbook.Path & "" & ActiveSheet.Name & ".xlsx" & """;Extended Properties=""Excel 12.0;HDR=No"";")
rst.Open "select * from [Sheet2$A5:N200] where F1 like '" & & "'", ado
Range("A8").CopyFromRecordset rst
rst.Close
ado.Close
End Sub
Giải nén file ví dụ và mở file Main để thử nhé.