Office: Mehrere gleichartige Dateien in einer neuen Datei zusammenfassen und auswerten

Hallo liebe Freunde der Office Produktpalette,

ich stehe vor einem großen Problem und hoffe ihr könnt mir ein wenig weiterhelfen!
Folgendes:
Es geht darum, einen bestehenden Fragebogen ( 6 verschiedene Sheets ), welcher an ca. 100 Krankenhäuser versendet werden soll, nach dem Ausfüllen durch die Mitarbeiter vor Ort, auszuwerten. Die Fragebögen haben alle die selbe Form und kommen ausgefüllt als excel-dateien wieder zurück, die namen können natürlich angepasst werden: KH1,KH2, usw. Ich würde dann gerne die Daten dieser 100 Dateien in einer neuen Datei sammeln und statistisch auswerten können.
Die Daten werden Werte und Text beinhalten und liegen kreuz und quer vor, d.h. in A1 steht meinetwegen das Baujahr und in H27 ein Anlagentyp, aber immer nach dem gleichen Muster.

In der neuen Datei sollte nun beispielsweise das Baujahr aus jeder der 100 Dateien in einer Spalte untereinander aufgelistet werden.
Baujahr | Anlagentyp | ...
1980 | Brennwertkessel
1978 | Brennwertkessel
...
Ich habe schon probiert mit ergooglten VBA codes auf nen grünen Zweig zu kommen und die Vorgehensweise zu verstehen, in den Grundzügen versteh ich es schon aber mir fehlt das Wissen über VBA programmierung um es auf meinen Fall anwenden zu können.
Außerdem hab ich gelesen, dass man das ganze evtl. auch mit XML Tags bestücken könnten und dann die zurückgesendeten Dateien über jene auszulesen kann.

Welcher dieser beiden Wege funktioniert überhaupt, welcher funktioniert besser in meinem Fall und wo fang ich am besten an?
Office 2010 und 2007 sind verfügbar.
Ich hoffe das genügt an Informationen, wenn nicht, dann schreit! :)
Danke schonmal im Vorraus
lg Mati

 

Als groben Ansatz im Pseudo-Code würde ich an etwas in der Richtung denken:

Code:

worksheets.add(auswertung)
y2 = 1
' spalten-überschriften in zeile y2 erzeugen
' [...]
verzeichnis = "verzeichnis der fragebögen"
for n = 1 to anzahl_fragebögen
    y2 = y2 + 1
    workbooks.open(fragebogen)
    for i = 1 to anzahl_felder
        select case i
            case 1:
                y1 = zeile
                x1 = spalte
            case 2:
                [...]
        end select
        x2 = i
        worksheets(auswertung).cells(y2,x2).value = worksheets(fragebogen).cells(y1,x1).value
    next i
    workbooks(fragebogen).close
next n

Damit könntest Du Dir eine zeilenweise Auflistung der einzelnen Felder in den Fragebögen zusammenstellen. Die SELECT CASE Struktur setzt dabei die x/y-Koordinaten im Fragebogen, aus denen die einzelnen Werte ausgelesen werden sollen.

Anregung? Dann kommst Du in der Richtung vielleicht weiter. Wenn Fragen, dann los... ;-)

Gruß, Michael