Hallo,

ich erzeuge eine xml Datei per VBA und will diese dann direkt auch zippen. Dazu habe ich folgende Codestelle erstellt:

'Create empty Zip File

Open fileNameZIP For Output As #1
Close #1


Set ShellApp = CreateObject("Shell.Application")
'Copy the files to the compressed folder
ShellApp.Namespace(fileNameZIP).CopyHere ShellApp.Namespace(fileNameXML).Items



In der letzten Zeile gibt es einen Abbruch, ich weiß nicht warum. fileNameZIP und fileNameXML sind zwei Strings mit dem vollständigen Pfadnamen und am Ende ".xml" bzw. ".zip".