Microsoft Excel

Herbers Excel/VBA-Archiv

Application.FileDialog(msoFileDialogSaveAs) | Herbers Excel-Forum


Betrifft: Application.FileDialog(msoFileDialogSaveAs) von: Philipp
Geschrieben am: 02.12.2009 13:29:46

Hallo,

ich möchte nur bestimmte Dateiformate beim speichern zulassen. Die Filterfunktion funktioniert hier nicht (oder jedenfalls bei mir)

Sub test
Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs)
    
With oFileDialog
    .Title = "Auto Report Save as"
    .ButtonName = "speichern"
    .InitialFileName = "AutoReport_"
    .Filters.Clear
      .Filters.Add "word-files", "*.doc"
    If .Show = -1 Then
       .Execute
       sName = .SelectedItems(1)
    Else
        Exit Sub
    End If

End Sub

hat jemand von euch eine Idee. Wie ich nur ein bestimmtes Format zulassen kann?
Danke für eure Hilfe.

Phil

  

Betrifft: Application.GetSaveAsFilename von: Tino
Geschrieben am: 02.12.2009 13:51:33

Hallo,
versuche es mal mit dieser Version.

Dim strFileName$

strFileName = Application.GetSaveAsFilename("Beispiel", FileFilter:="Word-Files (*.doc), *.doc")

If strFileName <> CStr(False) Then
 'hier Deine speichern Befehle 
 'in strFileName steht der Pfad und der Dateiname 
End If
Gruß Tino


  

Betrifft: AW: Application.GetSaveAsFilename von: Philipp
Geschrieben am: 02.12.2009 14:18:08

Hallo,

sorry, hab vergessen zu sagen, dass ich unter word arbeite. Dort gibt es den Befehl nicht.
Noch eine weitere Idee?

Philipp


  

Betrifft: AW: Application.GetSaveAsFilename von: Luschi
Geschrieben am: 02.12.2009 14:33:25

Hallo Philipp,

schau mal hier: http://www.office-loesung.de/ftopic169163_0_0_asc.php

Da gibt es eine Lösung für Word.

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Application.GetSaveAsFilename von: Philipp
Geschrieben am: 02.12.2009 15:05:34

Dein link ist aber für die FilePicker und nicht für die SaveFile Einstellung.

Noch eine weitere Idee?

Philipp