如何在excel使用宏提取文件夹内文本的内容?

工具/材料：Microsoft Office Excel2016版，多个Excel文件。

1、首先在桌面上打开Excel文件。

2、在Microsoft Office Excel2016版窗口上，选中顶部工具栏里“方方格子”的“工作表”图标的“汇总拆分”图标。

3、在Microsoft Office Excel2016版窗口上，选择“汇总大师”。

4、在Microsoft Office Excel2016版窗口上，点击左侧选项栏里“多簿汇总到一表”。

5、在Microsoft Office Excel2016版窗口上，点击“开始”。

6、在Microsoft Office Excel2016版窗口上，点击“添加文件”。

7、在Microsoft Office Excel2016版窗口上，选中要提取指定单元格数据的多个Excel文件。

8、在Microsoft Office Excel2016版窗口上，点击“打开”。

9、在Microsoft Office Excel2016版窗口上，选择“区域”和“提前数值”提取指定的单元格数据。

10、在Microsoft Office Excel2016版窗口上，点击“开始”。

11、在Microsoft Office Excel2016版窗口上，显示提取成功，点击“确定e799bee5baa6e997aee7ad94e78988e69d83335”。

12、最后在该界面中，显示成功从多个Excel文件中提取指定单元格数据。

写了一小部分，可以获取文件夹下所有文件名称，路径，大e79fa5e98193e58685e5aeb9330小，创建日期，不知道能否对你有帮助。
1.添加VBA代码，选择新插入的模块后，插入以下代码
Sub getpath()
Range("A2:C1000").ClearContents '清空A2：C1000列
On Error Resume Next
Dim shell As Variant
Set shell = CreateObject("Shell.Application")
Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址
Set shell = Nothing
If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序
Exit Sub
Else
gg = filePath.Items.Item.Path
End If
Set obj = CreateObject("Scripting.FileSystemObject") '定义变量
Set fld = obj.getfolder(gg) '获取路径
For Each ff In fld.Files '遍历文件夹里文件
m = m + 1
Cells(m + 1, 1) = ff.Name
Cells(m + 1, 2) = ff.Path
Cells(m + 1, 3) = ff.Size
Cells(m + 1, 4) = ff.DateCreated

Next
End Sub
2.运行宏（alt+F8），宏的名称为getpath
当然，百用VBA也是可以的，只是不会用的话也不用像楼上度那么复杂。不过你要确定你这些1.xls、2.xls、3.xls、4.xls在硬盘的路径是否在同一文问件夹。
如果不在同一文件夹，那还答不如直接复制粘贴，因为用公式的话要输入路专径。
假设都在D:\下。那么在5.xls中，A8='D:\[1.xls]Sheet1'!$A$8+'D:\[2.xls]Sheet1'!$A$8'D:\[3.xls]Sheet1'!$A$8'D:\[4.xls]Sheet1'!$A$8
这就把1.xls、属2.xls、3.xls、4.xls文件中A8的数据到加起来放在5.xls中了

VBA，轻松搞定。
你要说清楚是哪个表（表名）。