Problems with ChDrive and ChDir

S

Sophie

Hello Everyone?

Raised this last week, but wasn't as precise as this.
Open works below, but not SaveAs, does anyone else get
the same result or know why?

TIA

Sxx


Sub FileOpenDirectory()
ChDrive "C"
ChDir "C:\1"
Application.Dialogs(xlDialogOpen).Show

End Sub
Sub FileSaveAsDirectory()

ChDrive "C"
ChDir "C:\1"
Application.Dialogs(xlDialogSaveAs).Show

End Sub
 
B

Bob Phillips

Sophie,

As I said last week, I have tested your code with the same directories, and
it works for me.

What is the directory when you start, and what error do you get?

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
G

Guest

Hi Bob

It's very strange
I Don't get an error at all
But when I run SaveAs the directory that I see is the one
that I last saved too. The code has no effect
Tested it at home and got the same result, I presume
there's some issue with different systems or versions, I
hoped that someone might have solved this in the past.

Weird eh

S
 
B

Bob Phillips

What OS and XL version do you have?

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
G

Guest

XP and Excel 2003

S
-----Original Message-----
What OS and XL version do you have?

--

HTH

RP
(remove nothere from the email address if mailing direct)





.
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Problems with ChDrive, ChDir 4
Open Workbook Question 1
Save As Dialog 6
Save as with Default location 2
CurDir, ChDrive, ChDir error questions 2
Use external file variable in formula 2
application.dialogs(xlDialogSaveAs) AND CHDIR 1
ChDrive and ChPath to a network drive 4

Top