如何获取计算机名称的方法：系统属性和VBA代码

关于如何获取计算机名称的方法有多样。最直接的一种获取计算机名称的方法：单击桌面上的“我的电脑”图标，鼠标右键，选择“属性”，在“计算机名”选项卡，可以查看到自己完整的计算机名称。如下面截图所示：

不过，对于咱们的excel迷们，肯定想用VBA自己写句代码玩玩，呵呵。

随意新建或者使用已打开的工作表都可以，按下ALT+F11，打开VBE编辑器，单击菜单：插入——模块，新建模块1，在右边代码窗口复制下面的代码，然后单击绿色三角形或者按F5键运行，会弹出一个消息框，显示的就是利用VBA代码获取到的计算机名称。

Sub获取计算机名称()
 DimstrAsString
 str=Environ("Computername")
 MsgBoxstr
EndSub
 
上面这段VBA代码获取计算机名称，关键的一点就是Environ函数的使用。