Foxtable(狐表)用户栏目专家坐堂 → 怎么将导出的报表插入到指定的Excel文件呢


  共有3160人关注过本帖平板打印复制链接

主题:怎么将导出的报表插入到指定的Excel文件呢

帅哥哟,离线,有人找我吗?
wang1988sen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
怎么将导出的报表插入到指定的Excel文件呢  发帖心情 Post By:2015/2/27 22:25:00 [只看该作者]

MainTable = Tables("学生成绩表")
Dim
 Book As New XLS.Book(ProjectPath & "Attachments\汇总成绩报表模板.xls")
Dim
 fl As String = ProjectPath & "Reports\分组成绩报表.xls"
Book.Build() 
'生成细节区
Book.Save(fl) 
'保存工作簿
Dim
 Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

Dim
 dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= 
"文本文件|*.xls" '设置筛选器
If
 dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   
【代码部分】

End
 If

代码部分怎么写可以将导出的Excel报表工作表通过打开对话框插入到指定的Excel文件。



 回到顶部