方法一:先在表格里面筛选数据,再生成报表
Tables("表A").Filter = "日期 = #" & Date.Today & "#"
方法二:要动态修改excel模板
http://www.foxtable.com/help/topics/2626.htm