Đá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] Liên kết bảng biểu Excel sang Word thông qua Access vuthaiha90 14 360 10 Giờ trước
Bài mới nhất: tranthanhan1962
  Gửi tin nhắn SMS bằng Access lmthu 7 436 07-02-17, 09:02 AM
Bài mới nhất: cpucloi
  [Help] So sánh dữ liệu khi tạo sheet mới jason 21 614 30-01-17, 12:24 AM
Bài mới nhất: haonlh
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 43 17,579 18-12-16, 03:37 PM
Bài mới nhất: huuduy.duy
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,861 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999

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ơ