Creating Macro that will save a copy of the workbook to new directory + make it an add in

**srsly** · 09-08-2012, 06:18 PM

Hi all,

I need a macro that will save a file in a specified directory such as

C:\Users\Bryan\Desktop\Folder

and it will save it with the name "Timesheet" followed by todays date: such as Timesheet9/8/2012
the code i am using now seems to move the workbook completely, when i am trying to keep the workbook and save a copy of the completed timesheet into a different folder.
This is what I currently have

Sub SaveBook()
   Dim sFile As String
   sFile = "Timesheet" & Format(Now(), "dd.mm.yy") & ".xls"
   ActiveWorkbook.SaveAs Filename:="C:\Users\Bryan\Desktop\Folder" & sFile
End Sub

I also want to make this macro an add in, so that others can add it to their ribbon in order to run this macro, I have had horrible attempts at making a macro an add in.

Any help appreciated

Thanks,
BeachMaster

**TMS** · 09-08-2012, 07:16 PM

You'd need an extra slash ...

Sub SaveBook()
   Dim sFile As String
   sFile = "Timesheet" & Format(Now(), "dd.mm.yy") & ".xls"
   ActiveWorkbook.SaveAs Filename:="C:\Users\Bryan\Desktop\Folder\" & sFile
End Sub

Otherwise it's going to be saved to your desktop.

Look here for a routine to get the user's desktop location:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=216

Regards, TMS

**srsly** · 09-08-2012, 07:31 PM

thank you! feel dumb now :/ though, haha.

any links/advice on making macro into an AddIn?

**TMS** · 09-08-2012, 07:52 PM

You're welcome.

http://www.cpearson.com/excel/createaddin.aspx

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

Creating Macro that will save a copy of the workbook to new directory + make it an add in

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Creating Macro that will save a copy of the workbook to new directory + make it an add in

Re: Creating Macro that will save a copy of the workbook to new directory + make it an add

Re: Creating Macro that will save a copy of the workbook to new directory + make it an add

Re: Creating Macro that will save a copy of the workbook to new directory + make it an add

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions