取多個文件夾里的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