Das Archiv des Excel-Forums

xlDialogOpen anpassen

Bild

Betrifft: xlDialogOpen anpassen
von: otto

Geschrieben am: 24.06.2008 14:14:09

Hi,
folgendermaßen öffne ich ein Dialogfeld.
Dim ordner
ordner = "\\AV - Material\Eigene Dateien\DIN-EN"
Application.Dialogs(xlDialogOpen).Show (ordner)
Wie kann ich nun erreichen, dass in der Voreinstellung "Dateityp" "Alle Dateien" drinsteht? Da gibt es doch was.
Gruß
otto

Bild

Betrifft: AW: xlDialogOpen anpassen
von: Rudi Maintaire
Geschrieben am: 24.06.2008 14:38:02
Hallo,
mach's so:


Sub FileDialog_FilePicker01()
'ab Version 2000:
Dim strFile As String
With Application.FileDialog(1)   '1=Open; 2=SaveAs; 3=FilePicker; 4=FolderPicker
.AllowMultiSelect = False
.InitialFileName = "n:\test\*.*"
.InitialView = 2 '1=Liste; 2=Details; 3=properties; 4=Preview; 5=Thumbnail; 6=LargeIcons;  _
7=SmallIcons
If .Show = -1 Then
strFile = .SelectedItems(1)
MsgBox strFile 'ausgewählte Datei
End If
End With
End Sub


Gruß
Rudi

 Bild

Excel-Beispiele zum Thema "xlDialogOpen anpassen"

Druckseite anpassen download Spaltenbreite anpassen download
UserForm an Excel-Fenster anpassen download Grafiken an eine Seite anpassen download
Bilder in UserForm und Bildgröße anpassen download Tagesliste eines Monats exakt anpassen download
Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen download Zeilenhöhe bei verbundenen Zellen anpassen download
Anpassen-Dialog über VBA aufrufen download Spaltenbreiten der nicht ausgeblendeten Spalten anpassen download
Aufruf des Symbolleisten-Anpassen-Dialogs verhindern download