Excel Dosyalarını Toplama

[eScape]

Arkadaşlar sizden yardım istiyorum. Elimde 100 tane excel dosyası var. Bunları ben vb ile tek sayfada toplamak istiyorum fakat bir türlü beceremedim. Bana bu konuda yardım ederseniz çok sevinirim.

Not: Konuyu yanlış yere açtıysam tüm yöneticilerden özür dilerim.

[nziya]

Tüm excel sayfalarındaki a1 hücresindeki verinin. sayfa1'in a1 hücresinde toplamını allır.

[code]Sub tumsayfalaritopla()
Sayfa1.[a1] = ""
Dim i As Integer
For i = 2 To Sheets.Count
Sayfa1.[a1] = Sheets(i).[a1] + Sayfa1.[a1]
Next
End Sub[/code]