以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么将导出的报表插入到指定的Excel文件呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64722)
--  作者：wang1988sen
--  发布时间：2015/2/27 22:25:00
--  怎么将导出的报表插入到指定的Excel文件呢
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文件。
--  作者：moxuejiahui
--  发布时间：2015/2/28 1:56:00
--  
我是刚接触的，正好今天刚看了这方面的。http://www.foxtable.com/help/index.html?n=2121.htm
--  作者：Bin
--  发布时间：2015/2/28 8:38:00
--  
赞一下楼上


文件名改为和原文件名一致即可
--  作者：wang1988sen
--  发布时间：2015/2/28 10:23:00
--  
帮我看看这段代码为啥运行不了呢，移动代码是说明书中的，我修改了就不能用了，特意直接复制说明书不修改也不能用，不知道是不是说明书这段代码就有问题呢。

代码的意思是    用(ProjectPath & "Attachments\\汇总成绩报表模板.xls")生成报表，保存至ProjectPath & "Reports\\导出分组成绩.xls"。然后将该导出工作表移动到我设置好有vba代码程序的工作薄(ProjectPath & "Attachments\\汇总成绩报表模板【程序】.xls")中新建的工作表中，为不破坏该带vba的工作薄另存到(ProjectPath & "Reports\\导出分组成绩【程序】.xls")并且打开。这是代码会自动运行，这样就不好破坏模板和我设置好vba的工作薄。


MainTable = Tables("学生成绩表")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\汇总成绩报表模板.xls")
Dim fl As String = ProjectPath & "Reports\\导出分组成绩.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Book1 As New XLS.Book(ProjectPath & "Reports\\导出分组成绩.xls")
Dim Book2 As New XLS.Book(ProjectPath & "Attachments\\汇总成绩报表模板【程序】.xls")
Dim Sheet = Book1.Sheets("Sheet1")
Book1.Sheets.Remove(Sheet)
Book2.Sheets.Add(Sheet)
Book2.Save(ProjectPath & "Reports\\导出分组成绩【程序】.xls")
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Reports\\导出分组成绩【程序】.xls")
--  作者：Bin
--  发布时间：2015/2/28 10:39:00
--  
不用这样的,看3楼.只要文件名一样,自动合并
--  作者：wang1988sen
--  发布时间：2015/2/28 11:02:00
--  
两个Excel自动合并吗？里面的vba代码还可以用吗？
--  作者：wang1988sen
--  发布时间：2015/2/28 11:07:00
--  
这个是将狐表中一个表导出，需要用用模板导出后，怎么做呢。
--  作者：Bin
--  发布时间：2015/2/28 11:08:00
--  
第一段代码就是用模版导出
--  作者：wang1988sen
--  发布时间：2015/2/28 11:13:00
--  
这个会的，导出模板后怎么将导出的Excel当前工作表插入到指定的Excel文件呢？您说的方法没明白，给的链接也不是很懂。

我就想将用模板导出的报表插入到带有vba的Excel文件中。这个插入操作怎么实现呢。
--  作者：wang1988sen
--  发布时间：2015/2/28 11:16:00
--  
将生成报表另存为就覆盖了原有数据，想将生成报表插入指定的Excel文件，现在用的不是很熟，麻烦指导指导怎么实现这个功能，我在说明中找的代码出错。现在还不能随心所欲的编代码，只会套代码，所以您说的方法我不是很懂的。很感谢了