[/font]Các bạn xem đọan code để xuất dữ liệu ra Excel như sau:
Function ExPortActRpt2Excel()
Dim Tentailieu As String, GetAppDir As String
GetAppDir = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir$(CurrentDb.Name)))
Tentailieu = Screen.ActiveReport.Name
DoCmd.OutputTo acOutputReport, Tentailieu, acFormatBiff8XLS, GetAppDir & Tentailieu & ".XLS"
MsgBox "BAO CAO DUOC LUU THANH FILE " & GetAppDir & Tentailieu & ".XLS"

Khi view Report --> Nhấn Ctrl + F12 Báo cáo sẽ xuất ra Excel nhưng có 1 số lỗi:
1. Trường Ngày tháng năm sinh: Không thể hiện đúng dd/mm/yyyy mà là kiểu số (ví dụ ngày 01/06/2012 nó thể hiện là 41061)
2. báo cáo xuất ra Excel có chia thành các cột nhưng nó định dạng không đẹp như trên Report
Bạn nào có cách khác giúp mình nhé

cái này đã đề cập nhiều lần trên diễn đàn.
Câu trả lời: Không có cách nào cả.
Có chăng là viết lệnh gọi đối tượng Excel và gán giá trị vào tương ứng

Tham khảo thêm bài này
http://thuthuataccess.com/forum/thread-321.html

ok đó, để mình tham khảo, tuy nó chưa ưng ý lắm nhưng cũng hơn cách của mình
Cám ơn noname