Makro_Speichern ohne Windowsnachricht zu bestätige

Forumthread: Makro_Speichern ohne Windowsnachricht zu bestätige
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro_Speichern ohne Windowsnachricht zu bestätige

23.05.2017 16:24:43

Paul

Hallo!
ich habe folgenden Befehl zum speichern meines Berichtes.
Jetzt muss ich das immer noch in Windows bestätigen. Kann diese Bestätigung auch gleichzeitig durchgeführt werden ohne, dass ich das explizit bestätigen muss?
Gruß

Sub speichern2()
Dim Ab As String
Ab = Worksheets("Kosten_Pivot").Range("L12").Value
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 25
.InitialFileName = "L:\Bericht_Export\" & Ab & ".pdf"
If .Show Then Worksheets("Bericht_Standard").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=.SelectedItems(1), Quality:=xlQualityhigh, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro_Speichern ohne Windowsnachricht zu bestätige

23.05.2017 17:27:13

yummi
Windows Bestätigung unterdrücken

24.05.2017 11:12:49

Paul
AW: Windows Bestätigung unterdrücken

24.05.2017 14:25:33

Paul
AW: Windows Bestätigung unterdrücken

24.05.2017 17:05:29

Paul

AW: Makro_Speichern ohne Windowsnachricht zu bestätige

23.05.2017 17:27:13

yummi

Hallo Paul,
am Anfang deienr Sub ein Applikation.displayAlert = false
und am ende Applikation.displayalert = true
sollte die Bestätigung unterbinden.
gruß
yummi

Windows Bestätigung unterdrücken

24.05.2017 11:12:49

Paul

Hey Yummi,
danke für den Hinweis. Leider lässt sich das damit nicht unterbinden.
In einem "normalen" Speichervorgang "activeworkbook.saveas" funktioniert das aber bei mir mit dem Befehl nicht.

AW: Windows Bestätigung unterdrücken

24.05.2017 14:25:33

Paul

Oder ist mein Ursprungscode einfach zu kompliziert / falsch?

AW: Windows Bestätigung unterdrücken

24.05.2017 17:05:29

Paul


Sub Berichte_speichern()
Dim Ab As String
Ab = Worksheets("Kosten_Pivot").Range("L12").Value
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="L:\Team VK\" & Ab & ".pdf", _
Quality:=xlQualityhigh, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.DisplayAlerts = True
End Sub

So geht es!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!