如何將多個檔案，相同格式的數值，透過VBA加總成一個檔案

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-26 17:13 | 只看該作者

各位老師好，因工作需要一次將30幾個不同檔案但是檔案格式相同的數值彙整為一份檔案，希望能透過VBA的方式完成，請各位老師不吝指導，謝謝。PS.僅需加總附檔中黃色區塊的數值即可。

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-9-27 15:52 | 只看該作者

回復 1# lai.k.h

Sub Ex()
Dim MyRng(1 To 2) As Range, Rng(1 To 2) As Range, i As Integer, R As Integer, C As Integer
Dim OpFile As String
With ThisWorkbook.Sheets("Sheet1")
Set MyRng(1) = .[B9:AR9] '輸入區
Set MyRng(2) = .[B13:AR15] '輸入區
End With
OpFile = Dir(ThisWorkbook.Path & "\*.xls") '尋找檔案 '檔案在同一目錄下
'OpFile = Dir("d:\test" & "\*.xls") '檔案不在同一目錄下
Do While OpFile <> "" '找到檔案
If OpFile <> "" And OpFile <> ThisWorkbook.Name Then
'With Workbooks.Open("d:\test\" & OpFile).Sheets("Sheet1") '檔案不在同一目錄下
With Workbooks.Open(ThisWorkbook.Path & "\" & OpFile).Sheets("Sheet1") '開啟檔案
Set Rng(1) = .[B9:AR9] '資料區
Set Rng(2) = .[B13:AR15] '資料區
For i = 1 To UBound(MyRng) '依序在輸入區
For C = 1 To MyRng(i).Columns.Count '輸入區的欄位
For R = 1 To MyRng(i).Rows.Count '輸入區的列位
MyRng(i).Cells(R, C) = MyRng(i).Cells(R, C) + Rng(i).Cells(R, C) '讀取紀錄
Next
Next
Next
.Parent.Close False '關閉檔案
'.Parent ->(???).Sheets("Sheet1")的父層->Workbooks(ThisWorkbook.Path & "\" & OpFile)
End With
End If
OpFile = Dir '往下一檔案
Loop
End Sub

複製代碼

論壇贊助勳章

3^#

發表於 2011-9-27 17:16 | 只看該作者

回復 2# GBKEE

Dear GBKEE,
非常感謝您的回覆，消化中，謝謝。

靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。