Notepad speichern
01.07.2020 15:16:46
Doc
wie kann ich eine durch VBA geöffnete Notepad Datei(*.dat) unter gleichen Namen speichern, wie sie bereits geöffnet wurde ABER ohne Dialog als Speichern untern, sondern autom im Hintergrund.
Das wäre quasi die halbfertige Lösung:
Private Sub CommandButton4_Click()
'**Dateifilter**
strFilter = "Text-Dateien(*.dat*), *.dat*"
'**Vorbelgung Pfad**
ChDrive "D"
ChDir "D:\Sxxxx\"
'**Den im Dialogfeld gewählten Namen auslesen**
strFilename = Application.GetOpenFilename(strFilter)
'**Prüfen, ob eine gültige Datei ausgewählt wurde**
If strFilename = False Then Exit Sub
'**Gewählte Datei öffnen**
'Dialog speichern unter
Application.Dialogs(xlDialogSaveAs).Show (strFilename)
End Sub
Anzeige