Variabler Dateipfad Datei öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Daten_aktualisieren() Dim rng As Range, wkb As Workbook Application.ScreenUpdating = False Application.DisplayAlerts = False 'Set ZielD = ActiveWorkbook With Sheets("Tabelle1") For Each rng In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) Set wkb = Workbooks.Open("E:\Data\" & rng & "\Daten\bw_abg.csv", Local:=True) With wkb.Sheets(1) .Range(.Cells(1, 1), .Cells(Rows.Count, 7).End(xlUp)).Copy _ ThisWorkbook.Sheets("bw_abg").Cells(Rows.Count, 1).End(xlUp).Offset(1) End With wkb.Close False Next rng End With

Sub Daten_aktualisieren() Dim rng As Range Dim wkb As Workbook Application.ScreenUpdating = False Application.DisplayAlerts = False 'Set ZielD = ActiveWorkbook On Error Resume Next With Sheets("Tabelle1") For Each rng In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) Set wkb = Workbooks.Open("E:\Data\" & rng & "\Daten\bw_abg.csv", Local:=True) If Not wkb Is Nothing Then With wkb.Sheets(1) .Range(.Cells(1, 1), .Cells(Rows.Count, 7).End(xlUp)).Copy _ ThisWorkbook.Sheets("bw_abg").Cells(Rows.Count, 1).End(xlUp).Offset(1) End With wkb.Close False Set wkb = Nothing Else Debug.Print "Problem mit " & rng.Value End If Next rng End With End Sub

Hallo Marco!
Ich hab jetzt mal angenommen, dass die Ordner nur so heißen, wie die Zellinhalte in spalte "A". Ausserdem hab ich angenommen, dass die Dateien alle so benannt sind wie die Sheets in der Originaldatei und das auch die Sheets in der Ursprungsdatei so heißen. Dennoch vermute ich, dass es da noch was anzupassen gilt.
Versuch mal, damit zurechtzukommen:


Sub Daten_aktualisieren()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ZielID As Workbook
Dim Ursprung As Workbook
Dim Pfad_var As String
Dim Pfad As String
Set ZielD = ActiveWorkbook
Pfad_var = "\\CHZHSDAP10.aryzta.com\LogoMate\Daten\"
For Each cl In Range("A:A").SpecialCells(xlCellTypeConstants) 'Ordnernamen durchgehen
Pfad = Pfad_var & "\" & cl.Value 'kompl. Pfad bestimmen
Dim Fso As Object
Dim SearchFolder As Object
Dim FD As Object, FI As Object
Dim EachFil As Object
Set Fso = CreateObject("Scripting.Filesystemobject")
Set SearchFolder = Fso.GetFolder(Pfad)
Set EachFil = SearchFolder.Files            ' Dateien im jeweiligen Ordner
For Each FI In EachFil '   Dateien auslesen
Set Ursprung = Workbooks.Open(FI, Local:=True)
Ziel_sheet_name = Split(FI.Name, ".")(0)
lz = ZielD.Worksheets(Ziel_sheet_name).Cells(Rows.Count, 2).End(xlUp).Row + 1 'nächste freie Zeile
With Ursprung.Sheets(Ziel_sheet_name)
.Range(.Cells(1, 1), .Cells(Rows.Count, 11).End(xlUp)).Copy ZielD.Worksheets(Ziel_sheet_name).Cells(lz, 2)
End With
Ursprung.Close 0 'Schließen ohne speichern
Next FI
Next
Application.DisplayAlerts = True 'WICHTIG! Wieder einschalten!
End Sub

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

Variabler Dateipfad Datei öffnen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Variabler Dateipfad Datei öffnen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread