View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default how can i change my default working folder to a networked fold

I used to have this problem if I opened excel when I wasn't mapped to my network
drive.

I created a file in my XLStart folder that tried to change that setting each
time I opened excel.

Option Explicit
Sub auto_open()

'Dim FSO As Scripting.FileSystemObject
Dim FSO As Object

Const myDefaultFolder As String = "X:\my folder\myfolder2l"

'Set FSO = New Scripting.FileSystemObject
Set FSO = CreateObject("scripting.filesystemobject")

With Application
If FSO.FolderExists(folderspec:=myDefaultFolder) Then
.DefaultFilePath = myDefaultFolder
ChDrive myDefaultFolder
ChDir myDefaultFolder
Else
MsgBox "DefaultFilePath not reset, still: " & .DefaultFilePath
End If
End With
ThisWorkbook.Close savechanges:=False

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

=======
I would guess that if you don't have the authorization to write to the windows
registry that this setting may not be kept for you. You may want to test to see
if other changes are kept, too.

If they're not, I'd ask the IT folks why it wasn't working.

wizard1154 wrote:

yes tried that but to no avail

"Gord Dibben" wrote:

Have you tried changing the default file location in ToolsOptionsGeneral?


Gord Dibben MS Excel MVP

On Wed, 18 Apr 2007 07:04:03 -0700, wizard1154
wrote:

i am trying to change my default working folder from "my documents" to a
folder on my network personal drive( drive X) how can i change this so it by
default will always open in the network drive? excell 2003




--

Dave Peterson