Đá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
  [Thủ Thuật] Sử dụng window account cho việc phân quyền trong access tvn_hut 2 83 Hôm qua, 01:11 PM
Bài mới nhất: tvn_hut
  [Thủ Thuật] Lọc điều kiện theo nhiều dòng trong 1 Listbox hoặc nhiều Listbox ongke0711 11 1,523 23-09-17, 04:54 PM
Bài mới nhất: ongke0711
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 149 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Tư vấn import data(đuôi csv) vào file access nguồn subasatran 4 359 01-09-17, 03:20 PM
Bài mới nhất: subasatran
  [Thủ Thuật] Liên kết dữ liệu giữa subform và mainform tvn_hut 13 1,656 14-08-17, 12:41 AM
Bài mới nhất: MTNQ

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ơ