以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表设计的问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76460)
--  作者：douglas738888
--  发布时间：2015/10/29 16:20:00
--  报表设计的问题请教
请教老师这样的报表格式如何做，自己弄了好几天了都没有形成，主要来自营业收入和营业支出两张表的数据，EXCEL和专业报表都试过，思路不清晰，是否需要统计在统计，还是用专业报表可以完成
                                           
                                          日收支报表
营业收入 　 营业支出 　
客户编号 客户名称 订单金额 预付定金 未付余款 付款方式 支出编号 支出类别 支出金额 付款方式
001 老马 1000 100 900 现金 Z001 办公用品 500 现金
002 老刘 2000 200 1800 刷卡 Z002 购置材料 600 银行转账
… … … … … 　 … … … 　
现金支付 900 刷卡支付 1800 　 　 现金支付 500 银行转账 600
月累计收入 20000 　 　 　 　 月累计支出 10000 　 　
--  作者：大红袍
--  发布时间：2015/10/29 16:32:00
--  

用excel来做，做一个收入的报表，再做一个支出的报表

 

然后把两个表拷贝到一起即可。
--  作者：douglas738888
--  发布时间：2015/10/29 16:50:00
--  
老师，将两个表拷贝到一起的意思是，把两个报表合成一个报表吗？还是如何操作。
--  作者：大红袍
--  发布时间：2015/10/29 16:52: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