代码运行结果：

代码截图：

代码文本：

Public Sub 获取当前工作表的用户名()
    MsgBox "当前用户名是: " & Application.UserName
End Sub

注释：

不论是获取当前工作表的用户名，或是当前工作簿名称，或是当前工作表名称，都有可能在其他规模代码中用到，小编会在接下来的基础案例中一个个展现给大家，遇到可能需要的代码收藏，亲手敲几遍，不积跬步无以至千里，小伙伴们坚持住，要加油哦！

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接：http://excel880.com/blog/archives/11297