excel工作表另存副本，文件名由指定单元格的值命名

下面是在sheet1中，在J1单元格中建立一个函数得到需要的值，建立副本，将J1的值赋给文件名，保存文件。

Sub copybook()
’
’ copybook 宏
’
’
Sheets(“sheet1”).Select
Range(“J1”).Select
ActiveCell.FormulaR1C1 = _
“=RIGHT(R[1]C[-3], LEN(R[1]C[-3]) - 3)&LEFT(RIGHT(R[1]C[-9], LEN(R[1]C[-9]) - 5), LEN(RIGHT(R[1]C[-9], LEN(R[1]C[-9]) - 5)) - 4)&LEFT(R[5]C[-8], 4)”
Range(“J1”).Select
Sheets(“sheet1”).Copy
Dim iuser
iuser = Environ(“username”)
ChDir “C:\Users” & iuser & “\Desktop”
ActiveWorkbook.SaveAs Filename:=“C:\Users” & iuser & “\Desktop” & Range(“J1”).Value & “.xlsx”, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Range(“J1”).Select
Selection.ClearContents
Range(“A1”).Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub