Rename excel files in a folder

[ikantimahanti]

I started a new job in Cognos reporting. We scheduled to run reports n save(in Excel format) in a particular folder. But the reports are saving with a unique system generated numbers. I need to save the Excel file names with a filename derived from cell A1.

Please help with a solutions, any help would be greatly appreciated.

Thanks,
Isaac

 

[VoG]

Maybe like this

Sub SaveMe()
ActiveWorkbook.SaveAs Filename:=Sheets("Sheet1").Range("A1").Value & ".xls"
End Sub

 

[ikantimahanti]

Thank you so much for your quick reply VoG. Is this code should be run as a batch file?

 

[VoG]

Open your file then press ALT + F11 to open the Visual Basic Editor, select Module from the Insert menu, copy the code and paste into the white space on the right. Press ALT + Q to close the code window.

Press ALT + F8, click on SaveMe then click the Run button.

 

[ikantimahanti]

Run-time error'1004'

VB projects and XLM sheets cannot be saved in a macro-free workbook. It didnt take me to save as option to save it as macro-free...

 

[ikantimahanti]

sorry being a noob, i got to do this...and i have dont know much abt Excel.

Thanks for your patience

 

[VoG]

Sorry, if you are using Excel 2007 or later

Sub SaveMe()
ActiveWorkbook.SaveAs Filename:=Sheets("Sheet1").Range("A1").Value & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

 

[ikantimahanti]

Yes, we are using Excel 2007. sorry i didnt mentioned the version

 

[ikantimahanti]

Run-time error'1004'
Method 'SaveAs' of object'_Workbook' failed

 

[VoG]

What exactly is in A1 on Sheet1?