主题：excel的合并问题

我有个EXCEL工作簿,工作簿中有200多个结构相同的工作表，我想将这200多张表合并到一个工作表中，请问如何实现？5月10日我曾请教过的，老师的答复和我的提问不知怎么找不到的？请老师重新指教一下，谢谢！

用Excel VBA即可。上传实例看看。

参考代码，如 （ws1、ws2拷贝到ws3中去）

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