求一个excel的VBA，把多个excel中同一个单元格的数据都复制到一个汇总的excel中 5
当前目录下有1.xls，2.xls，3.xls。。。。这些excel文件都是用数字命名的，但是数量不确定，可能有10个，可能有20个。想要一个VBA，能自动把这些exce...
当前目录下有1.xls，2.xls，3.xls。。。。这些excel文件都是用数字命名的，但是数量不确定，可能有10个，可能有20个。想要一个VBA，能自动把这些excel中A1单元格中的数据都汇总到一个“汇总.xls”的文件中，如1.xls中的A1单元格数据复制到“汇总.xls”的A1中，2.xls中的A1单元格数据复制到“汇总.xls”的B1中，3.xls中的A1单元格数据复制到“汇总.xls”的C1中。
文件的数量是不确定，有可能10个，有可能15个，要求是有几个复制几个，不能漏的 展开
文件的数量是不确定，有可能10个，有可能15个，要求是有几个复制几个，不能漏的 展开
1个回答
展开全部
给你写了下面的代码，测试没有问题，如果你使用中遇到问题请拷屏（错误提示和代码）：
Option Explicit
Sub ygb()
Dim i, p, f, st As Worksheet
Set st = ActiveSheet
p = "e:\temp\文件\" '文件夹
i = 1
f = Dir(p & "*.xls")
Do While f <> ""
Workbooks.Open p & f, , True
st.Cells(i, 1) = ActiveSheet.Cells(i, 1)
st.Cells(i, 2) = f 'B列里面显示文件名
i = i + 1
ActiveWorkbook.Close False
f = Dir
Loop
End Sub
有两个注释行，第一个是XLS文件的文件夹，第二个是同是记录文件名，请你根据需要调整。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
