Question

同一文件夹使用VBA遍历所有excel表格并引用数据

求大神指导：在指导文件夹内，遍历所有excel的第一个工资薄，取对应excel指定位置的数据给目标excel指定工作薄指定位置，求代码，感谢！
遍历的所有excel内容格式一样，只是数据不同

Answer 1

亲，由于很多信息都很含糊，所以没法写完整的代码，只能给个雏形，您自己修改了。

Sub 遍历()
    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.getfolder("这里改成你的 指导文件夹 路径")
    For Each f In ff.Files
        If f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
            Set wb = Workbooks.Open(f)
            Workbooks(f).Sheets(1).Activate
            MsgBox "把本句换成：取对应excel指定位置的数据给目标excel指定工作薄指定位置"
            wb.Close False
        End If
    Next f
End Sub

追问

谢谢，具体说下需求是：在一个文件夹下（比如D：/123/）有多个内容及格式相同、具体单元格的数据不同的Excel文件，同时每个Excel文件均只有sheet1这一个有数据的工作薄，现在我的需求是把这个文件夹下所有文件进行一次遍历，对每个文件相同的、固定的位置进行取数（要取几个数），然后放到指定路径下的汇总Excel文件的同一个工作薄里面，不同的被取数工作薄取的数放到汇总Excel的不同行里面。

追答

亲，这个“具体”的描述太模糊啦。
每个文件“相同的、固定的位置”是什么位置，A4？B13？C9:F100？……
“放到汇总Excel的不同行里面”，放入哪个Sheet？从哪儿开始放？A1？……