diğer excel kitaplarından veri alma

[faiktek]

ekteki word dosyasındaki soru için yardımlarınızı bekliyorum.

teşekkürler

 

[hamitcan]

Aşağıdaki kodda, öncelikle, dosyaların bulunduğu yolu tanımlayın.
Yalnız ben bu örneği ".xls" uzantılı dosyalar için düşündüm. Sizin dosyalarınız ".csv" formatında, belki dosyayı excel formatına dönüştürmek gerekebilir. Eğer bu kod çalışmazsa ".csv" formatında bir dosya ekleyin. Sonuca ulaşmak daha kolay olabilir.

Sub ackopyala()
Application.ScreenUpdating = False
c = 1
    yol = "C:\deneme\"
    For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(yol).Files
    Workbooks.Open dosya
    Set sh = Workbooks("anasayfa")
        For Each g In ActiveSheet.[c1:c50]
            If Left(g, 1) = "G" Then
               c = c + 1
               sh.Sheets("Sayfa1").Cells(c, 3) = g
            End If
        Next
        ActiveWorkbook.Close False
    Next
Application.ScreenUpdating = True
End Sub