Trích lọc dữ liệu từ Workbook khác và tự động Update. (1 người xem)

[keepwalking]

Chào cả nhà,
Mình nhờ cả nhà hướng dẫn giúp mình vấn đề trích xuất dữ liệu và tự động update như sau với:
Mình có một file gốc như sau:



Và một file lọc ra với tiêu chuẩn lọc là Thành Phố VT



Mình muốn lọc các dữ liệu với tiêu chuẩn lọc là Thành Phố VT với yêu cầu là khi file gốc thêm dữ liệu ở hàng dưới thì file lọc cũng sẽ tự động cập nhật thêm, file lọc sẽ không bị lỗi khi đóng file gốc lại.
Mong cả nhà hướng dẫn giúp mình. Cảm ơn rất nhiều.

 

[be_09]

Chào cả nhà,
Mình nhờ cả nhà hướng dẫn giúp mình vấn đề trích xuất dữ liệu và tự động update như sau với:
Mình có một file gốc như sau:

Và một file lọc ra với tiêu chuẩn lọc là Thành Phố VT

Mình muốn lọc các dữ liệu với tiêu chuẩn lọc là Thành Phố VT với yêu cầu là khi file gốc thêm dữ liệu ở hàng dưới thì file lọc cũng sẽ tự động cập nhật thêm, file lọc sẽ không bị lỗi khi đóng file gốc lại.
Mong cả nhà hướng dẫn giúp mình. Cảm ơn rất nhiều.

Bạn làm công tác Tổng điều tra dân số à.

 

[LamNA]

Chào cả nhà,
Mình nhờ cả nhà hướng dẫn giúp mình vấn đề trích xuất dữ liệu và tự động update như sau với:
Mình có một file gốc như sau:

View attachment 214669

Và một file lọc ra với tiêu chuẩn lọc là Thành Phố VT

View attachment 214670

Mình muốn lọc các dữ liệu với tiêu chuẩn lọc là Thành Phố VT với yêu cầu là khi file gốc thêm dữ liệu ở hàng dưới thì file lọc cũng sẽ tự động cập nhật thêm, file lọc sẽ không bị lỗi khi đóng file gốc lại.
Mong cả nhà hướng dẫn giúp mình. Cảm ơn rất nhiều.

Bạn thử cái này học từ anh @Hai Lúa Miền Tây

Sub Loc()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
        Sheet2.Range("B4").CopyFromRecordset .Execute("select a.* from [EXCEL 12.0;Database=" & ThisWorkbook.Path & "\DATA.xlsx].[Du_Lieu$] a Inner join [KQ$] b ON a.[Thanh Pho]=b.[Nhap Dieu Kien] ")
    End With
End Sub

 

[keepwalking]

Bạn làm công tác Tổng điều tra dân số à.

Không bạn ơi, mình làm giám sát thi công, phải làm báo cáo dữ liệu để đi họp. Cái này chỉ là ví dụ thôi.

Bài đã được tự động gộp: 5/4/19

Bạn thử cái này học từ anh @Hai Lúa Miền Tây

Sub Loc()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
        Sheet2.Range("B4").CopyFromRecordset .Execute("select a.* from [EXCEL 12.0;Database=" & ThisWorkbook.Path & "\DATA.xlsx].[Du_Lieu$] a Inner join [KQ$] b ON a.[Thanh Pho]=b.[Nhap Dieu Kien] ")
    End With
End Sub

Cảm ơn bạn nhiều.

 

[VetMini]

Update kiểu này là đùa với lửa. Không biết lửa thì có ngày cháy nhà.
Chỉ cần trục trặc mọt chút là dữ liệu sai bấy hết - bỏ sọt rác.

Không phải là không nên làm. Chỉ là những người khá giỏi về code mới nên làm - vì phải biết đoán trước những trường hợp bất trắc.
Mà người giỏi code thì đã có sẵn code, chỉ hỏi chỗ bí thôi.

 

[keepwalking]

Update kiểu này là đùa với lửa. Không biết lửa thì có ngày cháy nhà.
Chỉ cần trục trặc mọt chút là dữ liệu sai bấy hết - bỏ sọt rác.

Không phải là không nên làm. Chỉ là những người khá giỏi về code mới nên làm - vì phải biết đoán trước những trường hợp bất trắc.
Mà người giỏi code thì đã có sẵn code, chỉ hỏi chỗ bí thôi.

Thanks bạn. Đây cũng là một lý do để mình bắt đầu đến với VBA code.