在VB（Visual Basic）中，更新所有数据透视表的代码如下：
```vb
Sub UpdateAllPivotTables（）
Dim ws As Worksheet
Dim pt As PivotTable
' 遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
' 遍历每个工作表中的数据透视表
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
MsgBox "所有数据透视表已更新完成!", vbInformation
End Sub
```
代码解释：
遍历所有工作表
```vb
For Each ws In ThisWorkbook.Worksheets
```
这行代码会遍历Excel工作簿中的所有工作表。
遍历每个工作表中的数据透视表
```vb
For Each pt In ws.PivotTables
```
这行代码会遍历当前工作表中的所有数据透视表。
刷新数据透视表
```vb
pt.RefreshTable
```
这行代码会刷新当前遍历到的数据透视表。
提示信息
```vb
MsgBox "所有数据透视表已更新完成!", vbInformation
```
这行代码会弹出一个信息框，提示用户所有数据透视表已经更新完成。
进阶操作：
如果你只想更新特定工作表中的数据透视表，可以修改代码如下：
```vb
Sub UpdateSpecificPivotTable（）
Dim pt As PivotTable
' 指定工作表“Sheet1”
With ThisWorkbook.Worksheets（"Sheet1"）
For Each pt In .PivotTables
pt.RefreshTable
Next pt
End With
MsgBox "Sheet1的数据透视表已更新!", vbInformation
End Sub
```
代码解释：
指定工作表
```vb
With ThisWorkbook.Worksheets（"Sheet1"）
```
这行代码会指定工作表为“Sheet1”。
遍历特定工作表中的数据透视表
```vb
For Each pt In .PivotTables
```
这行代码会遍历“Sheet1”中的所有数据透视表。
刷新数据透视表
```vb
pt.RefreshTable
```
这行代码会刷新当前遍历到的数据透视表。
提示信息
```vb
MsgBox "Sheet1的数据透视表已更新!", vbInformation
```
这行代码会弹出一个信息框，提示用户“Sheet1”的数据透视表已经更新完成。
通过这些代码，你可以轻松地更新Excel中所有或特定工作表的数据透视表。