报表数据导出的几种方法。

guotianxin

在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

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

雨农

嗯！很不错。谢谢先

雨农

请教一下,有没有遇到这样的情况

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

Grant

http://www.accessbbs.cn/bbs/viewthread.php?tid=2861&highlight=%B8%B4%D6%C6%CD%BC%C6%AC

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