- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口的查询表导出到EXCEL 模板，不显示内容 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60305)
-- 发布时间：2014/11/22 10:13:00
-- 窗口的查询表导出到EXCEL 模板，不显示内容
用这个代码，可以导出：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "发票管理_Table1" \'指定导出表
ex.Format = "Excel"
ex.Filter = Tables("发票管理_Table1").Filter
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
Tables("发票管理_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模板的表名是<发票管理_Table1>;
-- 发布时间：2014/11/22 11:01:00
--
模版不对,上例子+模版 发上来
-- 发布时间：2014/11/22 14:30:00
--
附件是模板，帮看下是哪里不对
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:invoice.xls |
[此贴子已经被作者于2014-11-22 14:29:58编辑过]
-- 发布时间：2014/11/22 14:32:00
--
大小写区分一下.严格按照帮助来做
搞不定连项目文件一起发上来我测试
-- 发布时间：2014/11/22 14:55:00
--
老师请看；
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:invoice.xls |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/11/22 15:27:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:invoice.xls |
-- 发布时间：2014/11/22 15:51:00
--
好吧，我承认，我真笨，这都会错；