Question

我想使用excel vba将文件自动命名。例如，现在是2013年的第11周，我的文件名想命名为2013011.xls，如何做

Answer 1

Sub 年份周()
zs = Application.RoundUp(DateDiff("d", DateSerial(Year(Date) - 1, 12, 31), Date) / 7, 0) '计算周数
MC = Year(Date) & "0" & zs '名称
Application.DisplayAlerts = False '不显示警告信息框
ActiveWorkbook.SaveAs Filename:=MC '当前活动的工作簿存盘为MC

End Sub
自做按钮试试！

Answer 2

鼠标右击－重命名，即可！

追问

谢谢啊！我要的是VBA代码如何编写？

Answer 3

好像不能自动命名，你新建的时候就可以输入，这个好方便的，并且可以随便改。

Answer 4

你有很多工作表吗。需要用VBA。