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

解決

Level1 2005-08-25 21:05:25 No: 124439

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

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

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

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

Level1 2005-08-25 21:06:43 No: 124440

環境はVB6 Excel2003 WinXP Proです。

medaka 2005-08-25 21:28:21 No: 124441

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

魔界の仮面弁士 2005-08-25 21:32:10 No: 124442

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

Level1 2005-08-25 22:23:54 No: 124443

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