Question

我正试图在Access 2013中的自定义报告中利用MS Excel的更好的绘图功能。我有一个查询输出，我只需要指向MS Excel图表对象的工作表部分。我在VBA非常体面，但我不确定如何开始。

更新

这是我迄今为止所拥有的几乎没有任何内容。

在表单上，我没有看到onload事件，所以我在下面添加这个VBA代码 OnPaint中。我有一个摘要查询，其中包含我的所有数据。我的目的是遍历查询结果并根据输出将其放在给定的单元格中。

    Dim query As QueryDef
    Dim data As Recordset

    Set data = query.OpenRecordset("Library Qualificatoin Summary")

    If data.RecordCount <> 0 Then
         Me.dataSummaryChart.***STUCK HERE*** 


    end if

Answer 1

到目前为止，我找到的最佳答案是在另一个交换帖子中发布的解决方案之后嵌入工作表对象而不是图表。 link

到目前为止我的代码（仍在更新到最终版本）

Dim chartsheet As Excel.Worksheet
Dim query As QueryDef
Dim data As Recordset


Set chartsheet = Me.summaryData.Object.Sheets(1)
chartsheet.Cells(1, 1).Value = 2

从这里开始我只是手动将数据放入excel中，而Krish提到的更改值后会自动更新图表。不是最漂亮的解决方案。希望有人想出一个更光滑的方法。

让MS Access Query填充Access 2013中嵌入的MS Excel图表的报表工作表

1 个答案: