Office: beim speichern, vorhandene Datei überschreiben

Hallo,

ich möchte Diagramme von Excel aus in ein Ordner Speichern. (den Code habe ich hier im Forum gefunden)

PHP:

         Sub BildExportShape(shExport As Shape)
Dim chDiagramm As ChartObject
Application.ScreenUpdating = False
shExport.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shExport.Width, shExport.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="D:Excel_TempChart1.jpg", FilterName:="JPG"
End With
chDiagramm.Delete
Set chDiagramm = Nothing
Set shExport = Nothing
Application.ScreenUpdating = True
End Sub


:)

 

Prüfe vorher, ob die datei vorhanden ist, und lösche gegebenenfalls

Code:

 

OK

Danke

 

Hallo fados,

da der Datei-Lösch-Befehl vom Betriebssystem ausgeführt wird, sollte man prüfen, ob die Löschung auch erfolgt ist; und das mache ich so: Code:

Gruß von Luschi
aus klein-Paris

 

Funktioniert

Danke