Tabellenblätter in Masterfile kopieren & speichern
02.03.2018 17:26:46
Stephan
ich bin noch blutiger Anfänger was VBA angeht und hoffe sehr, dass ihr mir weiter helfen könnt.
Ich habe jede Menge Export-Dateien (je eine Excel-Datei mit nur einem Tabellenblatt - das Tabellenblatt heißt u.U. immer anders), die ich per VBA jeweils einzeln ins zweite Tabellenblatt einer "Masterfile" (Masterfile.xlsx) kopieren möchte.
Nachdem das Tabellenblatt in das Masterfile kopiert wurde soll das Masterfile mit dem dem ursprünglichen Namen der Exportdatei gespeichert werden.
Das Ganze soll dann per Loop mit allen Dateien passieren, welche in dem Export-Ordner liegen.
Zum Hintergrund: In Tabellenblatt 1 der Masterfile stehen sehr viele Formeln, die auf die Inhalte des Tabellenblatts zwei zugreifen.
Was ich bereits hinbekommen habe ist, dass der Name der Exportdatei in die Zelle "Z1" eingefügt wird und per Loop auf alle Dateien angewendet wird. Hierzu habe ich folgenden Code verwendet:
Sub Test()
Dim cDir As String
Dim sPath As String
Dim dName As String
sPath = "H:\Export\"
cDir = Dir(sPath & "*.xml")
Do While cDir ""
Workbooks.Open (sPath & cDir)
dName = ActiveWorkbook.Name
ActiveWorkbook.ActiveSheet.Range("Z1").Value = dName
ActiveWorkbook.SaveAs "H:\Export\Test\" & cDir
ActiveWorkbook.Close False
'nächste Datei lesen
cDir = Dir
Loop
End Sub
Stephan
Anzeige