Databases Reference
In-Depth Information
FIGURE 2.4
Standard SaveAsDialog box example.
Dim strike As Integer
Dim ErrorBoxCaption$, ErrorBoxMsg$
Set BookToSave =
Workbooks(Workbook)
On Error GoTo FileOpenErr
'Set Up Captions and Messages
ErrorBoxCaption$ = "You Have Chosen NOT to Save this File!"
filters$ = LCase(filters$)
fillen = Len(filters$)
If fillen Mod 3 = 0 Then
'if valid filters then process
For ii = 1 To fillen Step 3
Search$ = Mid(filters, ii, 3)
'Stop
GoSub Build_Filters
Next ii
End If
'Add default
FileFilter = FileFilter & "All Files (*.*),*.*,"
'remove trailing ','
FileFilter = Left$(FileFilter, Len(FileFilter) - 1)
'If the passes default directory is valid change the current
directory to it
If
DirectoryExists
(defaultdir$)
= True Then
ChDir defaultdir$
