主题：多个没有关联的表纵向显示在一个表内显示，有方法破么

1.表A，B，C，列数不相同

2.显示在一张表格内，相当于多个列名

3.最后打印输出

a1 a2 a3

...

b1 b2 b3 b4

...

c1 c2

...

1、没有关联为什么要显示在一个表里面。

2、看一下查询表

http://www.foxtable.com/help/topics/2321.htm

3、用专业报表分别打印各个表

http://www.foxtable.com/help/topics/1166.htm

唉，需求说只是为了看着方便

这些表格我可以显示在一张表格内打印么

1、多张表，sql语句可以合并成一张表显示；

2、打印的话，你可以用excel报表或专业报表，你看哪种适合就用哪种。

大师，我不同的表打印到excel表格可以追加么，比如表A输入到11.xls的sheet1里，50行，表B也输出到11.xls的sheet1内，从51行开始，这块追加的代码要怎么写呢

先生成sheet1、sheet2、sheet3，然后拷贝过来

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

谢大师