將多個excel檔案的某些欄位加總

＜範例檔＞VBA，試看看：
http://www.funp.net/26825

以資料樣本，處理６０個檔案應不會太多時間，
若有必要，請延長發問天數！

2012-09-24 12:12:59 補充：
＜範例檔＞第２版：
http://www.funp.net/248230

若有問題補充，請利用此〔意見區〕。

2012-09-24 21:11:33 補充：
改２個地方，請自行找一下去改：
１．Set uBook = Workbooks.Open(uPath & uFile)
　　改成
　　Set uBook = Workbooks.Open(uPath & uFile, UpdateLinks:=0)

２．Set xBook = Workbooks.Open(uPath & xR)
　　改成
　　Set xBook = Workbooks.Open(uPath & xR, UpdateLinks:=0)

UpdateLinks ＝ 0 不更新連結，1 為更新連結，視您的需要！

2012-09-25 09:52:04 補充：
EXCEL VBA．將〔數十個檔案〕第１張工作表的〔同一儲存格〕加總
　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■執行介面：　　目標路徑：D:\File01總計檔名稱：summary.xls 檔案名稱處理訊息01.xls已加入總計02.xls已加入總計03.xls已加入總計04.xls　05.xls　06.xls　
■處理規則：
　１．加總〔來源檔〕：列表中每一檔案的第１張工作表。
　２．加總〔目標檔〕：summary.xls 工作表中〔黃底色〕的儲存格。　
　　
■程式碼：僅列出執行〔加總〕主程式，其餘請參閱範例檔
　For Each xR In MySht.Range("A5:A" & x)
　　　Xm = Xm + 1
　　　Application.StatusBar = "＞＞正在處理第 " & Xm & " 個檔案"
　　　If xR = "" Then GoTo 101
　　　If Dir(uPath & xR) = "" Then GoTo 101
　　　Application.ScreenUpdating = False
　　　Set xBook = Workbooks.Open(uPath & xR, UpdateLinks:=0)
　　　ShtName = xBook.Sheets(1).Name
　　　xBook.Close SaveChanges:=False
　　　uBook.Activate
　　　'↑開啟目標檔，取得第１張工作表名稱
　　　For Each uRng In uArea
　　　　　uRng = "=SUM('" & uPath & "[" & xR & "]" & ShtName & "'!" & _
　　　　　　　　　uRng.Address & "," & Val(uRng) & ")"
　　　　　uRng.Value = uRng.Value
　　　Next
　　　xR(1, 2) = "已加入總計": Beep
　　　Application.ScreenUpdating = True
　101: Next
　Application.StatusBar = False
　MsgBox "～～處理完成，確認無誤後再存檔～～"
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞：
http://www.funp.net/248230
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

看來函數無解,
會加到昏倒
那巨集可以做到嗎?
這是不同EXCEL檔案間的加總

2012-09-19 16:28:49 補充：
to cjw
的確就像您的公式那樣
只是我大概有60幾個file要加, 不曉得要怎麼加比較快

2012-09-24 18:41:23 補充：
謝謝，幾乎可以使用了!!!^^
但有一個小問題是，開啟檔案時他會跳視窗出來說
此檔案包含與其他檔案的連結，問我要不要更新，
我選更新，但
請問我要怎麼改才能讓他不要加總一個檔案就問一次呢?

2012-09-25 09:31:56 補充：
謝謝ok了 請您回答至回答問題 我好選你為最佳解答呀 謝謝你喔

插個花,不知版大的意思,亂猜一通,不知是否合意?
檔案下載地址 http://www.FunP.Net/465149

若函數無解,版主是否接受巨集