如何导入各年级对应文件夹中工作簿数据到各年纪对应工作表中？

作者：绿色风分类：时间：2022-08-17 浏览：107

楼主
liuguansky

Q：如何导入各年级对应文件夹中工作簿数据到各年纪对应工作表中？在本工作簿中有三个工作表，分别是七年级、八年级和九年级，根据不同年级自动到7、8、9文件夹中a.xls中的A2:C20到该年级的A2:C20单元格中，年级和文件夹要对应，七年级对应文件夹7，八年级对应文件夹8，九年级对应文件夹9。如，将7文件夹中的a.xls的A2:C20数据导入到本工作簿七年级工作表的A2:C20，依次类推。
A：使用下面的代码：

Sub justtest()
Dim arr, str1$, i%
Application.ScreenUpdating = False
For i = 1 To 3
str1 = ThisWorkbook.Path & "\" & i + 6 & "\a.xls"
Workbooks.Open str1
With ActiveWorkbook
arr = .Sheets(1).Range("a2:c20")
.Close
End With
Sheets(i).Range("a2:c20") = arr
Next i
Application.ScreenUpdating = True
End Sub

汇总.rar

2楼
eliane_lei

进来学习！谢谢分享！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表