Question

我昨天刚刚开始使用宏，所有事情都没问题，直到我遇到这个问题。每当我尝试运行此代码时，我都会

运行时1004错误。

代码的作用是为acct_cre_mth_id过滤器赋值。

我用谷歌搜索它，发现一个解决方案就是重命名过滤器，我已经这样做但是没用。

我有给定的代码但是对于不同的过滤器它工作正常，但仅适用于此特定过滤器我遇到了问题。

Sheets("Sheet6").Select
 ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    CurrentPage = "1321"
ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    CurrentPage = "1322"
ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    CurrentPage = "1323"
ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _
    CurrentPage = "1324"
End Sub

Excel宏运行时错误：1004

0 个答案: