execl

Question

这样可以吗？数据导出之后，自动启用execl里的自动筛选功能啊

Answer 1

可以啊，你可以选择你需要自动筛选的列然后，用autofilter如下
Columns("B:B").Select
Selection.AutoFilter

Answer 2

你是说第2列吧,就是Columns("B:B").Select啊Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
这里添加你加入记录的代码! Columns("B:B").Select
    Selection.AutoFilter
    Range("B1:B6").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormalSet xlApp = Nothing   '注意！xlBook 仍会包含对象引用。
Set xlBook = Nothing   '现在全部引用被清除。