VBAオープンブック、フィルタを適用し、ブックを閉じますか？

Question

次のコードを使用してExcelワークブックを開き、列をフィルタリングして再度閉じて、変更を保存しようとしています。

HERESに私のコードが、何らかの理由で、それはフィルタを適用されていません。

DisplayAlerts = False 
OtherBook.Open 
Selection.AutoFilter Field:=1, Criteria1:="49" 
OtherBook.Close SaveChanges:=True 

マイブックには、次のようになります。

列AとBが既にフィルタが適用されている列は/自分のヘッダにオン。

Column A  Column B <----(Filters On) 
49   Dog 
48   Cat 
49   Dog 
47   Cat 
49   Dog 
45   Dog 

私が間違っている場所を教えてもらえますか？

Answer 1

「選択」はアクティブなワークブックで機能しますが、おそらく少し曖昧です。範囲をより正確に参照しようとしている可能性があります。これに

Selection.AutoFilter Field:=1, Criteria1:="49" 

：

Workbooks(OtherBook).ActiveSheet.Cells(1, 1).AutoFilter Field:=1, Criteria1:="49" 

またはこの：

Workbooks(OtherBook).ActiveSheet.Cells(1, 1).Resize(1, 2).AutoFilter Field:=1, Criteria1:="49"