Open File Dialog
am 23.10.2007 14:19:12 von EcohouseI'm trying to use the File Dialog to select an open a file. Here is
my code:
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
If .Show = True Then
.AllowMultiSelect = False
'Find the selected file name
For Each varFile In .SelectedItems
strFile = varFile
Next
Else
MsgBox "Select a file."
GoTo FindFile_Exit
End If
End With
I know that I'm missing something here to complete the action. What
do I need to open the file after I use the file dialog to select it?
Also along the same lines what do I have to do to do a Save As with
the file dialog? Thanks in advance for the help.