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".
|