Snasui Excel Forum

Code: Select all

Sub MoveToNewSave()
Dim sh As Worksheet, bkName As String

ActiveSheet.Move
'Move the active sheet to a new Workbook.

Set sh = ActiveSheet
'bkName = sh.Range("M3").Value
bkName = Format(sh.Range("A3").Value, "YYYY_MM_") & sh.Range("M3").Value
'SaveAs Filename ª×èÍã¹à«Å

ChDir "D:\energy_EV\newmonth"
'ActiveWorkbook.SaveAs Filename:="D:\energy_EV\ex_energy_EV\Test" & bkName & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\energy_EV\newmonth\" & bkName & ".xlsx"


End Sub

Code: Select all

bkName = Format(sh.Range("A3") - 198327, "YYYY_MM_") & sh.Range("M3").Value