Tùy chọn
Hàm chuyển dữ liệu access sang excel có điều kiện lọc
- Hàm chuyển dữ liệu access sang excel có điều kiện lọc
-
Hàm chuyển dữ liệu access sang excel có điều kiện lọc
tranhai_vn > 28-12-13, 03:19 PM
Trích dẫn:Private Sub Command31_Click()
Đ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ới
'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
-
RE: Hàm chuyển dữ liệu access sang excel có điều kiện lọc
cpucloi > 28-12-13, 03:57 PM
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)
-
RE: Hàm chuyển dữ liệu access sang excel có điều kiện lọc
tranhai_vn > 28-12-13, 05:10 PM
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.)