「SearchData.xlsx」というファイルを開いているかどうかに関係なくフィルターをかけたいです。
次のコードを試しましたが、例外が発生します。
Sub ApplyFilterInDataFile()
IsOpen = False
For Each wb In Workbooks
If LCase(wb.Name) = "searchdata.xlsx" Then
IsOpen = True
End If
Next
If IsOpen Then
Workbooks("SearchData").ActiveSheet.UsedRange.AutoFilter Field:=42, Criteria1:=Range("SearchName")
Else
Set wb = Workbooks.Open(ThisWorkbook.Path & "\SearchData.xlsx")
Workbooks("SearchData").Activate
Workbooks("SearchData").ActiveSheet.UsedRange.AutoFilter Field:=42, Criteria1:=Range("SearchName")
wb.Close SaveChanges:=True
Set wb = Nothing
End If
End Sub
専門家の助けが必要です。