主题：excel报表选出时间是今天的数据怎么操作

 注意最后一句话：

必须将打印条件写入准确的位置，模版中行和列的编号都是从0开始的额，切记。

搞不定就把模版发上来，我们帮你设置一下

 设计一个窗口，插入一个输入框，用于输入日期，代码改为：

Dim dt As date = e.Form.Controls("日期输入框").Value

Dim Book As New XLS.Book(ProjectPath & "Attachments\出筒部统计表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\出筒部统计表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,19).Value = "<检查时间 >= # " & dt & "# And 检查时间 < #" & dt.Adddays(1) & "#>"  '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()