关于表合并的问题请教

yuxuan347 · 发表于 2010-5-6 14:17

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

抹香鲸2009 · 发表于 2010-5-6 15:54

不明白楼主的意思。

yuxuan347 · 发表于 2010-5-7 11:34

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

抹香鲸2009 · 发表于 2010-5-7 11:58

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

alzeng · 发表于 2010-5-7 13:59

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

复制代码

		自动登录	找回密码
密码			免费注册