GetOpenFilename...what the heck

[ExcelChampion]

I'm trying to open to a default folder but its not working and I have no idea why...

I've played with my code, but it keeps opening to the System32 folder on the Windows folder.

I'm in Access, and use this code to create an instance of Excel, and then prompt the user to open an Excel file.

    CurrProject_Path = CurrentProject.Path
    
    Set xlApp = CreateObject("Excel.Application")
    With xlApp
        ChDrive CurrProject_Path
        ChDir CurrProject_Path
        strPathFile = .GetOpenFilename("Excel Files (*.xls*), *.xls*")

Any ideas?

FYI, everything is on my local drive.

 

[shg]

Take a look at Help for GetOpenFilename; it doesn't open a file.

 

[ExcelChampion]

Thanks, but I don't understand your post. Of course the function itself does not open a file, and I said nothing of that in my post. I want it to open the window to a default folder. I think that's pretty explicit in my post. Do I need to re-write my it to make it more clear?

 

[RoryA]

ChDrive and ChDir only apply to the current application (instance). Maybe use a FileDialog instead.

 

[ExcelChampion]

ChDrive and ChDir only apply to the current application (instance).

Holy moly!!...I didn't even think of that. I'll try filedialog...good idea.