-
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
ndthanh29 > 13-06-14, 08:12 PM
Mình hiểu rồi bạn, lỗi là do mình chưa tạo file excel và tên sheet. Bạn cho mình hỏi là xuất query sang excel thì câu lệnh xuất như thế nào bạn? -
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
Xuân Thanh > 13-06-14, 08:40 PM
Mã PHP:Function ExAcEx(qryQueryName As String, strFile As String, shSheet As String, Cll As String)
Dim Ex As New Excel.Application
Dim fileEx As Workbook
Set fileEx = Ex.Workbooks.Open(strFile)
Dim Ws As Worksheet
Set Ws = fileEx.Worksheets(shSheet)
Dim rs As Recordset
Dim qr As QueryDef
Set qr = CurrentDb.OpenQueryDefs(qryQueryName)
Set rs = qr.OpenRecordset()
Ws.Range(Cll).CopyFromRecordset rs
fileEx.Save: fileEx.Close: Set Ex = Nothing: rs.Close
End Function -
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
ndthanh29 > 15-06-14, 01:56 PM
báo lỗi đoạn lệnh đầu tiên đó bạn? bạn test thử chưa? mình giữ nguyên file excel, chỉ thay đổi tên Table bằng tên Query thôi -
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
Xuân Thanh > 16-06-14, 09:11 PM
Bạn đọc kỹ lại #1 trong topic này và làm theo
Thân mến -
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
hungle2006 > 18-04-16, 11:41 PM
Chào bác XuanThanh em làm theo hwongs dẫn của bác nhưng báo lỗi dòng này, bác xem lại giúp em nhé.
Set fileEx = Ex.Workbooks.Open(strFile) -
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
maidinhdan > 19-04-16, 09:50 AM
(18-04-16, 11:41 PM)hungle2006 Đã viết: Chào bác XuanThanh em làm theo hwongs dẫn của bác nhưng báo lỗi dòng này, bác xem lại giúp em nhé.
Set fileEx = Ex.Workbooks.Open(strFile)
Xem Demo tại link này: Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được
Thông tin về demo:
1. Xuất từ table ra file Excel theo mẫu Excel có sẳn và tự đặt tên;
2. Xuất từ Query có đặt điều kiện ra file Excel theo theo mẫu Excel có sẳn và tự đặt tên.
3. Xuất từ nhiều table/query ra nhiều Sheet Excel
![[Hình: demoxuatfile%20sang%20Access.png]](https://sites.google.com/site/congthucassecc/home/demoxuatfile%20sang%20Access.png)
-
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
tvn_hut > 24-04-16, 12:34 AM
(19-04-16, 09:50 AM)maidinhdan Đã viết:
(18-04-16, 11:41 PM)hungle2006 Đã viết: Chào bác XuanThanh em làm theo hwongs dẫn của bác nhưng báo lỗi dòng này, bác xem lại giúp em nhé.
Set fileEx = Ex.Workbooks.Open(strFile)
Xem Demo tại link này: Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được
Thông tin về demo:
1. Xuất từ table ra file Excel theo mẫu Excel có sẳn và tự đặt tên;
2. Xuất từ Query có đặt điều kiện ra file Excel theo theo mẫu Excel có sẳn và tự đặt tên.
3. Xuất từ nhiều table/query ra nhiều Sheet Excel
Cám ơn bạn maidinhdan rat nhiều. Nhờ có những bài viết của bạn mà mình và mọi người học được rất nhiều điều. -
RE: Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
thdanh > 09-07-19, 11:18 AM
(24-04-16, 12:34 AM)tvn_hut Đã viết:
(19-04-16, 09:50 AM)maidinhdan Đã viết:
(18-04-16, 11:41 PM)hungle2006 Đã viết: Chào bác XuanThanh em làm theo hwongs dẫn của bác nhưng báo lỗi dòng này, bác xem lại giúp em nhé.
Set fileEx = Ex.Workbooks.Open(strFile)
Xem Demo tại link này: Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được
Thông tin về demo:
1. Xuất từ table ra file Excel theo mẫu Excel có sẳn và tự đặt tên;
2. Xuất từ Query có đặt điều kiện ra file Excel theo theo mẫu Excel có sẳn và tự đặt tên.
3. Xuất từ nhiều table/query ra nhiều Sheet Excel
Cám ơn bạn maidinhdan rat nhiều. Nhờ có những bài viết của bạn mà mình và mọi người học được rất nhiều điều.
Bác MaiDinhDan ơi cho mình xin hỏi mình đã làm thử xuất theo điều kiện 3 là điều kiện by Maidinhdan rồi nhưng mà mình có thắc mắc cứ mỗi lần mình lọc dữ liệu sẽ lưu table như thế thì mỗi ngày chương trình mình rất nặng. Bác xem có phương pháp nào mình lọc xong và xuất ra excel thì nó tự động xoá dữ liệu của table lọc được không bác