excel - Excel VBA - PivotItems エラーの可視性の設定

Question

次のコードを使用して、Excel でピボット テーブルをフィルター処理しています (ただし、パワーポイントから) - 「日付」フィールドのフィルターをクリアすることはできますが、oPi値の可視性の設定に問題があります。

Sub Data()

Dim oExcel As Excel.Application
Dim oWB As Workbook
Dim oPi As PivotItem
Set oExcel = New Excel.Application
oExcel.Workbooks.Open ("\\A79APBRSFACTD\MDSS\FactivityServer\FactShar\OEE_Daily2.xls")
oExcel.Visible = True
Set oExcel = Excel.Application
Set oWB = oExcel.Workbooks("OEE_Daily2.xls")

oWB.Sheets("OEE Pivot Daily").Select
oExcel.Run ("Update_OEE_Daily")
oWB.Sheets("OEE Pivot Daily").Range("B3").Select

oWB.Sheets("OEE Pivot Daily").PivotTables("PivotTable2").PivotFields("Date").Orientation = xlHidden

With oWB.Sheets("OEE Pivot Daily").PivotTables("PivotTable2").PivotFields("Date")
    .Orientation = xlPageField
    .Position = 1
    .ClearAllFilters
    For Each oPi In .PivotItems
        If oPi.Value <> "7/1/2013" Then
            oPi.Visible = False 'Offending Line
        End If
    Next oPi
End With

Set oExcel = Nothing
Set oWB = Nothing

End Sub

私が受け取ったエラーRun-time error '1004': unable to set the visible property of the PivotItemは行のものですoPi.Visible = False

oPi.Valueとの監視を追加oPi.Visibleし、コードをステップ実行しました - の可視性の設定で行が動かなくなり、その行にカーソルを合わせると、次のようoPi.Value = 4/26/2013に表示されることがわかりました。oPi.Visible = <Type Mismatch>

の代わりに、 、Falseを使ってみましたが、だめでした！この問題を解決し、可視性を変更できるようにするための助けをいただければ幸いです。0CBool(0)