ACCESS报表直接导出至 EXCEL WORD等

瞿丽忠　发表于：2014-01-29 15:31:13 　

报表用VB直接导出,要求格式与ACCESS报表一致（直接导成图片或PDF也可以）

煮江品茶发表于：2014-01-29 16:15:55

http://www.accessoft.com/article-show.asp?id=4353

寒武纪发表于：2014-02-02 22:51:48

当然可以

蟹仔发表于：2014-02-04 19:00:09

如果要导出到excel或word，无论用何种方法均要先设定好模板，如果报表很复杂或者数据很复杂。就很难胜任，既然你说导出到pdf也可以，为何不装一个pdf虚拟打印机。直接打印成pdf文件就可以了。而jpg，我暂时想到的方法只有用大分辨率的显示器进行截图。

zhaoyoulong 发表于：2014-02-07 15:30:06

如果是2007以上版本可用：

DoCmd.OutputTo acOutputReport, "报表名称", "(*.pdf)", "D:\1.pdf", True

如果是2003版本可用：

DoCmd.OutputTo acOutputReport, "报表名称", "(*.snp)", "D:\1.snp", True

徐晟发表于：2014-02-24 19:12:39

子窗口，按钮导出代码

Dim xls As Object

Dim xlsbook As Object

Dim i As Integer

Set xls = CreateObject("excel.application")

Set xlsbook = xls.Workbooks.Add

Me.planwind.Form.Recordset.MoveFirst

For i = 0 To Me.子窗口名称.Form.Recordset.Fields.Count - 1
xlsbook.Worksheets(1).Cells(1, i + 1).Value = Me.子窗口名称.Form.Recordset.Fields(i).Name
Next

xls.Worksheets(1).Range("A2").CopyFromRecordset Me.子窗口名称.Form.Recordset

xls.Quit

Set xlsbook = Nothing

Set xls = Nothing

benhum 发表于：2014-03-12 10:19:09

如果是导出PDF，我建议安装一个PDF虚拟打印机。要生成PDF文件，在预览报表后，选择打印机时，选择Foxit Reader PDF Printer即可。

安装一个福祈PDF阅读器就会有一个PDF虚拟打印机，而且还是免费的。

相当好用。大力推荐！！！！！！！！

布鲁斯发表于：2014-03-18 16:19:56

果断PDF

省时省力省生命

总记录：7篇页次：1/1 9 1 :

Access交流中心