Em chào mọi người ạ,
Giả sử em muốn tạo 1 report theo mẫu từ file word hoặc excel, (vd biểu mẫu phiếu thu chi, hóa đơn.... từ cơ quan ban hành)
Liệu có cách nào để tạo report nhanh không ạ
Nhờ các bác chỉ giúp, 
EM xin cảm ơn

Không nhé.
Bạn phải copy, thiết kế thủ công trên Report.

Đã có file word/excel mẫu rồi thì xuất dữ liệu ra đó (off thường cài full rồi), tạo trong reports làm chi cho cực vậy

(26-05-21, 06:30 AM)cpucloi Đã viết: Đã có file word/excel mẫu rồi thì xuất dữ liệu ra đó (off thường cài full rồi), tạo trong reports làm chi cho cực vậy

Em cũng đang hỏi vấn đề này đó ạ. Tức CSDL ở Access hết, có 1 file Báo cáo mẫu là excel, giờ em muốn truy xuất dữ liệu từ CSDL để điền vào các chỉ tiêu trong mẫu excel ạ.

Cảm ơn anh.

(26-05-21, 09:07 AM)Đình Phán Đã viết: Em cũng đang hỏi vấn đề này đó ạ. Tức CSDL ở Access hết, có 1 file Báo cáo mẫu là excel, giờ em muốn truy xuất dữ liệu từ CSDL để điền vào các chỉ tiêu trong mẫu excel ạ.

Cảm ơn anh.

Tại không chịu tìm kiếm thôi. Trên TTAC có nhiều lắm. Và đây là một cách
https://thuthuataccess.com/forum/thread-5233.html

(27-05-21, 04:14 PM)Xuân Thanh Đã viết: Tại không chịu tìm kiếm thôi. Trên TTAC có nhiều lắm. Và đây là một cách
https://thuthuataccess.com/forum/thread-5233.html

Anh Thanh cho em hỏi chút ạ.

Với Hàm này hoặc có thể sửa về 1 Sub nhưng đang gán dữ liệu theo 1 mảng, nhưng em cần tùy biến như thế nào để gán nhiều giá trị vào nhiều range trong excel ạ?
Ví dụ: Trong file excel mẫu có nhiều ô cần điền các giá trị khác nhau, như vậy em phải tạo nhiểu Recordset, mỗi Recordset gán cho 1 ô ạ?
Hoặc em chỉ lấy 1 giá trị trong Recordset đó để đưa vào excel thôi, thì phải tạo lệnh SQL để truy xuất, hay là dùng vòng lặp để duyệt qua từng giá trị của Recordset để đưa vào ạ?

Em cảm ơn!

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

Bạn đã làm tới đâu? Hãy gửi demo lên mọi người mổ xẻ cho đỡ tốn time.