[已解决]汇集不同工作簿中指定工作表内容

心灵有约

工作表汇集.rar (19.76 KB, 下载次数: 25)

2011-3-22 22:59 上传

点击文件名下载附件 请帮助，谢谢。

最佳答案

月排行榜 / 总排行榜

mn860429

2011-3-23 00:31

回复 心灵有约 的帖子

1. Sub UseGetObject()
   
2.     Dim Wb As Workbook
   
3.     Dim f As String
   
4.     Columns("a:d").ClearContents
   
5.     f = Dir(ThisWorkbook.Path & "\*.xlsx")
   
6.     Do While f <> ""
   
7.         f = ThisWorkbook.Path & "" & f
   
8.         Set Wb = GetObject(f)
   
9.         With Wb.Sheets(1).Range("A1").CurrentRegion.Offset(1)
   
10.             [a65536].End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count) = .Value
    
11.         End With
    
12.     f = Dir
    
13.     Loop
    
14.     Wb.Close False
    
15.     Set Wb = Nothing
    
16. End Sub
    

复制代码

工作表汇集.rar (32.7 KB, 下载次数: 76)

2011-3-23 00:31 上传

点击文件名下载附件

跳转到最佳答案楼层

兰色幻想

你用getobject函数取得表的控制权，然后取数就可以了
set wb=getobject（“文件名和路径”）
wb.sheets......

兰色幻想

或者用workbooks.open先打开，然后复制数据到汇总表中

mn860429

回复 兰色幻想 的帖子

本来想用ado的可是每个工作簿的第一个工作表的名称不知道怎么得到，只好用open了，getobject还不会用[em04]

mn860429

回复 心灵有约 的帖子

1. Sub UseGetObject()
   
2.     Dim Wb As Workbook
   
3.     Dim f As String
   
4.     Columns("a:d").ClearContents
   
5.     f = Dir(ThisWorkbook.Path & "\*.xlsx")
   
6.     Do While f <> ""
   
7.         f = ThisWorkbook.Path & "" & f
   
8.         Set Wb = GetObject(f)
   
9.         With Wb.Sheets(1).Range("A1").CurrentRegion.Offset(1)
   
10.             [a65536].End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count) = .Value
    
11.         End With
    
12.     f = Dir
    
13.     Loop
    
14.     Wb.Close False
    
15.     Set Wb = Nothing
    
16. End Sub
    

复制代码

工作表汇集.rar (32.7 KB, 下载次数: 76)

2011-3-23 00:31 上传

点击文件名下载附件

glhfgtd

谢谢分享, 学习了

wuxingai