Xuất báo cáo từ Report ra Excel bị lỗi
cannguyen > 01-06-12, 12:32 PM
[/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é