使用VBS将透视表数据源更改为另一个xlsx文件的整个sheet1

以下是使用VBS将透视表数据源更改为整个sheet1的示例代码：
```vb
Option Explicit
Dim objExcel, objWorkbook, objPivotTable, objPivotCache, objNewWorkbook, objNewSheet
'创建Excel应用程序对象
Set objExcel = CreateObject("Excel.Application")
'打开要更改数据源的Excel文件
Set objWorkbook = objExcel.Workbooks.Open("C:\data\source.xlsx")
'获取透视表对象
Set objPivotTable = objWorkbook.Sheets("Sheet1").PivotTables("PivotTable1")
'获取透视表缓存对象
Set objPivotCache = objPivotTable.PivotCache()
'打开包含新数据源的Excel文件
Set objNewWorkbook = objExcel.Workbooks.Open("C:\data\new_data.xlsx")
'获取新数据源的Sheet对象
Set objNewSheet =objNewWorkbook.Sheets("Sheet1")
'更改透视表的数据源
objPivotCache.SourceData = objNewSheet.UsedRange.Address(True, True, xlR1C1)
'刷新透视表
objPivotTable.RefreshTable
'关闭Excel文件
objWorkbook.Close
objNewWorkbook.Close
'退出Excel应用程序
objExcel.Quit
```
在上述代码中，我们首先创建了一个Excel应用程序对象，然后使用`Open`方法打开了要更改数据源的Excel文件和包含新数据源的Excel文件。接下来，我们获取了透视表对象和透视表缓存对象，并使用`Sheets`属性获取了新数据源的Sheet对象。然后，我们使用`UsedRange`属性获取了新数据源Sheet的使用范围，并使用`SourceData`属性将透视表的数据源更改为新数据源Sheet的使用范围。最后，我们使用`RefreshTable`方法刷新透视表，关闭了Excel文件，并退出了Excel应用程序。
请注意，上述代码中的文件路径应该根据您自己的文件路径进行更改。

---

这个更改数据源的方法能用吗？

 

---

如何用代码框？

---