Solved

save workbook with name and date stamp

Posted on 2014-01-09
4
241 Views
Last Modified: 2014-01-09
Hi Experts excel 2007

I am trying to save active workbook.saveas filename:= "\\jjjdje.com\file2\"& "name" & "dd mmm yy" & ".xslm"

Not sure what's wrong here
0
Comment
Question by:route217
  • 2
  • 2
4 Comments
 
LVL 48

Accepted Solution

by:
Rgonzo1971 earned 500 total points
Comment Utility
HI,

pls try

WbkName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveWorkbook.SaveAs Filename:="\\jjjdje.com\file2\" & WbkName & "_" & Format(Date, "dd mmm yy") & ".xslm

Open in new window

Regards
0
 

Author Comment

by:route217
Comment Utility
0
 

Author Comment

by:route217
Comment Utility
How would I change file type to macro enabled worksheet
0
 
LVL 48

Expert Comment

by:Rgonzo1971
Comment Utility
Maybe this

ActiveWorkbook.SaveAs _
Filename:="\\jjjdje.com\file2\" & WbkName & "_" & Format(Date, "dd mmm yy") & ".xslm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled

Open in new window

Regards
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Approximate matching with VLOOKUP and MATCH seems to me to be a greatly under-used technique, and one which is vital for getting good performance out of large lookups. Until recently I would always have advised using an exact match for simplicity an…
How to quickly and accurately populate Word documents with Excel data, charts and images (including Automated Bookmark generation) David Miller (dlmille) Synopsis In this article you’ll learn how to use ExcelToWord! to copy data,charts, shapes …
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now