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

发布于 2024-09-14 02:19:09 字数 240 浏览 4 评论 0原文

我在 Access 97 中有一个项目，我必须添加将报表导出到 Excel 的功能。当您在程序中运行报告时，已经可以导出到 Word 和 Excel，尽管 Excel 仅包含某些标题。

通过研究，我发现我也许可以使用 OutputTo 使其工作，但不幸的是我无法尝试此操作，因为我无法在报告视图中找到工具栏的代码。我找到了真实的报告。我从未使用过任何版本的 Access，所以我只需要添加一个宏还是必须以不同的方式处理此问题？我找不到代码所在的位置。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

对不⑦ 2024-09-21 02:19:09

可以将宏与 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"

either use a macro with the TransferSpreadsheet action, or export it with VBA code like this:

    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"

回复收藏 0 原文

~没有更多了~