ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Code to Save As, then Open - can't figure it out! (https://www.excelbanter.com/excel-discussion-misc-queries/90621-code-save-then-open-cant-figure-out.html)

[email protected]

Code to Save As, then Open - can't figure it out!
 
I have VBA code called "savetoron" in a spreadsheet (Max OSX, Excel
2004) which reads some data from certain cells and constructs a
filename, then saves that spreadsheet, with that filename, to a certain
location, and closes that file on the screen. It reads like this:

Sub savetoron()
fname = "(" & Range("B1") & ")" & Range("D1") & Range("H1") & "_" &
Range("T1") & ".xls"
pathname = "Volumes:ACSP:IDEACoordination:Funding Team:WEBSAS
Review:Ron Morgan:06-07:"
ActiveWorkbook.SaveAs Filename:=pathname & fname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub

What I'm trying to do is modify this code so that it would not only
close the file, it would also open another file called "06-07main.xls"
which is on my desktop. I think that code should look like this:

Workbooks.Open Filename:= _
"Mac OS X HD:Users:rmorgan:Desktop:06-07main.xls"

The task I'm trying to facilitate: the user starts off with
06-07main.xls, which is a blank template spreadsheet. He fills it in
with some data, then hits a "Save" button/object which executes the
"savetoron" code above.

Then it re-opens a fresh copy of 06-07main.xls, he fills it in, hits
the save button, and it gets saved, closes, and another fresh one
opens, etc. etc.

I can NOT find a place to insert the Workbooks.Open code so it will
work. Can somebody help?

Thanks,
Ron M.



All times are GMT +1. The time now is 12:08 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com