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

Posted 2023-05-07

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

【英文标题】：How to access the report toolbar programmatically in MS-Access 97

【发布时间】：2010-08-11 15:52:44

【问题描述】：

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

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

【参考方案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"

【讨论】：

当导出按钮被按下时它是如何知道这样做的。我需要添加额外的代码吗？

它没有。你必须告诉它。如果您创建导出按钮，请让按钮单击事件调用宏或将 VBA 代码嵌入函数并让按钮调用它。