Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as using cell content in file name
Can someone help with code that changes the "save As" file name to
combination of the original File Name + the contents of a cell, an saves file in same folder as the original. E.G. Original File Name= Timesheet Cells B1= Location Cell C1 = Date in format 3-5-2004 Cell A1 = concatenate(B1,C1) Fle Name will therefore "Timesheet Location 3-5-2004" The other problem is with the date. When concatenating, how do I forma the date to avoid it looking like "Location 38051" Any help much appreciated Nic -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save as using cell content in file name
Hi Nick,
Try this code, changing cell, sheet, thisworkbook (activeworkbook) reference as appropriate. HTH, Mark Sub test() Dim sString As String ' You don't need to use a string variable as you could just use this as an argument to saveas ' Get full workbook path and name, but remove (.xls) ' Get contents of cell, but format as required sString = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4) & _ Format(ThisWorkbook.Worksheets("Sheet1").Range("a1 ").Value, "dd-mm-yyyy") ThisWorkbook.SaveAs sString End Sub "NickMinUK " wrote: Can someone help with code that changes the "save As" file name to a combination of the original File Name + the contents of a cell, and saves file in same folder as the original. E.G. Original File Name= Timesheet Cells B1= Location Cell C1 = Date in format 3-5-2004 Cell A1 = concatenate(B1,C1) Fle Name will therefore "Timesheet Location 3-5-2004" The other problem is with the date. When concatenating, how do I format the date to avoid it looking like "Location 38051" Any help much appreciated Nick --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
need to save multi lingual content from an Excel file to a CSV fil | Excel Discussion (Misc queries) | |||
Requiring Cell Content on Save | Excel Discussion (Misc queries) | |||
content of cell change when print file | Excel Discussion (Misc queries) | |||
link cell content to another file | Excel Discussion (Misc queries) | |||
how do i automaticly "save as" using a cell's content as file nam | Excel Discussion (Misc queries) |