Πολλά αρχεία excel σε ένα!

[alexkostas9136]

Παιδιά έχω 1800 αρχεία excel και θέλω από το καθένα να πάρω τρία συγκεκριμένα κελιά από το καθένα και να τα βάλω όλα σε ένα! Υπάρχει εύκολος τρόπος??

[alexkostas9136]

Καποιος;;;;

 

Sent from my iPhone using Insomnia

[geovala]

Δημιούργησε μια μακροεντολή και κάνε επικόλληση αυτό

 

 

Private Function GetValue(path, file, sheet, ref)

    Dim arg As String

    If Right(path, 1) <> "\" Then path = path & "\"

    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _

      Range(ref).Range("A1").Address(, , xlR1C1)

    GetValue = ExecuteExcel4Macro(arg)

End Function

 

Sub LoopThruBooks()

    Dim p, f, s, a, r

    p = "D:\Excel\"

    f = Dir(p & "*.xls")

    Do While f <> ""

        s = "Φύλλο1"

        a = "A1"

        r = r + 1

        Range("A" & r) = GetValue(p, f, s, a)

        f = Dir()

    Loop

End Sub

 

Όπου D:\Excel\ είναι ο φάκελος με τα αρχεία σου Φύλλο1 και Α1 το κελί σου που τα αλλάζεις ανάλογα με τις ανάγκες σου.