如何将一个文件夹内所有Excel的某一单元格（比如C5）的数值都提取出来，并保存为另一个ExceL

我想把一个文件夹下面的所有excel表格里面C5,L4，i4单元格中的内容提取出~

VBA 小程序：
新建一个 Excel 文件
Excel 内按 Alt+F11 视图 代码窗口，如下代码复制进去， F5 运行即可 （PS: WPS 没VBA，做不了） ,此例 收集 Sheet1， 如果你每个文件 的所有Sheet 都要收集，代码修改下就可以了
Sub 收集() Dim arr(1 To 10000, 1 To 3) Dim i As Integer Dim wk As Workbook, sh, sh1 As Worksheet Dim p, s As String Set sh1 = ThisWorkbook.ActiveSheet t = Timer Application.ScreenUpdating = False p = "D:\需收集文件夹\" '需收集的文件夹路径，需要实际修改 s = Dir(p & "*.xls*") '收集 excel文件 Do While s "" If s ThisWorkbook.Name Then Set wk = Workbooks.Open(p & s) Set sh = wk.Sheets("Sheet1") '收集 Excel文件的 Sheet1 i = i + 1 arr(i, 1) = sh.[c5] arr(i, 2) = sh.[l4] arr(i, 3) = sh.[i4] wk.Close False End If s = Dir Loop sh1.[a2].Resize(i, 3) = arr t1 = Timer - tMsgBox ("所有工作薄收集完成,用时" & t1 & "秒")Application.ScreenUpdating = TrueEnd Sub

（C3：C7，B5：B10，C5）一共引用了11个单元格，因为其中C5单元格与C3：C7重合。
查看单元格数据的方法：
1、首先在excel表格中选中C3：C7单元格区域，可以看到此时选中的单元格为5个，可以使用“7-3+1”的方法计算。

2、然后再选中B5：B10单元格区域，使用“10-5+1”的方法计算出选中的单元格为6个。

3、此时选中C5单元格，该单元格包含在C3：C7单元格区域中。

4、因此在单元格中输入引用公式就会同时选中上述三个单元格区域。

新建一个EXCEL,运行此代码，将需合并的文件选中即可
Sub CombineWorkbooksrange()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo err

FilesToOpen = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt *.xlsx *.xlsb）,*.xls;*.xla;*.xlt;*.xlsx;*.xlsb", MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
GoTo err
End If

x = 1
While x - 1 < UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
For i = 1 To wk.Sheets.Count
If wk.Sheets(i).Name = "1" Then
Set xlra = wk.Sheets("1").[C5]
Else
Set xlra = wk.Sheets(i).[C5]
End If '注意，引号内的1就是你要的相同工作表名,如果工作表名无要求，则继续，取单元格数值，现在是取C5
Sheet1.Range("a65500").End(xlUp).Offset(1, 0) = xlra
Next
x = x + 1
wk.Close
Wend
MsgBox "合并成功完成！"
err:
End Sub

愿意写代码就像其他大神那样用vba代码。
不想写代码就用powerquery，引入来自文件夹的源，然后基于单个Excel创建自定义函数，再将其应用到该文件夹下所有的文件上。

这个需要写代码编程才能实现

在所有的工作簿中都只有一个工作表吗？还是可能有多个，这多个的C5都 要取出来？

---

佛坪县17120962001： 怎么让excel里面所有的文件在一个表里面 - ？
莘刘诺德： 我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel.如图所示:用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去.进去之后就看到了宏计算界面.如图所示:然后我们...

佛坪县17120962001： 如何高效快速的将一个文件夹内多个EXCEL工作簿内的特定表格的数据拷贝合并到另1个新的EXCEL工作簿中? - ？
莘刘诺德： 在D盘根目录下新建“合并.xls”文件. 打开指定文件夹,将所有Excel文件全部打开. 在当前Excel中编辑: 1、打开视图-宏-建制宏,给宏命名,设定快捷键(如:e),保存在“个人宏工作簿”,确定. 2、选定A1单元格,按下Ctrl+Shift+End三键,选择当前工作表中的全部内容,复制. 3、打开D:\合并.xls,选定A1单元格,点右键-插入复制的单元格-活动单元格下移,确定,关闭,保存.再关闭先前文件,不保存. 4、此时,按下Alt+F8,调出宏命令,执行已录制的宏. 5、停止录制宏. 6、按下Alt+F8,调出宏命令,再次执行已录制的宏,直到将全部文件合并到D:\合并.xls中为止.最后,是否保存此宏,自便.

佛坪县17120962001： 将一个文件夹里所有excel导入一个excel里 - ？
莘刘诺德： 亲,将要汇总的文件放到一个单独专门的文件夹中.在此文件夹中新建或打开一个Excel文件作为汇总文件,找一个空白Sheet或者新建一个Sheet存放汇总数据.然后按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白...

佛坪县17120962001： 把文件夹中的所有EXCEL名称另存在另一个Excel文件中,只要EXCEL的名字跟格式,不要文件夹的名字,谢谢! - ？
莘刘诺德： 首先进入你放excel文件的文件夹E:\ExcelFile 在里面新建一个记事本文档,命名为filelist.txt,然后按住Windows键+R,输入CMD, 输入CD E:\ExcelFile,进入你的文件夹,然后运行 dir *.xls /w >filelist.txt 然后去打开filelist.txt,就可以得到所有的Excel文件的list,然后拷贝内容到Excel文件中,选择替换,将.xls替换成空即可.

佛坪县17120962001： 如何将多个excel文档合并到一个工作簿中 - ？
莘刘诺德： 方法/步骤将需要合并的excel工作簿文件放置在一个文件夹中. 每个文件夹中的工作簿都输入了简单的内容.在该文件夹中,新建立一个新的excel工作簿文件.重命名为8.打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作...

佛坪县17120962001： 如何使excel 引用某一个文件夹里的全部excel文件名 - ？
莘刘诺德： 为什么不使用超链接? 超链接可以链接很多文件 具体操作: 在你要求的这一列中的单元格右键弹出菜单--超链接,之后按照提示选择文件位置就可以 对于EXCEL你还可以使用书签,直接链接到某个单元格

佛坪县17120962001： 怎样把多个excel表格合并到一个文件中 - ？
莘刘诺德： 1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1 2、选择查看代码(PS:excel有着一项,WPS没有) 3、将下列代码复制到文本框中: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, ...

佛坪县17120962001： 你好,能告诉我如何把一个sheet批量复制到一个文件夹下所有excel表格里面吗? - ？
莘刘诺德： 把你要复制的表格先进行复制打开你要复制到的那个文件夹里的表格.然后你按住ctrl键点击你要复制到那个表格里的sheet1、sheet2、sheet3……等.进行粘贴.如果还要在里面编辑的话,你就选中其中的一个表格进行编辑,所有的表格都会进行自动变化的.不用一个一个表的来做了 .希望能帮到你.

佛坪县17120962001： 如何合并同一个文件夹下的多个表格 - ？
莘刘诺德： 你是需要将工作表移动到另一个EXCEL中吗?如果只是移动工作表可以用以下的步骤: 1、同时打开EXCEL A (源文件)和EXCEL B (目标文件) 2、选择EXCEL A,右键点击工作表sheet 1,选择“移动或者复制工作表”,在弹出的对话框界面上的工作簿栏选择EXCEL B,然后选择位置,再然后建立副本打勾,点击确定即可.

佛坪县17120962001： (急)如何把多个Excel的“文件名”快速整理到一个“文档”中?谢谢! - ？
莘刘诺德： 1,在windows 的“运行”中输入“cmd”打开命令行窗口 (类似于dos界面) 2,进入你想要列出目录下面 3,命令提示符下运行 tree /f >文件名(例如:daochu.txt) 4,刚才输出的文件daochu.txt就是你想要的东西 补充:tree /f /a >文件名(使用ASCII导出,可以实现树形)tree /?(察看帮助)