- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何导出关联表父子表到一个EXCEL表中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68224)
-- 发布时间：2015/5/12 18:16:00
-- 如何导出关联表父子表到一个EXCEL表中
如何将父表和子表同时导出到一个EXCEL表中呢,
此主题相关图片如下：qq截图20150512181010.jpg
文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:关联表的数据引用和统计.foxdb |
比如:第一行是父表,在其下面增加子表,,
-- 发布时间：2015/5/12 19:22:00
--
http://www.foxtable.com/help/topics/0204.htm
-- 发布时间：2015/5/12 19:24:00
--
或者是，先导出两个sheet，然后拷贝到一起去，比如
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") \'指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")
Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select \'横向拷贝
\'ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select \'纵向拷贝
ws3.paste
\'Wb.Save
app.Visible = True
\'App.Quit