J
Jodie
I would like to write a macro to save an excel file with the name being equal
to the first 3 digits of cell A1. Can this be done?
to the first 3 digits of cell A1. Can this be done?
D
Dave Peterson
With activeworkbook
.saveas filename:="C:\somepath\" _
& left(.worksheets("Somesheetname").range("a1").value, 3) & ".xls", _
fileformat:=xlworkbooknormal
end with
If the value in A1 of that sheet is a number, you may want:
& left(format(.worksheets(somesheetname").range("a1").value, "000"), 3) & ...
so 1 is saved as 001.xls
.saveas filename:="C:\somepath\" _
& left(.worksheets("Somesheetname").range("a1").value, 3) & ".xls", _
fileformat:=xlworkbooknormal
end with
If the value in A1 of that sheet is a number, you may want:
& left(format(.worksheets(somesheetname").range("a1").value, "000"), 3) & ...
so 1 is saved as 001.xls
M
Mike H
Hi,
Try this
ActiveWorkbook.SaveAs Filename:=Left(Sheets("Sheet1").Range("A1"), 3) & ".xls"
Mike
Try this
ActiveWorkbook.SaveAs Filename:=Left(Sheets("Sheet1").Range("A1"), 3) & ".xls"
Mike
J
Jodie
Hi Mike, I am getting an "expected end of statement" error at "sheet1".
G
Gord Dibben
Did you type the code into your module?
Maybe you missed a parens?
Copy the line and it works.
Gord Dibben MS Excel MVP
Maybe you missed a parens?
Copy the line and it works.
Gord Dibben MS Excel MVP
M
Merlynsdad
Check for typos; it just worked for me. I put 123456 in A1 and now have
123.xls.
123.xls.
J
Jodie
Would it have something to do with the fact that I am starting with a csv
file?
file?
G
Gord Dibben
No
That particular error indicates a type in the line of code.
As I said before.......probably a missing parens.
Gord Dibben MS Excel MVP
That particular error indicates a type in the line of code.
As I said before.......probably a missing parens.
Gord Dibben MS Excel MVP
J
Jodie
Thank you everyone. I got it to work. 