オートフィルタを解除する

解決

Level1  2005-08-25 12:05:25  No: 124439  IP: [192.*.*.*]

VB6からエクセルファイルを開いています。
開いたファイル内がでオートフィルタが設定されているものがあり何とかVB
側からファイルを開いたと同時に、オートフィルターを解除したいのですが
解除するコードがわかりません。

Set wR = xlBook.Worksheets("Sheet1")
With wR.AutoFilter
End With

このコードを実行すると、
"オブジェクトは、このプロパティまたはメソッドをサポートしていませ
ん。"
と出ます。（このコードも解除のコードになっていませんが・・・）

どなたか教えていただけにでしょうか。

編集 削除
Level1  2005-08-25 12:06:43  No: 124440  IP: [192.*.*.*]

環境はVB6  Excel2003 WinXP Proです。

編集 削除
medaka  2005-08-25 12:28:21  No: 124441  IP: [192.*.*.*]

マクロ記録してそのコードを参考にするとかってのは？

編集 削除
魔界の仮面弁士  2005-08-25 12:32:10  No: 124442  IP: [192.*.*.*]

試していませんが、
  If Not wR.AutoFilter Is Nothing Then
    wR.Cells.AutoFilter
  End If
かな?

編集 削除
Level1  2005-08-25 13:23:54  No: 124443  IP: [192.*.*.*]

medakaさん魔界の仮面弁士さん、さっそくのアドバイスありがとうございました。
魔界の仮面弁士のコードを参考にして動くようになりました。

編集 削除