File type default for {File - Open}

  • Thread starter Thread starter Les Hazlett
  • Start date Start date
L

Les Hazlett

I open a large number of files in Excel from within the
application to force the Text Import Wizard to run.
The "Files of Type" is always the default "All Microsoft
Excel Files". It would be wonderful if I could make the
default "All Files (*.*). I have searched for a solution
but found nothing.

Is there a way? Can anyone help?
 
GetOpenFilename Method

See Also Applies To Example Specifics
Displays the standard Open dialog box and gets a file name
from the user without actually opening any files.

expression.GetOpenFilename(FileFilter, FilterIndex, Title,
ButtonText, MultiSelect)

expression Required. An expression that returns an
Application object.

FileFilter Optional Variant. A string specifying file
filtering criteria.

This string consists of pairs of file filter strings
followed by the MS-DOS wildcard file filter specification,
with each part and each pair separated by commas. Each
separate pair is listed in the Files of type drop-down
list box. For example, the following string specifies two
file filters-text and addin: "Text Files (*.txt),*.txt,Add-
In Files (*.xla),*.xla".

To use multiple MS-DOS wildcard expressions for a single
file filter type, separate the wildcard expressions with
semicolons; for example, "Visual Basic Files (*.bas;
*.txt),*.bas;*.txt".

If omitted, this argument defaults to "All Files
(*.*),*.*".

FilterIndex Optional Variant. Specifies the index
numbers of the default file filtering criteria, from 1 to
the number of filters specified in FileFilter. If this
argument is omitted or greater than the number of filters
present, the first file filter is used.

Title Optional Variant. Specifies the title of the
dialog box. If this argument is omitted, the title
is "Open."

ButtonText Optional Variant. Macintosh only.

MultiSelect Optional Variant. True to allow multiple
file names to be selected. False to allow only one file
name to be selected. The default value is False

Remarks
This method returns the selected file name or the name
entered by the user. The returned name may include a path
specification. If MultiSelect is True, the return value is
an array of the selected file names (even if only one
filename is selected). Returns False if the user cancels
the dialog box.

This method may change the current drive or folder.

Example
This example displays the Open dialog box, with the file
filter set to text files. If the user chooses a file name,
the code displays that file name in a message box.

fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
 
Thanks for your input. However, I lack the knowledge to
know what to do with it. Is the code example something
that I can modify and use in some way? I need a lower
level explaination.
 
This was copied from Excel VBA Help. But I think I
misread your initial question. I thought you had some
VBA code already in place to open these files.

I dont know of an easy way to accomplish that. But you
would think there should be easy way outside of creating
some code. Maybe try Excel Programming newsgroup, they
may have a suggestion.
 
Back
Top