Đá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
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,689 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  Summary bằng VBA trong MS Access. MinhnHang 6 317 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 633 07-11-16, 03:56 PM
Bài mới nhất: maidinhdan
  [Hỏi] Số Thứ Tự Theo Nhóm Hàng Hóa Trong Access pherotao 2 145 02-11-16, 03:05 PM
Bài mới nhất: pherotao
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,494 21-10-16, 10:17 PM
Bài mới nhất: ongke0711

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ơ