昨天不是给你整过一个吗？
RibbonTabs("工作").Groups("工作组").Items("标签2").Text = "星期" & "日一二三四五六".Chars(Today.DayOfWeek)
加好友 
发短信
Post By：2011/10/25 13:07:00 [显示全部帖子]
