Worksheet.PivotTableBeforeCommitChanges-Ereignis (Excel)

  • Artikel

Tritt auf, bevor für Änderungen an der OLAP-Datenquelle für eine PivotTable ein Commit ausgeführt wird.

Syntax

Ausdruck. PivotTableBeforeCommitChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)

Ausdruck: Eine Variable, die ein Worksheet-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
TargetPivotTable Erforderlich PivotTable Die PivotTable, in der die Änderungen enthalten sind, für die ein Commit ausgeführt werden soll.
ValueChangeStart Erforderlich Long Der Index der ersten Änderung im zugeordneten PivotTableChangeList-Objekt . Der Index wird von der Order-Eigenschaft des ValueChange-Objekts in der PivotTableChangeList-Auflistung angegeben.
ValueChangeEnd Erforderlich Long Der Index für die letzte Änderung im zugeordneten PivotTableChangeList-Objekt. Der Index wird durch die Order-Eigenschaft des ValueChange-Objekts in der PivotTableChangeList-Auflistung angegeben.
Cancel Erforderlich Boolean False, wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festlegt, wird kein Commit für die Änderungen an der OLAP-Datenquelle der PivotTable ausgeführt.

Rückgabewert

Nothing

HinwBemerkungeneise

Das PivotTableBeforeCommitChanges-Ereignis tritt unmittelbar vor dem Ausführen einer COMMIT TRANSACTION-Anweisung für die OLAP-Datenquelle der PivotTable und unmittelbar nach dem Speichern der Änderungen für die gesamte PivotTable durch den Benutzer auf.

Beispiel

Im folgenden Codebeispiel wird der Benutzer aufgefordert, bevor Änderungen an der OLAP-Datenquelle der PivotTable committet werden.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.