Question

我在Access 97中有一个项目，我必须添加将报告导出到Excel的功能。当您在程序中运行报表时，已经能够导出到word和excel虽然excel只有一些标题。

通过研究我发现我可以使用OutputTo让它工作，但不幸的是我不能尝试这个，因为我无法在报告视图中找到工具栏的代码。我找到了实际的报告。我从来没有使用任何版本的Access，所以我只需要添加一个宏，或者我必须以不同的方式处理它？我找不到代码的位置。

Answer 1

使用带有TransferSpreadsheet操作的宏，或者将其导出为VBA代码，如下所示：

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, sQryExport, sPath & "\xls\" & sPrefix & sRptGroup & ".xls"

    DoCmd.OpenReport "rpt_summary", acViewPreview, , "reportGroupID='" & sRptGroup & "'", acHidden
    DoCmd.OutputTo acOutputReport, "rpt_summary", "Rich Text Format (*.rtf)", sPath & "\rtf\" & sPrefix & sRptGroup & ".rtf"
    DoCmd.Close acReport, "rpt_summary"

如何在MS-Access 97中以编程方式访问报表工具栏

1 个答案: