主题：代码

 请上传例子啊，你永远都是这样提问题，别人不知道怎么答你。

 不能，Book.Sheets 没有这种功能

 没有

 无论是book还是wb，都是要打开才能操作的啊。没你说的什么节省时间。

 无语，你问问题能不具体一点啊。

Dim dat As Date
Dim mm As Integer
Dim c As Date = vars("cc")
Dim y As Integer = c.year
Dim m As Integer = c.month
Dim d As Integer = c.Day

Dim s As String = y & "年" & m & "月" & d & "日"

 

改成

 

Dim dat As Date
Dim mm As Integer
Dim c As Date = vars("cc")

Dim s As String = Format(d, "yyyy年MM月dd日")

 

 

Dim d As Date = 日期.AddMonths(1).AddDays(-1)