Lấy giữ liệu từ sheet đang đóng bằng code Ado (1 người xem)

  • Thread starter Thread starter lhthai
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
L

lhthai

Thành viên thường trực
Tham gia
1/9/07
Bài viết
309
Được thích
27

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
lhthai đã viết:
Chào Các Anh
Hiện tại mình đang dùng code lấy giữ liệu trong bài sau:
http://www.giaiphapexcel.com/forum/showthread.php?75143-Bài-tập-về-ADO-căn-bản/page7
Nay muốn bổ sung thêm điều kiện khi gõ ngày cột B3 thì lộc giữ liệu những ngày mình cần.
Các anh chị xem file dinh kèm.
Nhấp chuột vào đây để mở rộng...
Nếu đơn giản kiểu dữ liệu cột Ngay của bạn như file đính kèm thì có thể dùng code sau:

Mã: 
Sub Copy3()
    Dim cnn As Object, lrs As Object
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\A.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    Set lrs = cnn.Execute("SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Data$] " & _
                          "WHERE GhiChu = 'C3' and Ngay=" & Sheet1.Range("B3"))
    Sheet1.Range("A6").CopyFromRecordset lrs


End Sub
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Nếu đơn giản kiểu dữ liệu cột Ngay của bạn như file đính kèm thì có thể dùng code sau:

Mã: 
Sub Copy3()
    Dim cnn As Object, lrs As Object
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\A.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    Set lrs = cnn.Execute("SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Data$] " & _
                          "WHERE GhiChu = 'C3' and Ngay=" & Sheet1.Range("B3"))
    Sheet1.Range("A6").CopyFromRecordset lrs


End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn Anh nhiều
Anh cho em hỏi thêm 3 đoạn code của em có thể gộp lại thành 1 code được không anh.
 
Upvote 0
Hai Lúa Miền Tây đã viết:
Đưa cái điều kiện lọc cột ghichu ra ngoài sheet giống như lọc ngay là được.
Nhấp chuột vào đây để mở rộng...
Em mới tìm hiểu cách sử dụng Ado này thôi nên chưa biết cách xử lý.
Giả sử nếu File A có nhiều sheet giống nhau mình lọc tất cà các sheet đó để lấy giữ liệu được không anh.
Nếu được Anh có thể viết để em học hỏi thêm.
Cám ơn anh rất nhiều.
 
Upvote 0
@HLMT: đề bài này chỉ đơn giản copy recordset, ta có thể làm code mở và copy trực tiếp, không cần phải qua khai báo gì cả. bình thường ta chỉ lấy recordset khi cần phải duyệt nó.

Mã: 
Sub Copy5()
[COLOR=#008000]' đơn giản code của HLMT bên trên[/COLOR]
    With CreateObject("ADODB.Connection")
    .Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\A.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    Sheet1.Range("A6").CopyFromRecordset .Execute("SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Data$] " & _
                          "WHERE GhiChu = 'C3' and Ngay=" & Sheet1.Range("B3"))
    End With
End Sub
 
Upvote 0
VetMini đã viết:
@HLMT: đề bài này chỉ đơn giản copy recordset, ta có thể làm code mở và copy trực tiếp, không cần phải qua khai báo gì cả. bình thường ta chỉ lấy recordset khi cần phải duyệt nó.

Mã: 
Sub Copy5()
[COLOR=#008000]' đơn giản code của HLMT bên trên[/COLOR]
    With CreateObject("ADODB.Connection")
    .Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\A.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    Sheet1.Range("A6").CopyFromRecordset .Execute("SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Data$] " & _
                          "WHERE GhiChu = 'C3' and Ngay=" & Sheet1.Range("B3"))
    End With
End Sub
Nhấp chuột vào đây để mở rộng...

nhân topic này xin được hỏi các thầy : nếu cột ngày tháng là số định dạng chuẩn dd/MM/yyyy thì câu truy vấn ra sao
 
Upvote 0
lhthai đã viết:
Em mới tìm hiểu cách sử dụng Ado này thôi nên chưa biết cách xử lý.
Giả sử nếu File A có nhiều sheet giống nhau mình lọc tất cà các sheet đó để lấy giữ liệu được không anh.
Nếu được Anh có thể viết để em học hỏi thêm.
Cám ơn anh rất nhiều.
Nhấp chuột vào đây để mở rộng...
Nhưng tôi chưa hiểu bạn nói giống nhau là giống như thế nào? Tôi trả lời có thể được là vì chưa nhìn thấy được dữ liệu của bạn. Có thể dùng Union All để gộp hết các sheet rồi đưa điều kiện lọc vào để lấy kết quả.
 
Upvote 0
Upvote 0
Hai Lúa Miền Tây đã viết:
Nhưng tôi chưa hiểu bạn nói giống nhau là giống như thế nào? Tôi trả lời có thể được là vì chưa nhìn thấy được dữ liệu của bạn. Có thể dùng Union All để gộp hết các sheet rồi đưa điều kiện lọc vào để lấy kết quả.
Nhấp chuột vào đây để mở rộng...
Em bổ sung file để anh hiểu.
 

File đính kèm

Upvote 0
lhthai đã viết:
Em bổ sung file để anh hiểu.
Nhấp chuột vào đây để mở rộng...
Thử như sau thử nhé:
Mã: 
Sub Copy3()
    Dim cnn As Object, lrs As Object
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\A.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    Set lrs = cnn.Execute("select * from (SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Sheet1$] union all select GhiChu, TEN, STT, SoLuong ,Ngay FROM [Sheet2$]  union all select GhiChu, TEN, STT, SoLuong ,Ngay FROM [Sheet3$]) " & _
                          "WHERE GhiChu = 'C3' and Ngay=" & Sheet1.Range("B3"))
    Sheet1.Range("A6").CopyFromRecordset lrs




End Sub
 
Upvote 0
lhthai đã viết:
Cám ơn Anh nhiều.
Anh viết dùm em đoạn code này luôn nha.
Nhấp chuột vào đây để mở rộng...
Thì bạn thay cái C3 = 1 nơi nào đó trên sheet mà bạn gõ điều kiện là được ví dụ tôi để ở cell B2.

Mã: 
Sub Copy3()
    Dim cnn As Object, lrs As Object
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\A.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    Set lrs = cnn.Execute("select * from (SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Sheet1$] union all select GhiChu, TEN, STT, SoLuong ,Ngay FROM [Sheet2$]  union all select GhiChu, TEN, STT, SoLuong ,Ngay FROM [Sheet3$]) " & _
                          "WHERE GhiChu = '" & [COLOR=#ff0000]Sheet1.Range("B2") [/COLOR]& "' and Ngay=" & Sheet1.Range("B3"))
    Sheet1.Range("A6").CopyFromRecordset lrs


End Sub
 
Upvote 0
hpkhuong đã viết:
Xin cho hỏi là: Nếu WHERE GhiChu = 'C3' . Giá trị C3 này mình gõ ngoài trang tính như cái trường ngày thì phải sửa lại đoạn trên nư thế nào. ví dụ mình gõ tại Sheet1.Range("B2")

Gõ ngoài trang tính cho linh động khi lọc.
Nhấp chuột vào đây để mở rộng...
Xem lại cách làm ở bài #13 nha bạn
 
Upvote 0
Upvote 0
Chào Các Anh Chị
Em sử dụng thử chức năng trên thanh menu của Excel
DATA\Existing Connections
Tại tab Connection Properties muốn sử dụng điều kiện lộc như Ghi chú C1 và Ngày cột B thì sữa như sao.Em copy nguyên đoạn code sau vào command text thì báo lổi.
Mã: 
"SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Data$] " & _
                          "WHERE GhiChu = 'C1' and Ngay=" & Sheet1.Range("B3"))
ADO.jpg
 

File đính kèm

Upvote 0
Hiện tại đang sử dụng code lấy dữ liệu 3 sheet của file TH01 vào file TOTAL
Mình muốn lấy tất cả dữ liệu trong các file (TH01,TH02,TH03..) vào file TOTAL thì cần bổ sung điều kiện như thế nào nhờ các anh chỉ giúp.
Mã: 
Private Sub CommandButton2_Click()
Dim cnn As Object, lrs As Object
Dim shName, I As Long
    Sheet1.Range("A6:H1000").ClearContents
    Set cnn = CreateObject("ADODB.Connection")
    shName = Array("1-10", "11-20", "21-31")
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\TH01.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    For I = 0 To UBound(shName)
    Set lrs = cnn.Execute("SELECT * FROM [" & shName(I) & "$] " & _
                           "WHERE CODE = '" & Sheet1.Range("B3") & "'")
  
    Sheet1.Range("A6500").End(xlUp)(2).CopyFromRecordset lrs
  Next I
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Dùng ADO để lấy dữ liệu từ nhiều sheet của nhiều file đang đóng?

Gửi các Anh chi!
Mình học hòi từ 1 đoạn code của bạn Hai Lúa Miền Tây để lấy dữ liệu tử nhiều sheet của 1 file đang đóng và cho vào 1 sheet của 1 file đang mở.
Nay mình muốn lấy dữ liệu từ nhiều file đang đóng cho vào sheet của file đang mở nhưng không biết chính sửa thế nào cho đúng,
Mong các anh chị giúp đỡ!
Chình sữa thêm 1 chút nhưng không biết sai chỗ nào.
Mã: 
Private Sub CommandButton3_Click()
Dim cnn As Object, lrs As Object
Dim shName, I As Long, Fname
    Sheet1.Range("A6:H1000").ClearContents
    Fname = Array("TH01.xls", "TH02.xls", "TH03.xls")
    Set cnn = CreateObject("ADODB.Connection")
    shName = Array("1-10", "11-20", "21-31")
 '-----------------------------------------------------------------------------------
 'Tao ket noi CSDL
 For I = 0 To UBound(Fname)
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\" & Fname(I) & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
Next I
'-----------------------------------------------------------------------------------
For I = 0 To UBound(shName)
    Set lrs = cnn.Execute("SELECT * FROM [" & shName(I) & "$] " & _
                           "WHERE CODE = '" & Sheet1.Range("B3") & "'")
 '-----------------------------------------------------------------------------------
  'Copy ket qua vao sheet
    Sheet1.Range("A6500").End(xlUp)(2).CopyFromRecordset lrs
Next I
'-----------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
End Sub
 

File đính kèm

Upvote 0
lhthai đã viết:
Gửi các Anh chi!
Mình học hòi từ 1 đoạn code của bạn Hai Lúa Miền Tây để lấy dữ liệu tử nhiều sheet của 1 file đang đóng và cho vào 1 sheet của 1 file đang mở.
Nay mình muốn lấy dữ liệu từ nhiều file đang đóng cho vào sheet của file đang mở nhưng không biết chính sửa thế nào cho đúng,
Mong các anh chị giúp đỡ!
Chình sữa thêm 1 chút nhưng không biết sai chỗ nào.
Mã: 
Private Sub CommandButton3_Click()
Dim cnn As Object, lrs As Object
Dim shName, I As Long, Fname
    Sheet1.Range("A6:H1000").ClearContents
    Fname = Array("TH01.xls", "TH02.xls", "TH03.xls")
    Set cnn = CreateObject("ADODB.Connection")
    shName = Array("1-10", "11-20", "21-31")
 '-----------------------------------------------------------------------------------
 'Tao ket noi CSDL
 For I = 0 To UBound(Fname)
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\" & Fname(I) & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
Next I
'-----------------------------------------------------------------------------------
For I = 0 To UBound(shName)
    Set lrs = cnn.Execute("SELECT * FROM [" & shName(I) & "$] " & _
                           "WHERE CODE = '" & Sheet1.Range("B3") & "'")
 '-----------------------------------------------------------------------------------
  'Copy ket qua vao sheet
    Sheet1.Range("A6500").End(xlUp)(2).CopyFromRecordset lrs
Next I
'-----------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
http://www.giaiphapexcel.com/forum/...t-đang-đóng-bằng-code-Ado&p=677850#post677850
 
Upvote 0
lhthai đã viết:
Hiện tại đang sử dụng code lấy dữ liệu 3 sheet của file TH01 vào file TOTAL
Mình muốn lấy tất cả dữ liệu trong các file (TH01,TH02,TH03..) vào file TOTAL thì cần bổ sung điều kiện như thế nào nhờ các anh chỉ giúp.
Mã: 
Private Sub CommandButton2_Click()
Dim cnn As Object, lrs As Object
Dim shName, I As Long
    Sheet1.Range("A6:H1000").ClearContents
    Set cnn = CreateObject("ADODB.Connection")
    shName = Array("1-10", "11-20", "21-31")
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\TH01.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    For I = 0 To UBound(shName)
    Set lrs = cnn.Execute("SELECT * FROM [" & shName(I) & "$] " & _
                           "WHERE CODE = '" & Sheet1.Range("B3") & "'")
  
    Sheet1.Range("A6500").End(xlUp)(2).CopyFromRecordset lrs
  Next I
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
May mắn thì trúng, trật thì thôi vậy. ADO không phải dễ xơi đâu. Chưa am tường VBA mà chọc vào ADO coi chừng tẩu hoả và dữ liệu sai tè le cho coi.
PHP: 
Sub CopyAll()
Dim cnn As Object, lrs As Object
Dim Path As String, I As Long, j As Long, Fname(), shName()
Fname = Array("TH01.xls", "TH02.xls", "TH03.xls")
shName = Array("1-10", "11-20", "21-31")
Set cnn = CreateObject("ADODB.Connection")
For I = 0 To UBound(Fname)
   Path = ThisWorkbook.Path & "\" & Fname(I)
   For j = 0 To UBound(shName)
      cnn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=" & Path & " ;Extended Properties=""Excel 8.0;HDR=Yes;"";")
      Set lrs = cnn.Execute("SELECT * FROM [" & shName(I) & "$] " & _
      "WHERE CODE = '" & Sheet1.Range("B3") & "'")
      Sheet1.Range("A65536").End(3)(2).CopyFromRecordset lrs
      cnn.Close
   Next
   Set lrs = Nothing
Next
Set cnn = Nothing
End Sub
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.." (2 người xem)
Trả lời
17
Đọc
3K
chienthang2682
C
C
Tải kết quả xổ số 3 miền về excel (2 người xem)
    • Thích
3 4 5
Trả lời
98
Đọc
13K
HNam_Phan
H
S
Xuất các bảng công phụ từ bảng công chính trong gg sheet (3 người xem)
Trả lời
0
Đọc
6
sirhungvla
S
vnxgiokinhtoi
Nhờ giúp đỡ công thức lưu dữ liệu và mở lại dữ liệu cũ đã save
Trả lời
3
Đọc
130
vnxgiokinhtoi
vnxgiokinhtoi
T
Nhờ ACE chỉ giáo công thức Gộp nhiều dữ liệu vào một ô trong excel
Trả lời
11
Đọc
276
Hoàng Tuấn 868
H
L
Xin giúp đỡ đổi màu chữ trong mathtype powerpoint sang màu đen
Trả lời
1
Đọc
58
Hoàng Tuấn 868
H
PhanTuHuong
Nên chọn điện thoại nào?
2
Trả lời
21
Đọc
1K
minhminh27
minhminh27
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711) (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
264
Đọc
28K
lilknighthood
L
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
9
Đọc
398
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Manhhung90
Tạo nút bấm để xoá nhanh trang trong file word.
Trả lời
3
Đọc
108
PhanTuHuong
PhanTuHuong
H
Hàm Evaluate bị lỗi khi mở lại
2
Trả lời
23
Đọc
295
ptm0412
ptm0412
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết
    • Buồn
    • Cười
Trả lời
5
Đọc
231
SA_DQ
SA_DQ
Nguyễn Duy Tuân
Lập trình VBA với Google Drive, OneDrive, DropBox cho Upload-Download-Copy-Move...
    • Cảm ơn
    • Thích
Trả lời
4
Đọc
324
quyenpv
quyenpv
hungmanh.th1
Lỗi không trả về Giá trị 0 trong excel
    • Cười
Trả lời
5
Đọc
80
hungmanh.th1
hungmanh.th1
HeSanbi
  • Question Question
VBA nâng cao: Nhúng tập tin vào trang tính hoặc trích xuất chúng nhanh chóng
    • Thích
    • Cảm ơn
Trả lời
0
Đọc
154
HeSanbi
HeSanbi
nguyễn tiến tú
file CALCULATING rất chậm em nhờ các anh chị xem giúp em ạ (1 người xem)
Trả lời
7
Đọc
393
tranhungdao12a3
T
T
  • Question Question
Xin thầy/cô và anh chị giúp đỡ cách điền thông tin ca kíp trực trong bảng Excel bằng VBA
Trả lời
2
Đọc
156
tiennd67
T
H
HELP! HÀM LẤY THÁNG/ NĂM TRONG EXCEL
Trả lời
5
Đọc
139
ptm0412
ptm0412
H
Em hỏi vì sao khi file googlesheet của em thì code chạy (1 người xem)
Trả lời
2
Đọc
68
Hoale85
H
4
EXCEL TỰ ĐỘNG MỞ TRÊN WEB
Trả lời
9
Đọc
285
4545
4
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom