GetSaveAsFilename

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,

wahrscheinlich hätte meine Ziele näher erläutern sollen.

Deinen Vorschlag habe ich bereits ausprobiert um daraus eventuell nützliches in mein Makro zu übernehmen.

Das Problem ist, dass ich so das Blatt schon direkt speichere.
Ich will jedoch, dass die User am Ende meines Makros eine Abfrage bekommen:

"Wollen Sie die aktuelle Arbeitsmappe speichern?"

Wenn Sie "NEIN" drücken, dann ist Makro vorbei, wenn Sie "JA" drücken, dann soll das Speichern unter-Fenster aufpoppen und man kann selbständig speichern.

Es klappt bisher alles, nur steht nun in diesem Fenster als DateiTyp "Alle Dateien", ohne sonstige Auswahlmöglichkeiten. Und deshalb will ich Excel vorgeben, dass dort dann schon der Excel-Standard "Microsoft Excel-Arbeitsmappe" steht.

Hast Du da eine Idee???

Gruß,
Martin

Mal aus der Hilfe:

GetSaveAsFilename-Methode
Siehe auch Betrifft Beispiele Zusatzinfo
Zeigt das Standarddialogfeld Speichern unter an und bekommt einen Dateinamen vom Benutzer, ohne jedoch irgendwelche Dateien zu speichern.

Ausdruck.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

Ausdruck Erforderlich. Ein Ausdruck, der ein Application-Objekt zurückgibt.

InitialFilename Optionaler Variant-Wert. Gibt den vorgeschlagenen Dateinamen an. Wenn Sie dieses Argument nicht angeben, verwendet Microsoft Excel den Namen der aktiven Arbeitsmappe.

FileFilter Optionaler Variant-Wert. Eine Zeichenfolge, die Dateifilterkriterien angibt.

Diese Zeichenfolge besteht aus Zeichenfolgepaaren für den Dateifilter, gefolgt von einer MS-DOS-Platzhalterspezifikation für den Dateifilter, wobei jeder Teil und jedes Paar durch Kommas getrennt sind. Jedes einzelne Paar wird im Dropdownlistenfeld Dateityp angezeigt. Die folgende Zeichenfolge gibt beispielsweise die beiden Dateifilter Text und Add-In an: "Textdateien (*.txt), *.txt, Add-In-Dateien (*.xla), *.xla".

Um mehrere MS-DOS-Platzhalterausdrücke für einen einzelnen Dateifiltertyp anzugeben, trennen Sie die Platzhalterausdrücke mit Semikolons. Beispiel: "Visual Basic-Dateien (*.bas; *.txt),*.bas;*.txt".

Wenn Sie dieses Argument nicht angeben, wird der Standardwert "Alle Dateien (*.*),*.*" verwendet.

FilterIndex Optionaler Variant-Wert. Gibt die Indexnummer der Standarddatei-Filterkriterien an, von 1 bis zu der Anzahl von in FileFilter angegebenen Filtern. Wenn Sie dieses Argument nicht angeben oder es größer als die Anzahl von vorhandenen Filtern ist, so wird der erste Dateifilter verwendet.

Title Optionaler Variant-Wert. Gibt den Titel des Dialogfeldes an. Wenn Sie dieses Argument nicht angeben, wird der Standardtitel verwendet.

ButtonText Optionaler Variant-Wert. Nur bei Macintosh.

Anmerkungen
Diese Methode gibt den ausgewählten Dateinamen oder den vom Benutzer eingegebenen Namen zurück. Der zurückgegebene Name kann eine Pfadangabe enthalten. Gibt False zurück, wenn der Benutzer das Dialogfeld mit Abbrechen verlässt.

Diese Methode kann u.U. das aktuelle Laufwerk oder den aktuellen Ordner ändern.

Beispiel
In diesem Beispiel wird das Dialogfeld Speichern unter mit einem Dateifilter für Textdateien angezeigt. Wenn der Benutzer einen Dateinamen wählt, wird dieser in einem Meldungsdialogfeld angezeigt.

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If

Gerd

Sub TestDruckundSpeichern() 'ActiveSheet.PrintOut If MsgBox(prompt:="Möchten Sie das Arbeitsblatt nun speichern?", Buttons:=vbYesNo + vbQuestion) = vbYes Then ActiveWorkbook.SaveAs fileSaveName = Application.GetSaveAsFilename( _ fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName End If End If End Sub

Sub Save_as() Dim filesavename As Variant If MsgBox(prompt:="Möchten Sie das Arbeitsblatt nun speichern?", Buttons:=vbYesNo + vbQuestion) _ = vbNo Then Exit Sub filesavename = Application.GetSaveAsFilename( _ fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls") If filesavename <> False Then ActiveWorkbook.SaveAs filesavename End If End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

19 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

GetSaveAsFilename

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

19 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread