如何提取同一文件夹下所有excel表文件名称及各表C1单元格内容到一个excel表中

求学excel大师

求教各位大师，如何提取本文件夹下所有excel文件名及各excel文件中C1单元格的内容到一个excel表格，并将C1单元格的内容与文件名一一对应！急求！感激不尽！

求学excel大师

求坛中各位大师指点

求学excel大师

朱荣兴 发表于 2017-9-5 13:11
前几天才回过这种贴，自己搜搜看。

搜到过一些，但是情况略有不同，我是每个表格里面只取C1或者C2单元格的内容，而且文件夹下面最多的有万把个excel文件，求大师指点
vba属于小白级别，望大师说的详细些

求学excel大师

朱荣兴 发表于 2017-9-5 13:11
前几天才回过这种贴，自己搜搜看。

Sub HuiZong()
Dim myfile, mypath, wb               '声明变量
Application.ScreenUpdating = False   '关闭屏幕更新
Worksheets("sheet3").UsedRange.Offset(1, 0).Clear '清除除表头之外的所有内容
    mypath = ThisWorkbook.Path           '找到当前工作簿的路径
    myfile = Dir(mypath & "\*.xls*")     '遍历当前文件夹下的Excel文件
Do While myfile <> ""                '当找到的文件不为空时
    If myfile <> ThisWorkbook.Name Then   '当找到的文件不是当前Excel工作簿时
    Set wb = GetObject(mypath & "\" & myfile)   '得到dir找到的工作簿的内容，设为wb
        With wb.Worksheets("sheet1")              '对找到的工作簿的sheet1进行操作
            .UsedRange.Offset(1, 0).Copy Worksheets("sheet1").Range("A" & Worksheets("sheet1").[b65536].End(xlUp).Row + 1)
        End With
    wb.Close False      '关闭wb工作簿且不保存
    End If
    myfile = Dir          '寻找下一个Excel工作簿
Loop
Application.ScreenUpdating = True   '恢复屏幕更新
End Sub

这个代码是提取文件名称和每个文件里的全部内容，我需要的是只提取C2单元格，怎么修改，谢谢！

求学excel大师

朱荣兴 发表于 2017-9-5 15:27
新建一个工作簿文件，并把新建工作簿文件保存到跟需要汇总的文件的同一个文件夹内，在新建工作簿文件中运行 ...

成功！万分感谢！