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

解決


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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加