excel中如何用vba将工作表sheet1重命名，因为要重命名的名称是变量，所以搞不定。
1个回答
展开全部
Sub
rename
myDate
=
Format(Date,
"[$-409]dd-mmm-yy;@")
'得到美式的日期格式
mymonth
=
Split(myDate,
"-")
'split此日期格式，找到当前的月份的英语简写
myName
=
UCase(mymonth(1))
&
UCase(mymonth(0))
&
Year(Date)
&
"N"
'你需要的格式
Sheets(1).Name
=
myName
End
Sub
rename
myDate
=
Format(Date,
"[$-409]dd-mmm-yy;@")
'得到美式的日期格式
mymonth
=
Split(myDate,
"-")
'split此日期格式，找到当前的月份的英语简写
myName
=
UCase(mymonth(1))
&
UCase(mymonth(0))
&
Year(Date)
&
"N"
'你需要的格式
Sheets(1).Name
=
myName
End
Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
