代码和模板都没问题。
加入代码弹出内容看一下 msgbox("<出差起日期 >= #" & qr & "# And 出差止时期 <= #" & zr & "#>" )
对应的，对表格筛选，看筛选结果是什么 Tables("蒋安出差").filter = "出差起日期 >= #" & qr & "# And 出差止时期 <= #" & zr & "#"
加好友 
发短信
Post By：2019/1/11 9:47:00 [只看该作者]
