|
Moin,
das Zusammenführen der fünf Dateien kannst Du doch auf CMD-Ebene ausführen lassen. Entweder per Batch. Hier als Beispiel drei Ordner aus denen Deine Datenkommen: Links, Rechts, Mitte_2025-Mai. Zielordner das übergordnete Verzeichnis, in das auchDein Script gehört. Die Ordnernamen und -name musst Du natürlich anpassen.
@echo off
setlocal enabledelayedexpansion
:: Datum bestimmen
for /f "tokens=2 delims==" %%A in ('wmic os get localdatetime /value') do set datetime=%%A
set year=!datetime:~0,4!
set month=!datetime:~4,2!
set day=!datetime:~6,2!
:: Ziel-Datei im Skriptordner
set script_folder=%~dp0
set output_file=!script_folder!Summary_!year!.!month!.!day!.csv
:: Quellordner definieren
set base_folder=C:\Pfad\zu\deinem\Ordner\
set folder_links=!base_folder!Links
set folder_rechts=!base_folder!Rechts
set folder_mitte=!base_folder!Mitte_!year!_Mai
:: Ausgangsdateien
set file1=!folder_links!\datei1.csv
set file2=!folder_rechts!\datei2.csv
set file3=!folder_mitte!\datei3.csv
:: Zusammenführen
type "!file1!" > "!output_file!"
type "!file2!" >> "!output_file!"
type "!file3!" >> "!output_file!"
echo Zusammenführung abgeschlossen: !output_file!
endlocal
Nenne das Dingen Summary.bat und du kannst auch aus XL direkt aufrufen -falls Dein neurotischer IT-Chef das zulässt.
Sub RunBatchFile()
Dim batchFile As String, xlFolder As String
xlFolder = ThisWorkbook.Path
batchFile = xlFolder & "\Summary.bat"
Shell batchFile, vbNormalFocus
End Sub
Ansonsten Link auf dem Desktop.
d'r Bastler von den VBAsteleien.de
|