Как получить доступ к панели инструментов отчета программно в MS-Access 97 - PullRequest
Новая
       23

Как получить доступ к панели инструментов отчета программно в MS-Access 97

0 голосов
/ 11 августа 2010

У меня есть проект в Access 97, в который я должен добавить возможность экспортировать отчет в Excel.Когда вы запускаете отчет в программе, уже есть возможность экспортировать в слово и преуспеть, хотя выделяются только некоторые заголовки.

В ходе исследования я обнаружил, что мог бы заставить его работать, используя OutputTo, но, к сожалению, я не могу попытаться сделать это, потому что не могу найти код панели инструментов в представлении отчета.Я нашел фактический отчет.Я никогда не использовал Access какой-либо версии, поэтому мне просто нужно добавить макрос или мне нужно подходить к этому по-другому?Я не могу найти, где код уже находится.

1 Ответ

1 голос
/ 11 августа 2010

либо используйте макрос с действием 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"
...