7,713
社区成员
发帖
与我相关
我的任务
分享ACCESS中如何使用VBA访问数据透视表子窗体的数据？
在父窗体中可以用Me.ChildTableName.Form.PivotTable获得透视表对象，那如何访问其中的单元格呢？
貌似有个PivotTable.ActiveData.Cells()的函数，但是不会用，可以给一点例子吗？谢谢。
貌似有个PivotTable.ActiveData.Cells()的函数，但是不会用，可以给一点例子吗？谢谢。
...全文
请发表友善的回复…
发表回复
changechange 2010-08-23
- 打赏
- 举报
要直接双击某个单元格显示其数据用
Private Sub Form_DblClick(Cancel As Integer)
'先引用 OWC10.DLL，一般在 C:\Program Files\Common Files\Microsoft Shared\Web Components\10\OWC10.DLL
Dim pt As New OWC10.PivotTable
'注意！如果下面这句代码提示“类型不匹配”错误，请确认 OWC10.DLL 还是 OWC11.DLL，可能是OWC版本不匹配
Set pt = Me.PivotTable
'报告当前正在双击的单元格的数值
MsgBox pt.ActiveData.CurrentCell.DetailCells(0, 0).Value
End Sub
Private Sub Form_DblClick(Cancel As Integer)
'先引用 OWC10.DLL，一般在 C:\Program Files\Common Files\Microsoft Shared\Web Components\10\OWC10.DLL
Dim pt As New OWC10.PivotTable
'注意！如果下面这句代码提示“类型不匹配”错误，请确认 OWC10.DLL 还是 OWC11.DLL，可能是OWC版本不匹配
Set pt = Me.PivotTable
'报告当前正在双击的单元格的数值
MsgBox pt.ActiveData.CurrentCell.DetailCells(0, 0).Value
End Sub
