几个工作表的合并功能

annie200888

请问有没有一种方法将多个工作表合并为一个工作表呢？请各位高手指教

yangrongguan

把附件发过来看看....................

annie200888

请高手指教，感谢不尽

yangrongguan

请问怎么合并 有什么要求 达到什么效果 先做个样子出来也可以

annie200888

假如每个工作表的字段一样，怎样将几个表合成一个表，谢谢！

yancjm

點擊合併工作表按鈕

annie200888

打不开，不知怎么回事

gvntw

汇总表名为“汇总”，标题行请自己复制，汇总记录交给代码来解决：

1. Private Sub CommandButton1_Click()
   
2.     Set cn = CreateObject("ADODB.Connection")
   
3.     cn.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName
   
4.     For Each sh In ThisWorkbook.Worksheets
   
5.         If sh.Name <> "汇总" Then
   
6.             Sql = Sql & " union all select * from [" & sh.Name & "$]"
   
7.         End If
   
8.     Next
   
9.     Sql = Mid(Sql, 12)
   
10.     Range("A2").CopyFromRecordset cn.Execute(Sql)
    
11.     Set cn = Nothing
    
12. End Sub

复制代码