Lấy dữ liệu và liên kết giữa các file (1 người xem)

[hoangnam2015]

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.

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

 

[Let'GâuGâ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.

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

Tất cả các file này và file Main đều năm cùng một Folder?

 

[hoangnam2015]

Tất cả các file này và file Main đều năm cùng một Folder?

các file và file main nằm khác folder mà Anh. như file em gửi đó.

 

[hoangnam2015]

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.

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

anh chị nào biết chỉ em với. em cảm ơn.

 

[hoangnam2015]

anh chị nào biết cách làm không chỉ em với. em cảm ơn.

 

[hoangnam2015]

anh chị nào biết lĩnh vực này không chỉ em với. em cảm ơn.

 

[hoangnam2015]

anh chị nào biết chỉ em bài này với. em cảm ơn.

 

[hoangnam2015]

Ở khác folder không được. Anh chị nào có cách làm khi các file ở cùng 1 folder không. Nếu biết chỉ em với. Em cảm ơn.

 

[Let'GâuGâu]

Ở khác folder không được. Anh chị nào có cách làm khi các file ở cùng 1 folder không. Nếu biết chỉ em với. Em cảm ơn.

Bạn hãy tham khỏa bài này xem
http://www.giaiphapexcel.com/forum/showthread.php?102883-Code-lấy-tên-sheet-bỏ-vào-1-file-khác

tôi nghĩ là để cho đơn giản, bạn nên đặt tên sheet trùng với tên file, và không có dấu

 

[ndu96081631]

Ở khác folder không được. Anh chị nào có cách làm khi các file ở cùng 1 folder không. Nếu biết chỉ em với. Em cảm ơn.

Tôi thì chưa.. thông lắm!
Đang xem file Main.xlsx, tại sheet "Long An" thấy bạn ghi rằng ở cell A5:

kết quả từ ô A6 là copy hết dữ liệu của các ô: A6:S200 trong sheet 1. file excel "Long an" trong folder nguồn

Cái này thì hiểu. Nhưng ở cell A1 bạn lại ghi

Nhập tên để tìm

Tôi chẳng hiểu nhập TÊN gì và TIM cái gì?

 

[hoangnam2015]

Tôi thì chưa.. thông lắm!
Đang xem file Main.xlsx, tại sheet "Long An" thấy bạn ghi rằng ở cell A5:

Cái này thì hiểu. Nhưng ở cell A1 bạn lại ghi

Tôi chẳng hiểu nhập TÊN gì và TIM cái gì?

Cảm ơn anh đã chia sẽ.

Ý 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.

 

[hoangnam2015]

Anh chị nào có cách làm cụ thể không chi em với. Em cảm on nhiều.

 

[hoangnam2015]

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.

 

[hoangnam2015]

Em có làm kết quả file đính kèm bên dưới. nhờ các anh giúp. cảm ơn các anh chị nhiều.

 

[Hai Lúa Miền Tây]

Em có làm kết quả file đính kèm bên dưới. nhờ các anh giúp. cảm ơn các 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 '" & [A1] & "'", ado
    Range("A8").CopyFromRecordset rst
    rst.Close
    ado.Close
End Sub

Giải nén file ví dụ và mở file Main để thử nhé.

 

[hoangnam2015]

cảm ơn anh "Hai lúa miền tây" nhiều.