VBA问题急悬赏50分 我用日期命名工作簿如2009年9月10日如何用VBA另存为2009年9月11日，以此类推

用VBA是可以实现的。利用ThisWorkbook的open事件，在ThisWorkbook中加入如下代码：

Private Sub Workbook_open()

Dim fileName, myStr() As String

fileName = ThisWorkbook.Name

myStr = Split(fileName, ".")

fileName = myStr(0) &"." &myStr(1) &"." &(myStr(2) + 1) &"." &myStr(3)

ThisWorkbook.SaveAs "C:\" &fileName

End Sub

打开文件的时候就会自动执行。

注意：程序中并没有判断是不是到了当月的最大天数，如果已达到最大天数就不对了。不适用于此情况。

建议还是用OFFICE吧，可能你看中的是WPS有标签功能，其实这个功能在OFFICE中安装一个插件OfficeTab就可以实现了；

WPS中应用VBA容易出错，特别是共享工作簿中。

---