Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Hàm chuyển dữ liệu access sang excel có điều kiện lọc
#1
Trích dẫn:Private Sub Command31_Click()
'On Error Resume Next
Dim db As DAO.Database, rs As DAO.Recordset, mySQL As String, dk As String
Dim oApp As New Excel.Application, oBook As Excel.Workbook, oSheet As Excel.Worksheet
dk = InputBox("Vui long nhap nam can trich loc.", "Nhap dk loc")
If Len(dk) = 0 Then Exit Sub
Set oBook = oApp.Workbooks.Open(CurrentProject.Path & "\temp.xlt")
mySQL = "SELECT NMNVOCANH.Ngay, NMNVOCANH.NuocTho, NMNVOCANH.NuocSX, NMNVOCANH.ThatThoat, NMNVOCANH.DienTT, NMNVOCANH.BinhQuan, " & _
"NMNVOCANH.M1, NMNVOCANH.M2, NMNVOCANH.M3, NMNVOCANH.M4, NMNVOCANH.M5, NMNVOCANH.P1, NMNVOCANH.P2, NMNVOCANH.P3," & _
"NMNVOCANH.P4, NMNVOCANH.P5, NMNVOCANH.P6, NMNVOCANH.P7, NMNVOCANH.P8, NMNVOCANH.Cong, NMNVOCANH.Phen, NMNVOCANH.BQPhen, " & _
"NMNVOCANH.Voi, NMNVOCANH.BQVoi, NMNVOCANH.Clo, NMNVOCANH.BQClo, NMNVOCANH.noi " & _
"FROM NMNVOCANH " & _
"WHERE (text can loc) "
Set oSheet = oBook.Sheets("Baocao")
Set db = CurrentDb
Set rs = db.OpenRecordset(mySQL, dbOpenSnapshot)
oSheet.Range("c9").CopyFromRecordset rs
MsgBox "Da xuat xong du lieu sang Excel", vbExclamation, "Thong Bao"
rs.Close: Set rs = Nothing
oApp.Visible = True
db.Close: Set db = Nothing
End Sub
Đoạn code này chỉ lọc dữ liệu nếu như nhập "WHERE year, day hoặc month thui " em muốn nó lọc các số và text bất kì thì không được các bác giúp em với040
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn
#2
Hix, đọc hiểu chít lìn
Bạn gửi file lên nha, mọi người cùng giúp (đã bao lần mình trả lời rồi, làm chay khó lắm) 040040040040040040040040040040040040040040
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranhai_vn
#3
https://www.mediafire.com/?afr6rl23w9na8la
Mình muốn thêm cột tên khách hàng và tạo inpubox lọc tên như inputbox lọc theo năm trong file này. Bao gồm cả text và số(a,b,c. 13-11.)015
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Nối dữ liệu từ nhiều file Access?? btnnhut 6 100 5 Giờ trước
Bài mới nhất: ongke0711
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 20,030 18-06-17, 08:49 AM
Bài mới nhất: lehongduc
  [Thủ Thuật] Demo Tạo Form tìm kiếm theo nhiều điều kiện maidinhdan 11 2,269 29-05-17, 11:26 AM
Bài mới nhất: maidinhdan
  [Help] Rút ngắn thời gian khi get data từ sqlserver lên table on access. HoangManh 3 189 22-05-17, 05:13 PM
Bài mới nhất: maidinhdan
  [Help] Nhập dữ liệu trên datagridview. HoangManh 9 249 17-05-17, 10:52 AM
Bài mới nhất: HoangManh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ