Using GetOpenFilename

**Cerkit** · 04-24-2013, 06:22 AM

Hi. I am having trouble specifying the folder I want when using GetOpenFilename. It takes me to the folder I want but there are no excel files in there.

Application.GetOpenFilename("Folder Path, Excel Files (*.xls)")

Any pointers?

**AndyLitch** · 04-24-2013, 06:27 AM

You are using Excel 2010 so try changing the file extension to Application.GetOpenFilename("Folder Path, Excel Files (*.xlsx)")

**Cerkit** · 04-24-2013, 06:40 AM

In fact it doesn't even take me to the folder I want. Nevertheless I changed it to xlsx and there were no excel files in a folder that I know has excel files.

Could it be it is not locating the Folder because the path is not in my documents but on another drive on my server?

**AndyLitch** · 04-24-2013, 06:43 AM

Best way to get the full file path is to navigate to it with explorer then copy the name from the filepath display at the top..

In my experience you have to be a bit careful with shared drives across networks because I.T. move files to another server occasionally as part of maintenance....

You could aslo just use asterixes in the file type just to verify you are looking into the right folder.

**Cerkit** · 04-24-2013, 06:57 AM

What if it is a 97-2003 excel file?

**AndyLitch** · 04-24-2013, 07:00 AM

Then it should be an .xls extension...... but looking more closely ..

Try this

Dim f As Variant
f = Application.GetOpenFilename("All Files (*.*),*.*")
    If f <> False Then
        Workbooks.Open Filename:=f
    End If

or even

 Application.GetOpenFilename ("All Files (*.*),*.*")

That's in it's simplest form which will open the current folder

I think the Folder Path you specify in your code is a string variable and should not be enclosed in quotes.