Finding file

[Guest]

Hi,

Via a macro is there any means to have a DIALOG box popped up that would
permit the user to browse the folders and select a file (or cancel the dialog
box). Once the file is identified, I want the macro to be able to get the
entire path including the file name BUT NOT OPEN the file. Thus the
xlDialogOpen... is not useful for me.

Any suggestions?

 

[mcg]

DKS napisal(a):

Hi,

Via a macro is there any means to have a DIALOG box popped up that would
permit the user to browse the folders and select a file (or cancel the dialog
box). Once the file is identified, I want the macro to be able to get the
entire path including the file name BUT NOT OPEN the file. Thus the
xlDialogOpen... is not useful for me.

Any suggestions?

file = Application.GetOpenFilename
mcg

 

[Guest]

Thanks this does the trick. Nevertheless on testing it, when clicking on
cancel the resulting value is FALSE. Thus, how do I test for this in the
macro? If I put

IF NOT file

then the above works well when I click cancel but not at all when I select a
good file name; I get a 'type mismatch" error.

Thanks for your previous tip.

 

[Guest]

Dim file as String
file = Application.GetOpenFilename
if file = "False" then
msgbox "You hit cancel"
exit sub
end if

 

[Guest]

Give this a try...

Sub test()
Dim strFile As String

strFile = Application.GetOpenFilename

If strFile = "False" Then
MsgBox "No file selected"
Exit Sub
End If
'The rest of your code...
End Sub

 

[Guest]

Thanks to all for the help. It works.