Generation of filenames
Hi everyone,
I am in the process of creating a spreadsheet (a form to be precise) where users insert data. The form is then sent to myself for collation. I am trying to automate the process for the creation of the file name. I have come up with the following: filesaveName = "EEF" + " " + Worksheets(1).Range("E7") + " " + Worksheets(1).Range("E9") + " " + Application.Text(Now(), "dd-mm-yyyy") + " - " + Application.Text(Now(), "hhmm") + "h" & ".xls" ActiveWorkbook.SaveAs (ActiveWorkbook.Path & "\" & filesaveName) ActiveWorkbook.SendMail Recipients:=xxx Supposedly this would generate a title such as EEF Event Date1 Date2 Time.xls I have used used a very similar macro in the past that has worked fine. It didn't contain the "Worksheets(1).Range("X"), which I understands will read the values of a given cell and make them part of the filename. Any suggestions? Thanks in advance :-) |
Generation of filenames
If you want to concatenate different strings and string-variables, use
the ampersand (&) instead of the plus-sign (+). Thus: filesavename = "EFF " & Worksheets(1).Range("E7") & " " & Worksheets (1).Range("E9") & etc... HTH, CoRrRan "correomaster" wrote in oups.com: Hi everyone, I am in the process of creating a spreadsheet (a form to be precise) where users insert data. The form is then sent to myself for collation. I am trying to automate the process for the creation of the file name. I have come up with the following: filesaveName = "EEF" + " " + Worksheets(1).Range("E7") + " " + Worksheets(1).Range("E9") + " " + Application.Text(Now(), "dd-mm-yyyy") + " - " + Application.Text(Now(), "hhmm") + "h" & ".xls" ActiveWorkbook.SaveAs (ActiveWorkbook.Path & "\" & filesaveName) ActiveWorkbook.SendMail Recipients:=xxx Supposedly this would generate a title such as EEF Event Date1 Date2 Time.xls I have used used a very similar macro in the past that has worked fine. It didn't contain the "Worksheets(1).Range("X"), which I understands will read the values of a given cell and make them part of the filename. Any suggestions? Thanks in advance :-) |
Generation of filenames
Thank you so much CoRrRan.
It's worked a treat. Much obliged. Regards Jon On 25 Jan, 13:39, CoRrRan wrote: If you want to concatenate different strings and string-variables, use the ampersand (&) instead of the plus-sign (+). Thus: filesavename = "EFF " & Worksheets(1).Range("E7") & " " & Worksheets (1).Range("E9") & etc... HTH, CoRrRan |
All times are GMT +1. The time now is 02:29 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com