如果资源数据为空，则清除数据透视表

Question

我想检查3个数据透视表的资源数据是否为空的工作表，如果是，它应该清除另一个工作表中的数据透视表内容而不删除数据透视表。现在我的问题是，在更新后，数据透视表仍然保留了最后一个值，并且不清楚自己。我总是得到一个方法不匹配的错误。这是我的代码：

Dim pt As PivotTable
Dim myCellRange As Range
Set myCellRange = ThisWorkbook.Sheets("Data").Range("A1:A500")

If ThisWorkbook.Sheets("Data").CountA(myCellRange) = 0 Then
    Set pt = ThisWorkbook.Sheets("Analysis").PivotTables(1)
    pt.ClearTable
End If

任何想法有什么不对？

Answer 1

请检查以下内容：

cmdlet Set-MsolUserLicense at command pipeline position 1
Supply values for the following parameters
ObjectId:

Answer 2

试试这个。要在VBA代码中使用工作表函数，您需要从application.WorksheetFunction object。

中解决它们

Dim pt As PivotTable
Dim myCellRange As Range
Set myCellRange = ThisWorkbook.Sheets("Data").Range("A1:A500")

If Application.WorksheetFunction.CountA(myCellRange) = 0 Then
    Set pt = ThisWorkbook.Sheets("Analysis").PivotTables(1)
    pt.ClearTable
End If