Office中国论坛/Access中国论坛

标题: 报表数据导出的几种方法。 [打印本页]

作者: guotianxin 时间: 2005-3-1 17:27
标题: 报表数据导出的几种方法。
在Access中，报表预览快捷菜单提供了将数据导出的方法，但有时，我们编程时不想直接使用其提供的功能，或者其功能我们觉得有些不够完美，这时，我们就需要使用代码来将报表导出，下面，我将我经常使用的编码整理出来，供大家分享，如果你也有好的代码，请接本贴。

1、将报表导出到HTML：

'导出为Html

Sub OutPutToHtml()

DoCmd.OutputTo acReport, Screen.ActiveReport.Name, acFormatHTML, Screen.ActiveReport.Name & ".Htm", True

End Sub

2、将报表导出为快照格式

'导出为快照格式

Sub OutPutToSnap()

DoCmd.OutputTo acReport, Screen.ActiveReport.Name, "快照格式(*.snp)", Screen.ActiveReport.Name & ".Snp", True

End Sub

3、将报表导出到Excel：

'导出为Excel

Sub OutPutToExcel()

DoCmd.OutputTo acReport, Screen.ActiveReport.Name, acFormatXLS, Screen.ActiveReport.Name & ".xls", True

End Sub

4、将报表导出到Word：

'导出为Word

Sub OutPutToWord()

DoCmd.OutputTo acReport, Screen.ActiveReport.Name, acFormatRTF, Screen.ActiveReport.Name & ".xls", True

End Sub

5、将报表导出到文本文件：

'导出为Text

Sub OutPutToText()

DoCmd.OutputTo acReport, Screen.ActiveReport.Name, acFormatTXT, Screen.ActiveReport.Name & ".Txt", True

End Sub

这些代码的调用方法非常简单，只需要打开报表，然后在快捷菜单上增加调用本代码的自定义菜单项，就可以了。

作者: 雨农 时间: 2007-6-29 04:55
嗯！很不错。谢谢先

作者: 雨农 时间: 2007-6-29 04:58
请教一下,有没有遇到这样的情况

一些报表带有公司抬头的,公司抬头是一张图片,可是图片导不出到word中,有没有什么办法可以做到?

作者: Grant 时间: 2007-6-29 07:52
http://www.accessbbs.cn/bbs/viewthread.php?tid=2861&highlight=%B8%B4%D6%C6%CD%BC%C6%AC

这里有一个当时我写的示例

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)