Programming Excel with VBA and .NET

Name

Application.GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])

Synopsis

Displays the Open File dialog box and returns a filename or False if no file is selected. Does not open the file.

Argument	Setting
FileFilter	A filter to use in the drop-down list on the dialog box. Each filter is a pair separated by a comma: DisplayString , Type. See the following example.
FilterIndex	The index of the filter to display initially.
Title	The caption for the dialog box. Default is Open.
ButtonText	(Macintosh only.) The caption to show on the action button. Default is Open.
MultiSelect	True allows the user to select multiple files.

The following code displays the File Open dialog box for web file types; if the user selects a file, the code opens the file in Notepad:

Sub TestGetOpen(  )
    Dim fname As String, fltr As String
    fltr = "Web page (*.htm),*.htm,XML data (*.xml),*.xml," & _
      "XML Style Sheet (*.xsl),*.xsl"
    fname = Application.GetOpenFilename(fltr, _
      1, "Open web file", , False)
    If fname <> "False" Then _
        Shell "Notepad.exe " & fname
End Sub