Làm thế nào detect Filter và bỏ đi (2 người xem)

[hmanhha]

Kính gửi các bác.
Em có 2 file Excel rất giống nhau.Việc xử lý 2 file này như nhau.Song có điều là đôi khi có ai đó đã xem 1 trong 2 file và thực hiện Filter.
Khi đó tiến hành xử lý 2 file như nhau sẽ sai.
Em cần phải bỏ Filter đó đi trước đã.

Em mở file bằng cách này này:

xlapp.Workbooks.OpenText FileName:=filenametemp, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 9), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1)), TrailingMinusNumbers:=True


Các bác xem có gì giúp em cái.

 

[Mr Okebab]

Kính gửi các bác.
Em có 2 file Excel rất giống nhau.Việc xử lý 2 file này như nhau.Song có điều là đôi khi có ai đó đã xem 1 trong 2 file và thực hiện Filter.
Khi đó tiến hành xử lý 2 file như nhau sẽ sai.
Em cần phải bỏ Filter đó đi trước đã.

Em mở file bằng cách này này:

xlapp.Workbooks.OpenText FileName:=filenametemp, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 9), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1)), TrailingMinusNumbers:=True


Các bác xem có gì giúp em cái.

Bạn thử xem nhé :

    With Workbooks("A.xls").Worksheets("Sheet1")
        If .AutoFilterMode = True Then .AutoFilterMode = False
    End With

Thân!