Speichern ohne Nachfrage
18.03.2022 07:51:03
Jens
ich habe folgenden Code und bekomme ich immer 3 Abfragen, die ich unterdrücken möchte.
- Möchten Sie die Datei öffnen oder abspeichern?
- Speichern unter Dialog
- Download beenden / Download abgeschlossen
DisplayAlerts = False funktioniert nicht
Sub DateiKopieren()
Dim Dateiname As String
Dim Dateiname_neu As String
Dim i As Integer
Dim StrDatei As String
Dim strVerzeichnis As String
Dim StrTyp As String
Dim xlAPP As New Excel.Application
Dim xlWB As Workbook
Dim Username As String
Dim Zeit As Date
Username = Environ("Username")
xlAPP.Visible = False
Application.DisplayAlerts = False
' Quelldatei ermitteln
strVerzeichnis = Environ("USERPROFILE") & "\Downloads\"
StrTyp = "export*.xlsx"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
' jüngste Datei feststellen
Do While Dateiname ""
If Zeit