Daten aus anderem EXcel importieren

Hallo zusammen,
habe ich Archiv schon ähnliche Themen gefunden. Aber weder verstehe ich die Codes, noch sind sie auf meine Bedürfnisse angepasst.
Daher probiere ich es hier nochmal...vermutlich können Codeschnipsel aus älteren Beiträgen verwendet werden.
In ein Excel möchte ich aus x-beliebig vielen Exceldateien aus einem bestimmten Tabellenblatt einen bestimmten Ausschnitt importieren.
Der Ordner in dem sich die ca. 9 zu importierenden Exceldateien befinden hat immer den gleichen Namen: "Aktuelle Woche"
Die Exceldateien darin haben beliebige Namen, müssen jedoch alle immer genutzt werden. Geht das so? Oder müssen die Dateien darin immer eindeutige Namen haben?
Das gewünschte Tabellenblatt hat in allen 9 Dateien auch immer den gleichen Namen ..."Matrix"
Der zu importierende Bereich in diesem Tabellenblatt "Matrix" ist ebenfalls immer... Von spalte A bis T / Zeile 1 bis letzte, nicht leere, Zeile.
Praktischerweise sollte das Makro beim Öffnen der Datei durchführen.
Könnt ihr hier einen Ansatz bieten?
Vielen Dank euch!
Gruss Major

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Const PFAD$ = "C:\Aktuelle Woche\" Const WsQ$ = "Matrix" 'Quell-Blatt Dim WbZ As Workbook: Set WbZ = ThisWorkbook Dim WbQ As Workbook Dim WsZ As Worksheet: Set WsZ = WbZ.Worksheets("Tabelle1") 'Ziel-Blatt Dim Mappe Application.ScreenUpdating = False Mappe = Dir(PFAD & "*.xlsx", vbNormal) Do Until Mappe = vbNullString Set WbQ = Workbooks.Open(Mappe) With WbQ.Worksheets(WsQ) 'A1:Tx, x = letzte gefüllte Zelle in T .Range("A1:T" & .Cells(.Rows.Count, 20).End(xlUp).Row).Copy With WsZ 'Einfügen ab nächster freier Zelle in A des Zielblattes .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _ (xlPasteValuesAndNumberFormats) End With End With WbQ.Close False Mappe = Dir Loop Set WbZ = Nothing Set WbQ = Nothing Set WsZ = Nothing End Sub

Hallo,
also dieser Code funktioniert in dieser Art nicht...er spuckt aber auch keinerlei Fehlermeldung aus...

Sub a()
Const PFAD$ = "G:\Aktuelle Woche_Einzelne Excel hier einfügen"
Const WsQ$ = "Blatt_A" 'Quell-Blatt
Dim WbZ As Workbook: Set WbZ = ThisWorkbook
Dim WbQ As Workbook
Dim WsZ As Worksheet: Set WsZ = WbZ.Worksheets("Blatt_B") 'Ziel-Blatt
Dim Mappe
Application.ScreenUpdating = False
Mappe = Dir(PFAD & "*.xls*", vbNormal)
Do Until Mappe = vbNullString
Set WbQ = Workbooks.Open(Mappe)
With WbQ.Worksheets(WsQ)
'A1:Qx, x = letzte gefüllte Zelle in Q
.Range("A1:Q" & .Cells(.Rows.Count, 17).End(xlUp).Row).Copy
With WsZ
'Einfügen ab nächster freier Zelle in A des Zielblattes
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
(xlPasteValuesAndNumberFormats)
End With
End With
WbQ.Close False
Mappe = Dir
Loop
Set WbZ = Nothing
Set WbQ = Nothing
Set WsZ = Nothing
End Sub

Habt ihr Tipps, was ich falsch mache?
Danke!
Gruss Major

Beliebteste Forumthreads (12 Monate)

Daten aus anderem EXcel importieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderem EXcel importieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread