1、f=Dir
2、Kill(oldpath)'删除原工作簿
3、【呈凰门】呈凰乃喜庆吉祥之兆，呈谐音乘和成，凰谐音皇，今朝天下，谁家成皇？
4、m=Left(f,InStrRev(f,".")-1)
5、【明启派】黑与白之分，明就是光与白的意思，示意正义之士
6、【暮极城】机关之所，“暮”谐音“木”，“极”谐音“几”，双字并和“机”关；也有暮尽晨起，黎明将近之意
7、wb.SaveAs(th.Path&"\"&m&t&".xls")'保存为新工作薄
8、f=Dir(th.Path&"\*.xls")'获取文件夹地址许同一个版本：xls
9、在个人昵称设置界面，直接将你生成的文字和号码，点击粘贴，粘贴到名字对话框中。
10、答：在文件夹下新建一个excel文件，新建个宏输入下面的vba代码，点运行宏，再把你新建的那个excel文件删除。
11、【清谷派】世上只有神仙五谷不食，清谷寓意神仙之地，非凡人之所
12、Setwb=Workbooks.Open(th.Path&"\"&f)
13、oldpath=th.Path&"\"&m&".xls"
14、DimfAsString,wbAsWorkbook,thAsWorkbook,tAsString,mAsString,oldpathAsString
15、微信名字用不了颜文字，因为微信名字不予许有符号，但是颜文字是符号组成的
16、Application.ScreenUpdating=True'恢复刷屏
17、Application.ScreenUpdating=False'关闭刷屏
18、Application.DisplayAlerts=False'关闭警告和消息
19、Iff<>th.NameThen'判断是否为当前工作表
20、Application.DisplayAlerts=True
21、【万宗派】万事皆有其宗万宗皆有其门派之源
22、EndSub
23、DoWhilef>""
24、在界面中输入你想要的文字和号码，随后点击复制，复制你输入的文字和号码。
25、【乾龙庄】山不在高，有仙则灵；水不在深，有龙则灵；龙戏浅水，卧虎藏龙
26、wb.Close
27、选择“上标生成器”小程序，并点击进入。
28、【倾世宫】一朝倾尽天下世上舍我其谁？
29、t=InputBox("输入工作簿名称后需要添加的内容")
30、Loop
31、进入微信小程序界面，并输入“上标生成器”，然后点击搜索。
32、在昵称后面添加小字的方法如下：
33、Sub批量添加修改同目录下工作薄名称()
34、Setth=ThisWorkbook
35、【鸣凤谷】不鸣则已，一鸣惊人，凤凰之意，涅磐重生，不死长存；凤为先，寓意冲天而起
36、EndIf
37、粘贴完成后，点击界面右上角的“完成”按钮即可。