Problems with ChDrive, ChDir
 

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

Problems with ChDrive, ChDir
 

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

Problems with ChDrive, ChDir
 

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


.

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


.

Problems with ChDrive, ChDir
 

Thanks Bob

I will try on a couple of other machines
Thanks for your time

S


-----Original Message-----
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


.



.