Vba打開工作簿，應用過濾器並關閉工作簿？

Question

我正在嘗試使用以下代碼打開excel工作簿，過濾列並再次將其關閉-保存更改。

這是我的代碼，但是由於某種原因它沒有應用過濾器：

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"

Answer 2

Sub Filtertest()
Dim rangetofilter As Range
Dim lastrow As Long

  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  Workbooks("Calculator v1.2.xlsm").Worksheets("first").Range("dslist").ClearContents
  Workbooks.Open Filename:="C:\Users\username\Desktop\PPP\Test.xlsx"

  Set rangetofilter = Workbooks("Test.xlsx").Worksheets("copy4").Range("A1:F2586")
  rangetofilter.AutoFilter Field:=1, Criteria1:="marketing"

  lastrow = Workbooks("Test.xlsx").Worksheets("copy4").Cells(Workbooks("Test.xlsx").Worksheets("copy4").Rows.Count, "A").End(xlUp).Row
  Debug.Print lastrow

  Workbooks("Test.xlsx").Worksheets("copy4").Range("D2:D" & lastrow).Copy
  Workbooks("Calculator v1.2.xlsm").Worksheets("first").Range("A2").PasteSpecial Paste:=xlPasteValues

  Workbooks("Test.xlsx").Close False

  Application.ScreenUpdating = True
  Application.DisplayAlerts = True

End Sub