 |
|
|
|
|
|
Got any Excel Questions? Free Excel Help
Saving Workbooks using VBA - 1
Zurich6 had created multiple new workbooks from a master workbook and now wanted
to automate the "save as" process based on the cell "B1" in the new
workbook.
The following code he had used resulted in the new file being saved as "true.xls"
…
Sub NewWorkbooksave
' Macro recorded 2/7/2003 by zurich6
' Keyboard Shortcut: Ctrl+n
ActiveWorkbook.SaveAs Filename:=Range("B1").Select
ActiveSheet.Paste
, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
FWind suggested the following line of code
ActiveWorkbook.SaveAs Filename:=Range("B1").Value
Because, "Range("B1").Select" selects cell B1 and returns the result TRUE
if successful, FALSE otherwise.
Colo, in a later thread showed how to save the file as the value in the Active
Cell.
ActiveWorkbook.SaveAs Filename:=activecell.Value
Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money
Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.
Instant Download and Money Back Guarantee on Most Software
Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!
Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft
GIVE YOURSELF OR YOUR COMPANY 24/7 MICROSOFT EXCEL SUPPORT & QUESTIONS