用VBA取消自动筛选(或者显示全部数据)

0wchz

mei ren ya

陌墨无文

学习了，呵呵～

ansonlinh

Sub 按钮1_单击()

   Dim myPath$, myFile$, AK As Workbook, aRow As Long, tRow As Long
   Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   myPath = ThisWorkbook.Path & "\Test\"          '把文件路径定义给变量
   
   myFile = Dir(myPath & "*.xls")            '依次找寻指定路径中的*.xls文件
   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
         ActiveSheet.AutoFilterMode = False               '取消工作表筛选
         aRow = AK.Sheets("产品清单").Range("k65536").End(xlUp).Row
         tRow = ThisWorkbook.Sheets("Sheet1").Range("k1048576").End(xlUp).Row + 1

            'AK.Sheets(*).Select
         
         AK.Sheets("产品清单").Range("a2:aa" & aRow).Copy
         ThisWorkbook.Sheets("Sheet1").Range("a" & tRow).PasteSpecial Paste:=xlPasteValues         '数值粘贴来源表数据
         Application.CutCopyMode = False             '静默状态立即清除剪贴板
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop
      
   Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
   MsgBox "汇总完成，请查看！", 64, "提示"


End Sub


这是我在大家的帮助下写出来的vba代码，刚才关于取消筛选的代码也通过搜索网络加进去了，也能实现了，但是现在会提示“工作簿已修改是否保存”的对话框，如何取消？
疑问：程序中不是已经有不修改关闭工作簿的相关代码了么？

ansonlinh

晕 发错地方了

yz_zax

MARK   取消筛选

yuwd3

晕，自己提供的答案，现在命令想不起来，只记得有这个命令。