4523756273

246
Part IV: Communicating with Your Users
Sub GetImportFileName ()
Dim Finfo As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
‘ Set up list of file filters
FInfo = “Text Files (*.txt),*.txt,” & _
“Lotus Files (*.prn),*.prn,” & _
“Comma Separated Files (*.csv),*.csv,” & _
“ASCII Files (*.asc),*.asc,” & _
“All Files (*.*),*.*”
‘ Display *.* by default
FilterIndex = 5
‘ Set the dialog box caption
Title = “Select a File to Import”
‘ Get the filename
FileName = Application.GetOpenFilename (FInfo, _
FilterIndex, Title)
‘ Handle return info from dialog box
If FileName = False Then
MsgBox “No file was selected.”
Else
MsgBox “You selected “ & FileName
End If
End Sub
Figure 15-7 shows the dialog box Excel displays when you execute this procedure.
In a real application, you would do something more meaningful with the
filename. For example, you might want to open it by using a statement such
as this:
Workbooks.Open FileName
Notice that the FileName variable is declared as a Variant data type. If the
user clicks Cancel, that variable contains a Boolean value (False). Otherwise,
FileName is a string. Therefore, using a Variant data type handles both possibilities.
By the way, the dialog box may look different, depending on which version of
Windows you use.