Import hunderter Exceldateien

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Import hunderter Exceldateien

Import hunderter Exceldateien von D. Skinner vom 01.09.2014 10:02:25

AW: Import hunderter Exceldateien - von Matze Matthias am 01.09.2014 10:14:16
AW: Import hunderter Exceldateien - von Daniel am 01.09.2014 10:29:22
- AW: Import hunderter Exceldateien - von D. Skinner am 01.09.2014 17:34:50

Betrifft: Import hunderter Exceldateien von: D. Skinner
Geschrieben am: 01.09.2014 10:02:25

Hallo werte Excel-Gemeinde,
heute ein Problem, von dem ich noch nicht mal genau weiss, wie ich es besser beschreiben soll.

Ich habe hunderte Excel-Dateien und jede Datei hat dieselbe Datenstruktur (Spalte A Firmen, Spalte B bis Z betriebswirtschaftliche Kennzahlen).
Jede Datei beinhaltet mehrere Hundert Datensätze besteend aus einem Tabellenblatt
Jede Datei hat eine eindeutige Datenbanknummer als Dateiname. Die ersten 15 Zeichen des Dateinamens stellen die Beschriftung des Tabellenblatts dar.
Dateien liegen in einem Ordner.

Ziel ist es, alle in eine Exceltabelle zu bringen. Bisher erledige ich dies mit Copy&Paste, was immer sehr aufwändig ist.

Jemand einen Ansatz wie dies automatisiert zu lösen ist?

Merci Vorab
Daniel

Betrifft: AW: Import hunderter Exceldateien von: Matze Matthias
Geschrieben am: 01.09.2014 10:14:16

Hallo Skinner,
nix in der Recherche gefunden? Da sollte bestimmt was dabei sein.
Such mal "Dateien zusammen"
Ansonsten wird sich das einer der Profis ansehen.

Gruß Matze

Betrifft: AW: Import hunderter Exceldateien von: Daniel
Geschrieben am: 01.09.2014 10:29:22

Hi

probier mal das (Verzeichnis anpassen).

der Code öffnet die ersrte Datei und danach alle weiteren, die Inhalte der weiteren Dateien werden dann ohne Überschrift (der Offset beim Copy) unter die erte Datei kopiert.
Verwendet wird immer das erste Blatt der Datei.

Sub test()
Dim Pfad As String
Dim Datei As String
Dim wb1 As Workbook
Dim wbX As Workbook

Pfad = "C:\ordner1\ordner\"

Datei = Dir(Pfad & "*.xlsx")

If Datei = "" Then Exit Sub

Set wb1 = Workbooks.Open(Pfad & Datei, ReadOnly:=True)
Application.ScreenUpdating = False
With wb1.Sheets(1)
    Do
        Datei = Dir
    If Datei = "" Then Exit Do
        Set wb = Workbooks.Open(Pfad & Datei, ReadOnly:=True)
        wb.Sheets(1).UsedRange.Offset(1, 0).Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        wb.Close False
    Loop
End With
wb1.Activate
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Gruß Daniel

Betrifft: AW: Import hunderter Exceldateien von: D. Skinner
Geschrieben am: 01.09.2014 17:34:50

Hallo Daniel,
könnte funktionieren, bricht mir zwar zwischendurch die Operation ab und zu ab, aber ich teste es mit den finalen Daten und ggf. poste ich das Thema neu.
Merci für eure Unterstützung
VG, Daniel