Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
aauugghhh...#div/o problems & various average formula problems | Excel Worksheet Functions | |||
ChDir Error | Excel Programming | |||
chdir not accepting string for path | Excel Programming | |||
Links and Chdir | Excel Programming | |||
application.dialogs(xlDialogSaveAs) AND CHDIR | Excel Programming |