| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Force save to CURRENT directory
Hi All...........
This code basically works, but saves to the "Excel default" directory rather than to the directory the file came from......I want both saves to go right back in to the same directory the file came from.......wherever that might be. How can I force this please? Sub NewSaveArchive() CurrentPath = CurDir archivepath = CurrentPath + "\" 'Default Directory WorkBookName = ActiveWorkbook.Name Fname = archivepath Fname = Fname + Worksheets("INFO").Range("AH8").Value Fname = Fname & Format(Time, "_hh_mm_ss") & Format(Date, "_Mmm_dd_yyyy") Sheets("StaffingMatrixGF").Select Range("a1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Fname Fname = CurrentPath + "\" + WorkBookName ActiveWorkbook.SaveAs Fname Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Force save to CURRENT directory
A little more info.......
If I open Excel first, and then open this file, this existing code will do the saves to the current directory just like I want......BUT, if I open both Excel and the file by just clicking on the filename in Windows Explorer, or a Desktop Icon, (the preferred method), then is when Excel changes both saves back to the default "my docments" directory specified in Tools Options............ Any help would be appreciated...... Vaya con Dios, Chuck, CABGx3 "CLR" wrote: Hi All........... This code basically works, but saves to the "Excel default" directory rather than to the directory the file came from......I want both saves to go right back in to the same directory the file came from.......wherever that might be. How can I force this please? Sub NewSaveArchive() CurrentPath = CurDir archivepath = CurrentPath + "\" 'Default Directory WorkBookName = ActiveWorkbook.Name Fname = archivepath Fname = Fname + Worksheets("INFO").Range("AH8").Value Fname = Fname & Format(Time, "_hh_mm_ss") & Format(Date, "_Mmm_dd_yyyy") Sheets("StaffingMatrixGF").Select Range("a1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Fname Fname = CurrentPath + "\" + WorkBookName ActiveWorkbook.SaveAs Fname Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Force save to CURRENT directory
Just use ActiveWorkbook.Path to get the save location. Something
like: CurrentPath = ActiveWorkbook.Path Fname = CurrentPath & "\" & Worksheets("INFO").Range("AH8").Value ActiveWorkbook.SaveAs Fname CLR wrote: Hi All........... This code basically works, but saves to the "Excel default" directory rather than to the directory the file came from......I want both saves to go right back in to the same directory the file came from.......wherever that might be. How can I force this please? Sub NewSaveArchive() CurrentPath = CurDir archivepath = CurrentPath + "\" 'Default Directory WorkBookName = ActiveWorkbook.Name Fname = archivepath Fname = Fname + Worksheets("INFO").Range("AH8").Value Fname = Fname & Format(Time, "_hh_mm_ss") & Format(Date, "_Mmm_dd_yyyy") Sheets("StaffingMatrixGF").Select Range("a1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Fname Fname = CurrentPath + "\" + WorkBookName ActiveWorkbook.SaveAs Fname Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Force save to CURRENT directory
Fine.....FINE........SUPERFINE!!!
Thank you very much kind Sir. Vaya con Dios, Chuck, CABGx3 "JW" wrote: Just use ActiveWorkbook.Path to get the save location. Something like: CurrentPath = ActiveWorkbook.Path Fname = CurrentPath & "\" & Worksheets("INFO").Range("AH8").Value ActiveWorkbook.SaveAs Fname CLR wrote: Hi All........... This code basically works, but saves to the "Excel default" directory rather than to the directory the file came from......I want both saves to go right back in to the same directory the file came from.......wherever that might be. How can I force this please? Sub NewSaveArchive() CurrentPath = CurDir archivepath = CurrentPath + "\" 'Default Directory WorkBookName = ActiveWorkbook.Name Fname = archivepath Fname = Fname + Worksheets("INFO").Range("AH8").Value Fname = Fname & Format(Time, "_hh_mm_ss") & Format(Date, "_Mmm_dd_yyyy") Sheets("StaffingMatrixGF").Select Range("a1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Fname Fname = CurrentPath + "\" + WorkBookName ActiveWorkbook.SaveAs Fname Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Force save to CURRENT directory
On Oct 26, 2:54 am, CLR wrote:
Fine.....FINE........SUPERFINE!!! Thank you very much kind Sir. Vaya con Dios, Chuck, CABGx3 "JW" wrote: Just use ActiveWorkbook.Path to get the save location. Something like: CurrentPath = ActiveWorkbook.Path Fname = CurrentPath & "\" & Worksheets("INFO").Range("AH8").Value ActiveWorkbook.SaveAs Fname CLR wrote: Hi All........... This code basically works, but saves to the "Excel default" directory rather than to the directory the file came from......I want both saves to go right back in to the same directory the file came from.......wherever that might be. How can I force this please? Sub NewSaveArchive() CurrentPath = CurDir archivepath = CurrentPath + "\" 'Default Directory WorkBookName = ActiveWorkbook.Name Fname = archivepath Fname = Fname + Worksheets("INFO").Range("AH8").Value Fname = Fname & Format(Time, "_hh_mm_ss") & Format(Date, "_Mmm_dd_yyyy") Sheets("StaffingMatrixGF").Select Range("a1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Fname Fname = CurrentPath + "\" + WorkBookName ActiveWorkbook.SaveAs Fname Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3- Hide quoted text - - Show quoted text - try this; ThisWorkbook.Activate FilePath = Left(thisworkbook.FullName,Len(thisworkbook.FullNa me)- Len(thisworkbook.Name)) This should save the active workbook file directory to FilePath. Just add the file name. Regards trevosef |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Force save to CURRENT directory
Thanks for the response trevosef, but I have already used JW's suggestion,
which worked ok for me in this application. Vaya con Dios, Chuck, CABGx3 " wrote: On Oct 26, 2:54 am, CLR wrote: Fine.....FINE........SUPERFINE!!! Thank you very much kind Sir. Vaya con Dios, Chuck, CABGx3 "JW" wrote: Just use ActiveWorkbook.Path to get the save location. Something like: CurrentPath = ActiveWorkbook.Path Fname = CurrentPath & "\" & Worksheets("INFO").Range("AH8").Value ActiveWorkbook.SaveAs Fname CLR wrote: Hi All........... This code basically works, but saves to the "Excel default" directory rather than to the directory the file came from......I want both saves to go right back in to the same directory the file came from.......wherever that might be. How can I force this please? Sub NewSaveArchive() CurrentPath = CurDir archivepath = CurrentPath + "\" 'Default Directory WorkBookName = ActiveWorkbook.Name Fname = archivepath Fname = Fname + Worksheets("INFO").Range("AH8").Value Fname = Fname & Format(Time, "_hh_mm_ss") & Format(Date, "_Mmm_dd_yyyy") Sheets("StaffingMatrixGF").Select Range("a1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Fname Fname = CurrentPath + "\" + WorkBookName ActiveWorkbook.SaveAs Fname Application.DisplayAlerts = True End Sub Vaya con Dios, Chuck, CABGx3- Hide quoted text - - Show quoted text - try this; ThisWorkbook.Activate FilePath = Left(thisworkbook.FullName,Len(thisworkbook.FullNa me)- Len(thisworkbook.Name)) This should save the active workbook file directory to FilePath. Just add the file name. Regards trevosef |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Change current directory to the directory that the workbook loads from! | Excel Programming | |||
| Force use of the Default Directory | Excel Programming | |||
| How do I force an Excel macro to ask me which file and directory? | Excel Discussion (Misc queries) | |||
| How to force current directory | Excel Programming | |||
| changing current directory to that of the current open file | Excel Programming | |||
Linear Mode
