Problems with ChDrive, ChDir
Yes, that is the sort of thing I did in my test, and although I didn't have
a number directory name, but having just done so, it works for me.
Bob
wrote in message
...
Hi RP
I guess I should have made it simpler in the first
instance, was being a bit lazy I guess. Even when the
code is as simple as below my open works, but not my
SaveAs, I take it this works for you?
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
Thanks
S
-----Original Message-----
Nothing obvious, it works okay for me. Are you sure Tag
is set for both
controls?
Have you debugged what Tag is on entering the macros?
Also, ChDrive strDirectory is good enough, you don't
need Left..
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Sophie" wrote in
message
...
Hello Everyone!
I've got two practically identical macros. One works
all
the time, one never. I can't work out why Open works,
but
SaveAs doesn't. Does anyone have any idea??
TIA
Sxx
Sub FileOpenDirectory()
Dim strDirectory As String
strDirectory = Excel.CommandBars.ActionControl.Tag
ChDrive Left(strDirectory, 1)
ChDir strDirectory
Application.Dialogs(xlDialogOpen).Show
End Sub
Sub FileSaveAsDirectory()
Dim strDirectory As String
strDirectory = Excel.CommandBars.ActionControl.Tag
ChDrive Left(strDirectory, 1)
ChDir strDirectory
Application.Dialogs(xlDialogSaveAs).Show
End Sub
.
|