参考代码
Tables("表A").Filter = "[时间] >= #" & new date(1900, 1, 1, 9, 0, 0) & "# and [时间] <= #" & Date.Today.AddHours(23).AddMinutes(59) & "#"
加好友 
发短信
Post By：2014/9/9 10:10:00 [显示全部帖子]
