Excel 在数据透视表VBA中的两个日期范围之间进行筛选，在一台计算机上有效，但在另一台计算机上无效

我目前正在使用下面的代码筛选两个日期之间的数据透视表。它在我的电脑上运行良好，但当同事在他们的电脑上尝试时，它会在添加过滤器的线路上抛出一个错误。奇怪的是，有时PT2线路会出错，有时PT3线路会出错。你知道为什么这在一台计算机上可以正常工作，而在另一台计算机上却不行吗？我正在使用excel 2016，我相信我的同事正在使用office excel 365。同事收到的错误是运行时错误“1004”：应用程序定义的错误或对象定义的错误。任何帮助都将不胜感激

Dim ws6 as sheet, ws7 as sheet, ws9 as sheet
Dim PT2 As PivotTable, PT3 As PivotTable, PT5 As PivotTable
Dim PeriodStart As Variant, PeriodEnd As Variant


Set ws6 = Sheets("ProductivityDetailPivot")
Set ws7 = Sheets("ProductivityDetailPivotProcess")
Set ws9 = Sheets("ProductivityDetailPivotWeld")
Set PeriodStart = BegDateBox
Set PeriodEnd = EndDateBox
Set PT2 = ws6.PivotTables("ProductivityDetailPivot")
Set PT3 = ws7.PivotTables("ProductivityDetailPivotProcess")
Set PT5 = ws9.PivotTables("ProductivityDetailPivotWeld")

ws6.Activate
 PT2.PivotFields("Date"). _
        ClearAllFilters

 PT2.PivotFields("Date").PivotFilters. _
        Add2 Type:=xlDateBetween, Value1:=PeriodStart, Value2:=PeriodEnd

PT2.RefreshTable

ws7.Activate
 PT3.PivotFields("Date"). _
        ClearAllFilters

 PT3.PivotFields("Date").PivotFilters. _
        Add2 Type:=xlDateBetween, Value1:=PeriodStart, Value2:=PeriodEnd

PT3.RefreshTable

---

哪一行抛出错误？PT3.PivotFields（“日期”）.PivotFilters.\uAdd2 Type:=xlDateBetween，Value1:=PeriodStart，Value2:=periodend什么是

BegDateBox

和

EndDateBox

？对不起，忘了把它们放在那里了，它们是变式的，它们是一张excel表格上组合框内的值。当我尝试调试时，鼠标悬停在两台计算机上的值是相同的。我还发现它在使用excel 2013或2016的计算机上工作，但会在excel 365上抛出错误代码