Worksheet.PivotTableBeforeCommitChanges 事件 (Excel)

在向数据透视表的 OLAP 数据源提交更改之前发生。

语法

表达式。PivotTableBeforeCommitChanges (TargetPivotTable、 ValueChangeStart、 ValueChangeEnd、 Cancel)

表达 一个代表 Worksheet 对象的变量。

参数

名称	必需/可选	数据类型	说明
TargetPivotTable	必需	PivotTable	包含要提交的更改的数据透视表。
ValueChangeStart	必需	Long	关联 PivotTableChangeList 对象中第一个更改的索引。 索引由 PivotTableChangeList 集合中 ValueChange 对象的 Order 属性指定。
ValueChangeEnd	必需	Long	关联的 PivotTableChangeList 对象中最后一处更改的索引。 该索引由 PivotTableChangeList 集合中 ValueChange 对象的 Order 属性指定。
Cancel	必需	Boolean	False 在事件发生时。 如果事件过程将此参数设置为 True，则不会向数据透视表的 OLAP 数据源提交更改。

返回值

Nothing

备注

在 Excel 针对数据透视表的 OLAP 数据源执行 COMMIT TRANSACTION 语句之前，在用户选择保存整个数据透视表的更改之后，立即发生 PivotTableBeforeCommitChanges 事件。

示例

下面的代码示例在将更改提交到数据透视表的 OLAP 数据源之前提示用户。

Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, _ 
 ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) 
 
 Dim UserChoice As VbMsgBoxResult 
 
 UserChoice = MsgBox("Allow updates to be saved to: " + TargetPivotTable.Name + "?", vbYesNo) 
 If UserChoice = vbNo Then Cancel = True 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。