ChDir Not Working

[markf5998]

I've tried solutions found through searching google, but nothing seems to make "chdir" do what I want it to do. Any help would be greatly appreciated!

my code looks like this:

chdir \\network\mark's folders\file location
Application.Dialogs(xlDialogSaveAs).Show


I wanted the saveas dialog box to default to the location that I specified through chdir, but when the dialog box opens, it is at the normal default location (c:\...\my documents)

The code runs without any errors.

Any ideas?

Thanks!

 

[Andrew Poulsom]

Maybe you need to ChDrive first.

 

[markf5998]

I tried chdrive("[path]") but I'm getting an "Invalid procedure call" error when it runs. It looks like the syntax should be the same for chdrive as it is for chdir, should it be different?

 

[Andrew Poulsom]

Did you look up the syntax in VBA Help? If the drive isn't mapped, look here:

http://www.eggheadcafe.com/software/aspnet/33730005/chdir-and-chdrive.aspx

 

[markf5998]

The network drive is mapped as x:, so I tried:

chdrive("x")

with and without

chdir ("[path]")

But still get the same results, saveas dialog is not defaulted to the desired location.

I read through the link (thank you for sending!) but it is a little out of my range...When I try to insert the "Declare Function..." line at the top of the module as was suggested, it immediately turns red and when I try to run it pups up a box for me to select a different macro. Also tried to paste the entire code that was suggested towards the end of the post, with similar results.

 

[Andrew Poulsom]

It's:

ChDrive "X"

 

[markf5998]

Thanks for the response, but still the same result...this is my entire code, if it helps:

Sub Save_File()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
'Save Changes to the current book in its current location<o></o>
ThisWorkbook.Save<o></o>
<o> </o>
<o> </o>
'Change directory to default Location where x: is the mapped drive<o></o>
ChDrive "x"<o></o>
ChDir ("\\network\ops\mark\files")<o></o>
<o> </o>
'Open SaveAs Window so that the user can save a copy in the other directory<o></o>
Application.Dialogs(xlDialogSaveAs).Show<o></o>
<o> </o>
<o> </o>
End Sub

 

[Andrew Poulsom]

What is x mapped to? Something like this worked for me:

    ChDrive "x"
    ChDir "x:\ops\mark\files"
    Application.Dialogs(xlDialogSaveAs).Show

 

[AlphaFrog]

Maybe try something like this...

fileSaveName = Application.GetSaveAsFilename( _
               InitialFileName:="\\network\ops\mark\files", _
               FileFilter:="Excel Files (*.xls), *.xls")
               
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName
End If

 

[markf5998]

Andrew - X is mapped to "network"...I tried the code you wrote and it is doing the same thing. Also tried it removing "network" from the chdir line, since we already (maybe) covered that part by changing the drive. Clearly I am still an ametuer at this!

AlphaFrog - This did what I was looking for!

Thank you both for helping me out, greatly appreciated!!