关于表合并的问题请教

yuxuan347

各位大虾：
      小弟有个问题，就是不知道如何自动合并exce工作簿内的表格，帮帮忙好么?
           在此，小弟感激不尽！

抹香鲸2009

不明白楼主的意思。

yuxuan347

在附件中有说明
其实也就是多表合并的问题

抹香鲸2009

如果是多表合并，楼主的数据源没有代表性。如果纯粹想得到sheet2的效果，直接对sheet1透视就可以了。无论在sheet1中添加多少数据，在透视表中刷新就可以了。

alzeng

1. 
   
2. Sub ReRreshData()
   
3.     Dim Cn As Object, Sqlstr$
   
4. 
   
5.     Set Cn = CreateObject("Adodb.Connection")
   
6.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Hdr=No';Data Source=" & ThisWorkbook.FullName
   
7.     Sqlstr = "Select * From [Sheet2$] Union All(Select * From [Sheet3$])"
   
8.     [A:A].ClearContents
   
9.     [A1].CopyFromRecordset Cn.Execute(Sqlstr)
   
10.     Cn.Close: Set Cn = Nothing
    
11. End Sub
    

复制代码