Klasör İçindeki Excel Dosyalarından Veri Almak

[domino]

Bilgisayarımın D sürücüsünde 2017 adlı klasörün içinde ocak, şubat, mart,diye klasörler var
bu klasörlerin içinde xls formatında birbirleriyle aynı olan excel kitapları var. 01.01.2017.xls, 02.01.2017.xls gibi. bu kitapların h43 hücresinde toplamlar bulunuyor.
Sorum ise;
Bu toplamları başka bir çalışma kitabında alt alta alıp aylık toplam çıkartmak.
Sizlerden ricam mümkünse nasıl bir yol izlemeliyim.

 

[Orion1]

Bilgisayarımın D sürücüsünde 2017 adlı klasörün içinde ocak, şubat, mart,diye klasörler var
bu klasörlerin içinde xls formatında birbirleriyle aynı olan excel kitapları var. 01.01.2017.xls, 02.01.2017.xls gibi. bu kitapların h43 hücresinde toplamlar bulunuyor.
Sorum ise;
Bu toplamları başka bir çalışma kitabında alt alta alıp aylık toplam çıkartmak.
Sizlerden ricam mümkünse nasıl bir yol izlemeliyim.

excel4 makrosu ile çözülebilir.
Sayfa adları ayni olmalı.
Sayfa adını söylerseniz,kodunu yazarım.

 

[domino]

Günün tarihleri

sayfa adları hepsinde aynı: kasa

 

[domino]

sayfanın adları aynı: KASA

 

[Orion1]

Dosyanız ektedir.

Sub toplamal59()
Dim toplam As Double, toplamlar As Double, sat As Long
Dim dosya As String
Range("A2:B" & Rows.Count).ClearContents
sat = 2
dosya = Dir("D:\2017\*.xls")
Do While dosya <> ""
    toplam = Application.ExecuteExcel4Macro("'D:\2017\[" & dosya & "]KASA'!R43C8")
    toplamlar = toplamlar + toplam
    Cells(sat, "B").Value = toplam
    sat = sat + 1
    dosya = Dir
Loop
Cells(sat, "A").Value = "Toplamlar : "
Cells(sat, "B").Value = toplamlar
MsgBox "Toplamlar alındı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[domino]

Çok Teşekkürler Hakkınızı helal edin

 

[Orion1]

Çok Teşekkürler Hakkınızı helal edin

Rica ederim.
İyi çalışmalar.