Office application default save path

Is there an easy way to find the default Save directory for an Office Application?
I'm using VBA and I want to make sure that I open the save Directory for example, Excel to bring up that directory in a Dialog box.
Chuck LoweAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Justin DurrantSr. Engineer - Windows Server/VirtualizationCommented:
Click on the Office icon on the upper right of the window
Click on Word Options (or Excel Options, Powerpoint Options, etc.) at the bottom right of the dropdown menu.
Navigate to the "Save" tab under Word Options.
Click "Browse" next to Default file location, and navigate to the desired directory for saving files.
Chuck LoweAuthor Commented:
I'm sorry I did not clearly state the question. I have an Access app and I'm pulling in Excel spreadsheets to import. I need to know how to get the Defaul File Location under the Save Wookbooks option in excel. I need the code to find that in VBA. It will not be the same for every user so it can not be hard coded. I need to open a Dialogbox in that folder as that will be the default folder the user keeps their excel files.
Chuck LoweAuthor Commented:
Does anyone have an idea?
I was talking to an old co-worker and she tells me she believes the only way to do this is getting it from the Registry.

Is this true?
Acronis True Image 2019 just released!

Create a reliable backup. Make sure you always have dependable copies of your data so you can restore your entire system or individual files.

Justin DurrantSr. Engineer - Windows Server/VirtualizationCommented:
What version of Excel?
Chuck LoweAuthor Commented:
Excel 2010
Justin DurrantSr. Engineer - Windows Server/VirtualizationCommented:
Ok.. you should see a DefaultPath option in the registry under

 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options

If not, you can create it:

Select Edit | New | String Value.
Name the new entry DefaultPath.
Double-click DefaultPath.
Enter the folder that you want to designate as default save location.
Click OK.
Chuck LoweAuthor Commented:
Actually I found it. I changed the Save path in Excel as something unique. Then I did a search for it (hittig F3) until I found it. We both came up with the same answer.

I also found example code for VBA to search in the registry.

Thanks!
Chuck LoweAuthor Commented:
This did the trick.

Public Function ExcelVersion() As String
'returns Excel version is found - in numeric and string
'
'**  written By:  Chuck Lowe    2015/07/30 - Original
'
'   14.0 = 2010
'   12.0 = 2007
'   11.0 = 2003
'   10.0 = 2002/XP
'    9.0 = 2000
'    8.0 =   97
'    7.0 =   95

Dim objApp As Object
Dim intVersion As Integer

On Error GoTo ErrorHandler

'  Use late binding to fin Excel version
Set objApp = CreateObject("Excel.Application")

 ExcelVersion = objApp.VERSION
 intVersion = CLng(objApp.VERSION)
 
'    Debug.Print objApp.VERSION & " " & ExcelVersion
   
Exit Function

ErrorHandler:

End Function

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Chuck LoweAuthor Commented:
This did the trick
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Office

From novice to tech pro — start learning today.