Snasui Excel Forum

Code: Select all

Sub MoveToNew()
'Move the active sheet to a new Workbook.

    ActiveSheet.Move

    Dim sheetName As String
    Set sheetName = ActiveSheet
    sheetName = sheetName.Range("B1").Value
        
    ChDir "D:\energy_EV\ex_energy_EV"
    ActiveWorkbook.SaveAs Filename:="D:\energy_EV\ex_energy_EV\Test" & sheetName & ".xls"
        
End Sub

Code: Select all

'Other code
Dim sh As Worksheet, bkName As String
ActiveSheet.Move

Set sh = ActiveSheet
bkName = sh.Range("d1").Value
    
ChDir "D:\energy_EV\ex_energy_EV"
ActiveWorkbook.SaveAs Filename:="D:\energy_EV\ex_energy_EV\Test" & bkName & ".xls"

Code: Select all

ActiveSheet.Move

Code: Select all

Sub Macro2_MoveToNewSave()

'Windows("test_meter.xlsm").Activate

Dim sh As Worksheet, bkName As String
        
Dim WS As Worksheet
Set WS = ActiveSheet
WS.Name = "data"    'à»ÅÕ蹪×èÍ sheet

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

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

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

End Sub