Tables("表A").Filter = "日期 >= #" & Date.Today.AddDays(-1) & "# and 日期 < #" & Date.Today & "#"
----------------
Tables("表A").Filter = "日期 >= #" & Date.Today.AddDays(1) & "# and 日期 < #" & Date.Today.AddDays(2) & "#"