13问答网 > 大神《同一文件夹使用VBA遍历所有excel表格并引用数据》能否提供下实现的方法和步骤教育用感谢

大神《同一文件夹使用VBA遍历所有excel表格并引用数据》能否提供下实现的方法和步骤教育用感谢

2025-03-10 22:00:35

推荐回答（2个）

回答1：

用dir 和do loop 遍历同一文件夹下的excel文件，在for next 循环中open 打开excel文件，for each next 循环工作簿中的工作表， usedrange.select 选择使用区域，selection.copy 复制，activesheet.paste粘贴。

回答2：

最简单的一种，用dir()遍历，下面是简单实例，意思是：打开d:\目录下的所有excel文件！！当然你要引用数据，可以根据实际添加复制，粘贴等等功能，希望能帮到你！
Sub 打开文件()
a = Dir("D:\*.xlsx")
Workbooks.Open "D:\" & a
Do
a = Dir
If a <> "" Then
Workbooks.Open "D:\" & a
Else
Exit Sub
End If
Loop
End Sub

大神《同一文件夹使用VBA遍历所有excel表格并引用数据》 能否提供下实现的方法和步骤 教育用 感谢

大神《同一文件夹使用VBA遍历所有excel表格并引用数据》能否提供下实现的方法和步骤教育用感谢