Save as Visual Script Help

J

Jeremy

I am using the following code to script a save as and am needing help how to
add time to the end. This would mean that the time on the computer would be
placed after published.

Current Code
NFN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) &
"Published"
FULL = ActiveWorkbook.Path & "\" & NFN & ".XLS"
ActiveWorkbook.SaveAs FULL


Thank you
 
J

Jeremy

I do know that the : will be a problem with the formating of a file name so
something like - or just putting the numbers together would be fine
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Convert Multiple CSV Files to XLS Files (Again) 2
SaveAs in xlNormal Format 2
Problem with an amended macro. Please help! 4
Unable to open .xls files saved by other users 1
Excel activate in excel vba 0
Save As macro 2
Failed to add footer one of work sheet, Thanks 3
runtime error 1004 saveas text file 2

Top