Makro: Dateien öffnen, kopieren, schließen
08.04.2019 18:21:24
Wal
ich brauche mal eure Hilfe:
Ich habe mehrere Dateien (deren Dateinamen ändern sich monatlich).
Daher habe ich diesen Code geschrieben, um alle Dateien im Ordner zu öffnen.
Leider will er die aktuelle auch öffnen, so dass ich eine Fehlermeldung bekomme.
Heißt im ersten Schritt müsste ich eine Datei ausschließen.
Dann will ich von jeder Datei die Zellen A3:Z2000 kopieren und in der Hauptdatei einfügen heißt, dass die jeweils nächste Datei um 2000 Zeilen weiter unten eingefügt werden muss.
Danach will ich alle leeren Zeilen in der Hauptdatei ausblenden und danach alle Dateien, bis auf die Hauptdatei schließen.
Leider habe ich erst diesen Ansatz,
jedoch funktioniert er nur bis zu dem Punkt, bis er die Hauptdatei (die ist im gleichen Ordner) _
öffnen will:
Sub OpenFiles()
Const FILE_PATH As String = "P:\Listen\"
Dim MyFile As String
Dim objWorkbook As Workbook
Application.ScreenUpdating = False
MyFile = Dir$(FILE_PATH & "*.xlsx")
Do Until MyFile = ""
Set objWorkbook = Workbooks.Open(Filename:=FILE_PATH & MyFile, UpdateLinks:=3)
Call objWorkbook.Close(SaveChanges:=True)
MyFile = Dir$
Loop
Application.ScreenUpdating = True
End Sub
Ich danke euch im Voraus für eure Mühe! :)