SpeichernUnter-Dialog
07.11.2020 11:43:21
Tobias
ich bin zwar in Word, aber das sollte für das Problem nicht relevant sein.
Ich möchte den "Speichern Unter"-Dialog für ein eigenes Tool nutzen.
Dabei kommt zum Einsatz, dass der Dateityp "*.pro" heißen soll und nicht "*xlsx" oder "*docx"
Aus der OnlineHilfe und Beispielen habe ich folgendes Script:
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogSaveAs)
With f
.Title = "Chord-Pro speichern" 'Fenstertitel
.AllowMultiSelect = False 'Nur eine Datei
.ButtonName = "Speichern" 'Button Beschriftung
.Filters.Clear 'erst alle Filter löschen
.Filters.Add "Chord-Pro", "*.pro", 1
.FilterIndex = 2 'einen Filter vorselektieren
.InitialFileName = Var_bearbeiten("Pfad", , 2) & txt_title.Text
.InitialView = msoFileDialogViewDetails
.Execute
.Show
End With
Nur ... er bringt einen Fehler bei ".Filters.Clear" und auch bei ".Filters.Add" (egal ob mit "1" oder ohne)Auch wenn ich den Code so schreibe
With Application.FileDialog(msoFileDialogSaveAs)
.Filters.Clear
.Filters.Add "Chord-pro", "*.pro", 1
.FilterIndex = 1 'or 2 or 3, etc.
.Show
.Execute
End With
kommen dieselben Fehlermeldungen, dass die Methode nicht verfügbar ist - obwohl ich sie aufrufen kann, sobald ich den "." eingebe.Was mache ich da falsch?
Letztendlich könnte ich auch eine UserForm erstellen, in der nur der Pfad ausgewählt werden kann und über ein Textfeld der Dateiname; gespeichert wird es letztendlich eh über einen Stream (*.pro ist eine Textdatei)
Gruß Tobias