VBA 통합 문서 열기, 필터 적용 및 닫기 통합 문서?

다음 코드를 사용하여 Excel 통합 문서를 열고 열을 필터링 한 다음 다시 닫아 변경 내용을 저장하려고합니다.VBA 통합 문서 열기, 필터 적용 및 닫기 통합 문서?

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

누군가 내가 잘못 가고있는 것을 보여줄 수 있습니까?

Otherbook.Activate()이 줄을 변경? Application.Documents.Open (path as String)? – Jbjstam

귀하의 코드는 실제로 그 'OtherBook' 문과 함께 작동합니까? 귀하의 제안에 대해 – user3598756

'선택'은 활성 통합 문서에서 작동합니다. 다소 모호합니다. 더 정확하게 범위를 참조 할 수도 있습니다. 이에

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"

2016-12-04 13:08:48 David

주셔서 감사합니다. 이 doesnt는 일하는 것처럼 보인다. 내 필터가있는 열 A의 내 머리글이 행 6에서 시작됩니다. 이것이 문제 일 수 있습니까? 나는 세포 (1,1)을 세포 (6,1)로 바꿨다 - 맞습니까? –

아, 그래 맞아. (6,1) .. – David

글쎄 그것은 여전히 작동하지 않을거야. ( –

답변