ich habe ein Tool programmiert welches Dateien mehreren verschiedenen Ordnern in einen gemeinsamen kopiert. Dabei gebe ich den Dateein Metadaten mit, weswegen mein Programm jede Datei öffnet, metadaten übergibt, sie speichert und anschließend wieder schließt und dann kopiert.
Nun habe ich dazu bei PowerPoint Dateien ein Objekt erzeugt. Was am Ende des Programms geschlossen wird. Dabei schließt es mir jedoch leider nicht nur die PowerPoint Datei welche kopiert werden soll, sondern auch andere PowerPointPräsentationen die ich gerade nebenbei offen habe, ohne diese zu speichern...
Hier der Code:
Dim objPPApp As Object ' PowerPoint Application
Dim objPPFile As Object ' PowerPoint Document
Set objPPApp = CreateObject("PowerPoint.Application")
Set objPPFile = objPPApp.Presentations.Open(Quellpfad)
'code
objPPFile.Save
objPPFile.Close
objPPApp.Quit
Set objPPApp = Nothing
Was kann ich an dem Code verändern, dass es mir die nebenbei geöffneten PowerPoint Dateien nicht einfach schließt? Bzw. wenigstens danach fragt ob ich diese speichern will?
Viele grüße
Ela