Office: Filedialog-Filter nicht erkannt

Hallo,

ich habe mit folgender kommentierter Funktion eine Fehlermeldung bekommen, obwohl sie syntaktisch korrekt ist. Diese Funktion dient dazu eine Datei in einer Formatoption zu speichern. Im Format (*.DAT) gibts aber ein mir unerklärliches Problem. Kann mir jemand weiterhelfen? Danke

Private Sub Button_CrdUm_fileout_Click()
' Öffnet den Dialog um den Benutzer zu fragen unter welchem Namen er das Ergebniss sichern möchte
' Open the file dialog
Dim file_saveas As FileDialog
Dim a_initialname, a_outname As String

a_initialname = "HALLOWELT"

Set file_saveas = Application.FileDialog(msoFileDialogSaveAs)
' Fehlerfall tritt hier auf
Call file_saveas.Filters.Add("Schnittstellendatei (*.DAT)", "*.DAT")

file_saveas.FilterIndex = 7
file_saveas.AllowMultiSelect = False
file_saveas.InitialFileName = a_initialname
If (file_saveas.Show = -1) Then
a_outname = file_saveas.SelectedItems(1)
Textbox_fileout.Text = a_outname
End If
End Sub

:)

 

Hallo Adem,

probiere es mal so:

Code:

BTW: Wenn ein Code von der Syntax richtig ist, würde kein Fehler kommen *wink.gif*

 

Hallo,
leider löst der Vorschlag das Problem noch nicht.
Die Änderung von 'msoFileDialogSaveAs' zu 'msoFileDialogFilePicker' ermöglicht zwar das Setzen eines Filters, jedoch wird auch ein anderer Dialog aufgerufen als der gewünschte.
Das Einfügen des With-Blocks ändert nichts.

Der Fehler tritt übrigens erst zur Laufzeit auf und lautet auf "Methode nicht bekannt". Der Code kompiliert ohne Fehler und die Methode ist laut Referenz und Objektkatalog vorhanden.

 

Wie man den Dialog programmiert weiß ich zwar nicht, aber wie wärs mit dieser Alternative:
Code:

 

Hallo,
vielen Dank. Ich weiß zwar immernoch nicht was nun bei dem ursprünglichen Code falsch war, aber die Lösung von Styrkar funktioniert und liefert das gewünscht Resultat.

Nochmal vielen Dank,
Adem

 

Hi,

aber an welcher Stelle findet die Speicherung statt.
Der Code zeigt doch nur den DAteiname, mehr nicht.
Oder verstehe ich den Code nicht?

MfG Steve

 

Hallo Styrkar,

Dein Code funktioniert zwar - aber vermutlich nur in der DEUTSCHEN Excel-Version, da Du konkret den Inhalt auf "Falsch" überprüfst, und das dürfte vermutlich nur in der deutschen Version so lauten *wink.gif*
In unserer Firma wird z.B. die Multilinguale Office-Version eingesetzt und da würde das nur mit der deutschen Oberfläche funktionieren, jedoch nicht mit der englischen, französichen, spanischen etc....

Daher hier mein Korrekturvorschlag : Überprüfe nicht den INHALT der Variablen, sondern den TYP, denn bei ABBRUCH des "Speichern unter..."-Dialogs wechselt der Variablentyp von STRING auf BOOLEAN (Da "Falsch" oder "FALSE" etc. enthalten ist !) :

 

Hallo nochmal,

gibt es hier noch vorschläge, wie man mit der vorgeschlagenen lösung auch wirklich speichern kann?

Danke
Steve