Lấy dữ liệu từ file excel khác theo nhiều điều kiện (Dùng VBA)

chidung2009 · 2/7/20

Em có 1 file DATA có hơn 500.000 dòng, dung lượng gần 100mb, rất bất tiện khi thao tác trên file đó.
Giờ em muốn tạo 1 file excel khác dùng để lấy dữ liệu, lọc theo nhiều điều kiện thì phải làm thế nào (Không mở file DATA)
- Do file Data quá lớn nên em đã xóa bớt dòng và 1 số sheel khác để giảm dung lượng (Để lại còn 3000 dòng)
- Tại file lấy dữ liệu: khi nhập điều kiện lấy theo tháng vào ô D1, D2 và số tiền vào ô F1, F2 thì khi lấy dữ liệu nó sẽ lọc dữ liệu theo các điều kiện trên (Nếu D1, D2 hoặc F1, F2 trống thì lấy tất cả mà lọc theo điều kiện còn lại)
Mong mọi người giúp em với
Em chần thành cảm ơn

Maika8008 · 2/7/20

chidung2009 đã viết:
Em có 1 file DATA có hơn 500.000 dòng, dung lượng gần 100mb, rất bất tiện khi thao tác trên file đó.
Giờ em muốn tạo 1 file excel khác dùng để lấy dữ liệu, lọc theo nhiều điều kiện thì phải làm thế nào (Không mở file DATA)
- Do file Data quá lớn nên em đã xóa bớt dòng và 1 số sheel khác để giảm dung lượng (Để lại còn 3000 dòng)
- Tại file lấy dữ liệu: khi nhập điều kiện lấy theo tháng vào ô D1, D2 và số tiền vào ô F1, F2 thì khi lấy dữ liệu nó sẽ lọc dữ liệu theo các điều kiện trên (Nếu D1, D2 hoặc F1, F2 trống thì lấy tất cả mà lọc theo điều kiện còn lại)
Mong mọi người giúp em với
Em chần thành cảm ơn

Cách đơn giản là dùng SQL nhưng tại file gốc, bạn phải chuẩn hóa tiêu đề cột: tiêu đề chỉ trên 1 dòng, tên tiêu đề phải không có dấu

Update: đã xem file DATA của bạn. Dữ liệu vậy là OK rồi, chỉ việc múc ra thôi :yeah:

snow25 · 2/7/20

chidung2009 đã viết:
Em có 1 file DATA có hơn 500.000 dòng, dung lượng gần 100mb, rất bất tiện khi thao tác trên file đó.
Giờ em muốn tạo 1 file excel khác dùng để lấy dữ liệu, lọc theo nhiều điều kiện thì phải làm thế nào (Không mở file DATA)
- Do file Data quá lớn nên em đã xóa bớt dòng và 1 số sheel khác để giảm dung lượng (Để lại còn 3000 dòng)
- Tại file lấy dữ liệu: khi nhập điều kiện lấy theo tháng vào ô D1, D2 và số tiền vào ô F1, F2 thì khi lấy dữ liệu nó sẽ lọc dữ liệu theo các điều kiện trên (Nếu D1, D2 hoặc F1, F2 trống thì lấy tất cả mà lọc theo điều kiện còn lại)
Mong mọi người giúp em với
Em chần thành cảm ơn

Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.

Mã:

Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub

chidung2009 · 2/7/20

snow25 đã viết:

Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292

Mã:

Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub

Do giờ mình đang ngoài đường nên chưa test thử code vba của bạn. Mình cảm ơn bạn nhiều nhé

Maika8008 · 2/7/20

chidung2009 đã viết:
Do giờ mình đang ngoài đường nên chưa test thử code vba của bạn. Mình cảm ơn bạn nhiều nhé

Thêm -- (hai dấu trừ) trước hàm MID chỗ trường THANG

Bài đã được tự động gộp: 2/7/20

snow25 đã viết:

Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292

Mã:

Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub

Cần thư viện gì nữa hay câu SQL sai mà máy tôi báo lỗi này bạn?

snow25 · 2/7/20

Maika8008 đã viết:
Thêm -- (hai dấu trừ) trước hàm MID chỗ trường THANG

Bài đã được tự động gộp: 2/7/20

Cần thư viện gì nữa hay câu SQL sai mà máy tôi báo lỗi này bạn?
View attachment 240312

Bạn xem nó báo lỗi chỗ nào gửi ảnh lên với file nữa.

VetMini · 2/7/20

Lấy và lọc dữ liệu khủng thì dùng Power Query chứ.

ongke0711 · 2/7/20

Maika8008 đã viết:
Cần thư viện gì nữa hay câu SQL sai mà máy tôi báo lỗi này bạn?
View attachment 240312

Lỗi này phần lớn do sai đường dẫn hoặc lỗi đặt tên file.

Maika8008 · 2/7/20

ongke0711 đã viết:
Lỗi này phần lớn do sai đường dẫn hoặc lỗi đặt tên file.

Đúng y bác. Siêu nhơn!

chidung2009 · 3/7/20

VetMini đã viết:
Lấy và lọc dữ liệu khủng thì dùng Power Query chứ.

Power Query mới lạ quá nên mình ko biết dùng cái này. Muốn dùng thì phải cài Add-in gìvaf viết câu lệnh như thế nào

Bài đã được tự động gộp: 3/7/20

Maika8008 đã viết:
Cách đơn giản là dùng SQL nhưng tại file gốc, bạn phải chuẩn hóa tiêu đề cột: tiêu đề chỉ trên 1 dòng, tên tiêu đề phải không có dấu

Update: đã xem file DATA của bạn. Dữ liệu vậy là OK rồi, chỉ việc múc ra thôi

Mình muốn múc lắm mà ko biết làm thế nào, muốn lấy dữ liệu theo điều kiện sang file khác thì phải viết câu lệnh thế nào?
mình xin cảm ơn

Maika8008 · 3/7/20

chidung2009 đã viết:
Power Query mới lạ quá nên mình ko biết dùng cái này. Muốn dùng thì phải cài Add-in gìvaf viết câu lệnh như thế nào

Bài đã được tự động gộp: 3/7/20

Mình muốn múc lắm mà ko biết làm thế nào, muốn lấy dữ liệu theo điều kiện sang file khác thì phải viết câu lệnh thế nào?
mình xin cảm ơn

Bạn snow25 đã giúp bạn ở bài #3 rồi mà. Bạn chưa thử code sao?

chidung2009 · 3/7/20

D

Maika8008 đã viết:
Bạn snow25 đã giúp bạn ở bài #3 rồi mà. Bạn chưa thử code sao?

Do hôm qua chạy nó báo lỗi, để mình kiểm tra lại. Cảm ơn bạn nha

hoahuongduong1986 · 3/7/20

Maika8008 đã viết:
Thêm -- (hai dấu trừ) trước hàm MID chỗ trường THANG

Bài đã được tự động gộp: 2/7/20

Cần thư viện gì nữa hay câu SQL sai mà máy tôi báo lỗi này bạn?
View attachment 240312

Em thấy bài hay nên thử và báo Lỗi báo sai đường dẫn. Nhưng em không rõ sai chỗ nào luôn ạ

VetMini · 3/7/20

chidung2009 đã viết:
Power Query mới lạ quá nên mình ko biết dùng cái này. Muốn dùng thì phải cài Add-in gìvaf viết câu lệnh như thế nào
...

Làm việc với dữ liệu khủng mà cứ dựa vào code VBA thì cũng như dựa vào tay cầm xích để răn cọp. Có ngày cọp nó quay lại vồ.

Excel chỉ là bảng tính trải rộng. Chuyện truy cập nguồn thuộc về kỹ thuật khác. Dữ liệu khủng lại là mọt kỹ thuật khác nữa.

Làm việc vói dữ liệu khủng mà giờ này mới nói "Power Query mới lạ quá" là kiểu làm việc chạy trối chết theo công việc. Chưa hề biết cách làm chủ tình hình.

snow25 · 3/7/20

hoahuongduong1986 đã viết:
Em thấy bài hay nên thử và báo Lỗi báo sai đường dẫn. Nhưng em không rõ sai chỗ nào luôn ạ

View attachment 240354

Bỏ cái

Mã:

ThisWorkbook.Path

đi là được.

chidung2009 · 3/7/20

snow25 đã viết:

Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292

Mã:

Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub

Mình đã thử code của bạn và đã thành công, mình cảm ơn bạn nhiều

hoahuongduong1986 · 3/7/20

snow25 đã viết:
Bỏ cái

Mã:

ThisWorkbook.Path

đi là được.

Của em vẫn bị lỗi này là gì anh

snow25 · 3/7/20

hoahuongduong1986 đã viết:
Của em vẫn bị lỗi này là gì anh
View attachment 240370

Chắc dữ liệu Data ở cột tháng nó là string giờ chỉnh lại nó thành dạng số thì mới lấy được.

hoahuongduong1986 · 3/7/20

snow25 đã viết:
Chắc dữ liệu Data ở cột tháng nó là string giờ chỉnh lại nó thành dạng số thì mới lấy được.

Em làm được rồi ạ. Thanks anh nhiều.

chidung2009 · 3/7/20

snow25 đã viết:

Thử code này nhé.Bạn chỉnh lại dữ liệu Data.Như ảnh dưới và chỉnh lại đường link nhé.
View attachment 240292

Mã:

Sub laydulieu()
    Dim duonglink As String, thangbd As Integer, thangkt As Integer, tien1 As Double, tien2 As Double
    Dim cn As Object, rst As Object, pro As String, Ext As String, Sql As String
    Set cn = CreateObject("ADODB.connection")
    Set rst = CreateObject("ADODB.recordset")
     pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
     Ext = ";Extended Properties=""Excel 12.0;HDR=No;IMEX= 2"";"
     duonglink = ThisWorkbook.Path & "\DATA (2).xlsx" 'chinh lai cho chuan duong dan
    With Sheets("sheet1")
         thangbd = .Range("D1").Value
         thangkt = .Range("D2").Value
         tien1 = .Range("F1").Value
         tien2 = .Range("f2").Value
         .Range("A5:F5000").ClearContents
    End With
    cn.Open (pro & duonglink & Ext)
    Sql = "SELECT * from [sheet3$A5:F100000]  WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
    rst.Open Sql, cn
    Sheet1.Range("A5").CopyFromRecordset rst
    rst.Close
    cn.Close
End Sub

Cho mình hỏi Đoạn mã:
Sql = "SELECT * from [sheet3$A5:F100000] WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"
Vậy WHERE F5 BETWEEN và AND F6 BETWEEN có nghĩa là gì vậy ?
Sao không phải là E2 và F2

Lấy dữ liệu từ file excel khác theo nhiều điều kiện (Dùng VBA)

Thành viên hoạt động

File đính kèm

Thành viên gạo cội

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên gạo cội

Ăn cùng góc phố

Thành viên gắn bó

Thành viên gạo cội

Thành viên hoạt động

Thành viên gạo cội

Thành viên hoạt động

Thành viên thường trực

Ăn cùng góc phố

Thành viên gạo cội

Thành viên hoạt động

Thành viên thường trực

File đính kèm

Thành viên gạo cội

Thành viên thường trực

Thành viên hoạt động

Facebook

Group