Setting default File Location

[Johnny C]

I just moved from XL2000 to XL2003.

It's an installation on the C drive with some elements downloaded from a network each time it starts. One of the things it resets each time it starts is the default file location (I:\Documents\Excel).

I don't want it to start in that location, I want to start in a subfolder on the G: drive. So I put the following macro into the ThisWorkbook page in personal.xls:

Option Explicit
Private Sub Workbook_Open()
    application.OnKey "{f1}", ""
    With application
        .StandardFont = "Arial"
        .StandardFontSize = "12"
        .AltStartupPath = "I:\Office\Excel\xlstart"
[B]          .DefaultFilePath = "G:\ECM"
[/B]        .EnableSound = True
        .RollZoom = False
    End With
End Sub

When I launch XL2003, I look in Tools>Options>General tab and the Alt Startup and Default file Path are set correctly

Default File Location: G:\ECM
At Startup, open all files in: I:\Office\Excel\xlstart

I know the Alt Startup is working as it replaces the standard toolbar that the network version imposes with a customised one, and my own personal.xls is loaded too.

But when I go to open a file, it's pointing at the location that the network default points to, I:\Documents\Excel

What's going on? Why won't it use the Default File Location?

 

[Andrew Poulsom]

To change the path in the File Open and Save dialogs:

Sub Test()
    ChDrive "C"
    ChDir "C:\TEMP"
End Sub

 

[Johnny C]

Works fine, thanks Andrew.

I'm puzzled though why the default option doesn't work, it's set in the Tools>Options>General tab, if I go in, select G:\ECM in the Default File Location box and just hit return (i.e. not change anything), it works.

 

[Andrew Poulsom]

Works fine, thanks Andrew.

I'm puzzled though why the default option doesn't work, it's set in the Tools>Options>General tab, if I go in, select G:\ECM in the Default File Location box and just hit return (i.e. not change anything), it works.

I don't know why it doesn't work either. There must be something going on when you change it manually that doesn't happen when it's changed in VBA, equivalent to the code I posted.