主题：窗口的查询表导出到EXCEL 模板，不显示内容

用这个代码，可以导出：

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "fa piao管理_Table1" '指定导出表
    ex.Format = "Excel"
    ex.Filter = Tables("fa piao管理_Table1").Filter
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
    Tables("fa piao管理_Table1").SaveExcel(dlg.FileName,"Invoice")
End If

但想直接导出到模板，用这个代码：

Dim Book As New XLS.Book(ProjectPath & "Attachments\Invoice.xls")
Dim fl As String = ProjectPath & "Reports\Invoice.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

导出的EXCEL没有数据，是哪里错了？EXCEL模板的表名是<fa piao管理_Table1>;