Ich bin ein Anfänger in Visual Basic. Ich kann für diese Aufgabe entweder Excel 2010 oder Excel 2013 verwenden.

Ich habe Dutzende von Arbeitsmappen mit Daten auf dem ersten Arbeitsblatt. Beispielsweise enthalten One.xlsx, Two.xlsx, Three.xlsx, Four.xlsx jeweils Informationen zu ihrem jeweiligen Sheet1.

Ich benötige die Informationen zu Sheet1 aus jeder Arbeitsmappe, um sie zu einer einzelnen Arbeitsmappe mit Blättern zu kombinieren, die nach dem Dateinamen der ursprünglichen Arbeitsmappe benannt sind. So hätte zum Beispiel combined.xlsx 4 Blätter mit den Namen Eins, Zwei, Drei, Vier. In jedem Fall sollten alle Informationen auf den zugrunde liegenden Arbeitsblättern kopiert und in der neuen Arbeitsmappe kombiniert werden (siehe unten).

Das Format, das ich brauche

Ich habe dieses Makro / Add-In online gefunden, mit dem ich mit der Option zum Hinzufügen offener Dateien in der Nähe dessen bin, was ich brauche.

http: //www.excelbee.com/merge-excel-sheets-2010-2007-2013#clos

Mit dem Open Files-Add-In kann ich die Arbeitsblätter der verschiedenen Arbeitsmappen erfolgreich in einer einzigen Arbeitsmappe zusammenfassen. Die Registerkarten sind jedoch nicht nach dem Namen der Originaldatei benannt.

Korrekte Aggregation von Arbeitsblättern, aber falsche Arbeitsblattnamen.

Zum jetzigen Zeitpunkt befinden sich alle zugrunde liegenden Arbeitsmappen im selben Ordner. Die Möglichkeit, die Dateien zu durchsuchen und auszuwählen, ist hilfreich, wenn sich dies ändert. Wenn dies jedoch zu schwierig ist, funktioniert es, wenn nur der Verzeichnispfad im Visual Basic-Code angegeben wird. Soweit die resultierende kombinierte Ausgabe wahrscheinlich eine neue Arbeitsmappe sein sollte, ist der Dateiname der neuen Arbeitsmappe nicht so wichtig. Es könnte zum Beispiel kombiniert.xlsx heißen.