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

最新推荐文章于 2022-07-07 20:44:22 发布

我的未来式i

最新推荐文章于 2022-07-07 20:44:22 发布

阅读量2.8k

点赞数 3

文章标签： excel 经验分享

本文链接：https://blog.csdn.net/m0_46313131/article/details/107615738

版权

下面是在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