- 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=132914)
-- 发布时间：2019/4/2 11:02:00
-- 如何在excel的模板中同时打两个不相关联的表格
老师
如题, foxtable 现在可以吗? 请看我的图的模板.
此主题相关图片如下：fablhg(lr6w~$bxbuyiye6.png
要怎么才能实现?
-- 发布时间：2019/4/2 11:09:00
--
两个表分别生成，然后拷贝到一起
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