Warnmeldung, wenn Dateiname bereits vorhanden ist, wenn eine PDF-Datei erstellen

Question

Ich benutze die folgende Makro eine PDF-Datei aus meiner Excel-Tabelle zu erstellen:

Sub PDF_01() 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
ThisWorkbook.Path & "\" & "test.pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 
End Sub 

Dieses Makro funktioniert so weit. Sobald ich jedoch die Datei "test.pdf" erstellt habe und das Makro erneut ausgeführt habe, wird die erste Datei überschrieben, ohne dass eine Warnmeldung wie "Der Dateiname existiert bereits vorhanden. Möchten Sie sie überschreiben?"

Wissen Sie, wie ich diese Nachricht in meinen Code aufnehmen kann?

Answer 1

Sie Dir verwenden können, um festzustellen, ob die Datei bereits vorhanden ist, und dann geben dem Anwender eine Alternative, das heißt

Dim StrIn As String 
StrIn = ThisWorkbook.Path & "\" & "test.pdf" 

If Len(Dir(StrIn)) = 0 Then 
    ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename:=StrIn, Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 
Else 
    MsgBox "file already exists" 
    ' do something else 
End If