Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

xlDialogOpen anpassen

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

  

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


 

Beiträge aus den Excel-Beispielen zum Thema "xlDialogOpen anpassen"