Отчёт по данным базы в виде сводной таблицы MS Excel
Вариант OLE Object, с помощью которого возможно открыть и обновить отчёт
На форму для открытия отчета (frmOpenReport_OLE), требуется добавить контролы:
Тип |
Имя, например |
Свойства |
Bound Object Frame |
ExcelOLE |
Visible = No, Verb = 2 |
Button |
btnOpenReport |
Visible = Yes |
Обработка события Click – Open Report:
Private Sub btnOpenReport_Click()
Dim xlapp As Object
On Error GoTo err
Forms!frmOpenReport_OLE!ExcelOLE = DLookup("Report", "Reports_Template", "ReportID = 1")
Forms!frmOpenReport_OLE!ExcelOLE.Action = acOLEActivate
Set xlapp = GetObject(, "excel.Application")
xlapp.worksheets("SheetName").PivotTables(1).RefreshTable
Exit Sub
err:
MsgBox Error$
Exit Sub
End Sub
где используем функцию Dlookup, в которой:
"Report" – название поля в таблице с OLE объектом
"Reports_Template" – название таблицы с шаблоном отчёта -- OLE объектом
"ReportID = 1" – фильтр отбора нужной записи из таблицы по полю ReportID