[求助]Excel表中多层表头自动筛选代码不完美 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Excel表中多层表头筛选：

如果手工选择表头的最后一行再点筛选按钮，肯定是正常的。

但如果用下列代码，则只要存在单层表头就只会选择第一层筛选，而不可能是最后一层：

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(filename)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.Select '在选定单元格之前,必须先选定工作表

Ws.Range("A2:H2").Select

'或Ws.Rows("2:2").Select

ws.Range("F2").Activate 'F2是第一个双层表头

app.Selection.AutoFilter

请问高手：有办法解决吗？

主题：[求助]Excel表中多层表头自动筛选代码不完美