excel 如何取得计算机名称的办法：系统属性与VBA代码

文章介绍如何获取计算机名的方法:使用VBA代码获取计算机名称之后,再使用系统属性来检测获取到的计算机名称是否正确.

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

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

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

Sub 获取计算机名称()
? Dim str As String
? str = Environ("Computername")
? MsgBox str
End Sub
?
　　上面这段VBA代码获取计算机名称，关键的一点就是Environ函数的使用。