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