取多个文件夹里的excel的值

⑴ excel 怎么引用不同文件夹里面excel里面的数值

1.sheet1和sheet2如下图所示。

⑵ 多个 Excel文件怎么提取某些特定的数据，然后把把这些数据合并。急求，

把多个Excel文件中的数据分别复制粘贴到一个Excel文件里不同工作薄中，工作薄名称改为Excel文件名，插入一个新的工作薄，在单元格中写合并公式即可。例：BOOK1.xlsx文件sheet1工作薄A1单元值是5，BOOK2.xlsx文件sheet工作薄A5单元值是,10，建立一个新的Excel文件sum.xlsx,工作薄sheet1改为BOOK1，sheet,2改为BOOK2，将BOOK1.xlsx文件sheet1中数据复制到sum.xlsx工作薄BOOK1中，BOOK2.xlsx文件sheet1中数据复制到sum.xlsx工作薄BOOK2中，在sum.xlsx中工作薄sheet3某单元格写入公式：=SUM(BOOK1!A1,BOOK2!A5)，即可把数据合并。

⑶ 如何在多个excel文件中提取数据

这个可以用宏程序实现，以下是当年做项目请教excelhome大神的结果：
首先将要读取的excel表格放到一个文件夹中，然后将我附件的excel表格放到此文件中打开
用VBA去遍历这个文件夹中的所有表格，得到文件名和地址放到excel中，

Sub 汇总_Click()Dim xlsFile As StringDim iRow As Long, i As LongOn Error GoTo errHeadleriRow = Range("A" & Rows.Count).End(xlUp).RowxlsFile = Dir(ActiveWorkbook.Path & "/*.xls")Do If InStr(1, xlsFile, "汇总") = 0 Then i = i + 1 Range("A" & iRow + i) = xlsFile Range("B" & iRow + i) = ActiveWorkbook.Path & "\" End If xlsFile = DirLoop Until Len(xlsFile) = 0extSub: Exit Sub errHeadler: MsgBox "抱歉，程序运行时发生意外！请联系作者。", , "提示" Resume extSub End Sub这个时候VBA的使命完成
剩下的就是excel的公式技巧了，“地址&文件名&表名&单元地址”就是你要的结果了，不过我用了 ' 之后做了一步替换操作才显示出值，原因是excel如果不打开的情况下是无法直接更新值的。
完整的东东看附件吧

⑷ 请问excel大神，如何批量获取指定路径下其他excel文件中数据

如果只有两三个文件，可以使用公式实现：打开三个文件，在【总.xls】里面的需要的单元格输入等号=，然后点击别的工作簿、工作表、单元格，最后回车即可。

如果文件数量很多，或者需要获取数据的范围很多，或者需要获取不确定的数据，那么就必须使用VBA编程，例如下面的代码：

Option Explicit

Sub 宏1()

Dim st As Worksheet

Dim fn, n

Set st = ActiveSheet

For Each fn In Array("a.xls", "b.xls")

n = st.UsedRange.Rows.Count + 1

With Workbooks.Open(fn)

.Sheets(1).UsedRange.Copy st.Cells(n, 1)

.Close False

End With

Next fn

End Sub