Dialogfenster Dateisuche

Herdt EX2003P K14.2/S.165 (Application.Dialogs)

Neben MsgBox und InputBox gibt es die Dateisuche als weiteres existierendes Dialogfenster, das sich aus VBA aufrufen lässt. Allerdings geht dies nur in Excel, und zwar mit Application.GetOpenFilename. Mit Extras - Verweise - Microsoft Excel 9.0 Object Library lassen sich Excel-Objekte auch in den anderen Office-Applikationen, z.B. in Powerpoint, verwenden.

Dim strFileName As String
strFileName = Excel.Application.GetOpenFilename( _
  "Powerpoint-Datei, *.ppt")
If strFileName <> "" Then
  Application.Presentations.Open (strFileName)
End If

Übung 6