Xuất báo cáo (Report) của Access ra Excel

[lehongduc]

Export Report dang mở sang Excel

Xin chào các Bạn,
Xin trao đổi với các Bạn 1 cách export Report đang mở trong Access sang Excel như sau:

1. Viết 1 hàm dùng chung có nội dung:
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, acFormatXLS, GetAppDir & Tentailieu & ".XLS"
MsgBox "Da xuat Bao bieu hien hanh thanh File " & GetAppDir & Tentailieu & ".XLS"

End Function

2. sau đó tạo 1 Macro Autokeys như sau:
Macro Name: ^{F12}
Action: RunCode
Comment: Export Report dang mo sang Excel
Function Name: ExportActRpt2Excel()

Bằng cách tạo Macro này ta đã tạo 1 phím tắt Ctrl+F12
Từ sau đấy, khi 1 Report đã được mở trên màn hình ở chế độ Preview ta chỉ cần dùng phím tắt này sẽ Export được Report sang Excel.

Lê Hồng Đức

 

[tonykhanh1818]

Mình rất nể tài năng của đức lắm
vậy bạn có cách nào hướng dẩn export Report đang mở trong VisuaFox sang Excel không,bạn giới thiệu cho mình đi
À xin hỏi địa chỉ bạn Đúc ở TP HCM hay Hà nội vậy
nếu ở TPHCM thì cho mình xin địa chỉ đẻ có dip đến thỉnh giáo
Khanh

 

[Secret_grasses]

...vậy bạn có cách nào hướng dẩn export Report đang mở trong VisuaFox sang Excel không,bạn giới thiệu cho mình đi...

Bài của bạn đã được trả lời ở đây.

 

[Đào Việt Cường]

Dear Secret_grasses,
--------------------
Câu trả lời ở đấy hình như chưa đầy đủ lắm Secret_grasses ạ (Trong đó chưa nói gì đến "export Report đang mở trong VisuaFox sang Excel")
Bạn tonykhanh1818 thử qua đây tham khảo thêm một số "examples of using Visual FoxPro 9.0 reports in action" xem sao - cái này cũng chưa nói đến kỹ thuật xuất báo cáo ra MSE nhưng có thể khá bổ ích khi làm báo cáo.
Chúc bạn thành công!

 

[mp21t4]

Chào mọi người!
Mong mọi người chỉ cho mình bằng cách nào(code) Xuất một báo cáo (ở dạng Report) từ chương trình Acess ra File Excel theo giống mẫu đã định dạng trong Report của Acess.Cám ơn nhiều nhiều!!!

 

[hoathanh815]

Mình cũng đang thắc mắc việc này đây vì khi mình export ra excel thì nó chẳng giống mẫu đã thiết kế như trong access. Phải sửa lại đôi chút. Bạn nào giỏi access chỉ giúp với

 

[LoveBlue]

Câu trả lời là không có cách nào cả! Report của access làm theo đối tượng, vị trí các field nằm theo các toạ độ X-Y tuỳ ý. Còn Excel có muốn làm gì thì cũng phải gói gọn trong cell... Vì vậy thay vì tìm cách đổ nguyên report, mình khuyên chỉ đổ source của report ra, rồi dùng công thức link vào form Excel chuẩn như ý.

__________________________________________________
Blog Thủ Thuật Access
Thủ thuật Access|Access Cơ bản|Access nâng cao|Thế giới văn phòng|Giao lưu giải trí|Vui cười|Phim Hài|Góc thơ

 

[levanduyet]

Thông thường Source của các Report là Table/Query. Do đó nếu muốn xuất ra Excel thì chúng phải tự viết một thủ tục để làm việc này.

Lê Văn Duyệt

 

[hungluc]

Xử lý excel vào phền mềm kế toán Access

Chào các Anh, Chị.
Em muốn chuyển dữ liệu từ Flie excel vào phần mềm kế toán Access, em xử lý như thế nào? Xin các Anh, Chị giúp em để làm báo cáo. Chân thành cám ơn.

 

[quyettoan]

Có thể lập trình để chuyển toàn report từ access sang Excel (giống hoàn toàn về cách trình bày và dữ liệu) nhưng đòi hỏi người lập trình phải rành ngôn ngữ VBA

 

[kiuem]

Bác ơi giúp em với
Em nhúng cái đoạn code:

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, acFormatXLS, GetAppDir & Tentailieu & ".XLS"
MsgBox "Da xuat Bao bieu hien hanh thanh File " & GetAppDir & Tentailieu & ".XLS"

End Function

Nó báo lỗi ở dòng Tentailieu = Screen.ActiveReport.Name là sao thế hả bác

 

[kiuem]

Thông thường Source của các Report là Table/Query. Do đó nếu muốn xuất ra Excel thì chúng phải tự viết một thủ tục để làm việc này.

Lê Văn Duyệt

Bác có thủ tục này không cho em xin với.
Em cần quá mà ko biết phải làm thế nào cả

 

[huynhtanhai62]

Viết hàm trên thì hay nhưng khi xuất Report sang File excel thì lỗi Font. Có cách nào khắc phục khong? Cám ơn!

 

[huynhtanhai62]

Hàm

Xin chào các Bạn,
Xin trao đổi với các Bạn 1 cách export Report đang mở trong Access sang Excel như sau:

1. Viết 1 hàm dùng chung có nội dung:
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, acFormatXLS, GetAppDir & Tentailieu & ".XLS"
MsgBox "Da xuat Bao bieu hien hanh thanh File " & GetAppDir & Tentailieu & ".XLS"

End Function

2. sau đó tạo 1 Macro Autokeys như sau:
Macro Name: ^{F12}
Action: RunCode
Comment: Export Report dang mo sang Excel
Function Name: ExportActRpt2Excel()

Bằng cách tạo Macro này ta đã tạo 1 phím tắt Ctrl+F12
Từ sau đấy, khi 1 Report đã được mở trên màn hình ở chế độ Preview ta chỉ cần dùng phím tắt này sẽ Export được Report sang Excel.

Lê Hồng Đức

 

[huynhtanhai62]

Hàm dùng chung export Report đang mở trong Access sang Excel của Anh Đức hay nhưng khi xuất ra excel thì lỗi font. Anh Đức cho cách khắc phục thì hay biết mấy.

 

[thuyha2010]

Cái link của bác secret chuyển từ báo cáo foxxpro sang excel bị lỗi không vào được, có ai biết gửi lại cho em với.
Em đang rất cần ạ.
Em cảm ơn a.

 

[vienlien87]

Export Report đang mở sang Excel theo phương pháp này bị lỗi font chữ (nhưng xuất theo phương pháp trên biểu tượng officeLinks thì không bị lỗi). Bạn có thể xử lý giúp được không. Xin cảm ơn

 

[vienlien87]

Mình đã thực hiện được theo hướng dẫn của bạn. Phương pháp này rất thuận tiện, tuy nhiên font chữ khi xuất sang excel thì bị lỗi, trong khi đó phương pháp xuất từ biểu tượng thì font chữ không bị lỗi (tất nhiên xuất sang excel cùng một report )

 

[hiencasvina]

cho mình hỏi nhúng đoạn code đó vào chỗ nào trong bản report vậy? mình còn gà mờ lắm, mọi người hướng dẫn cụ thể giúp mình nha, mình dùng access 2007