文章介绍如何获取计算机名的方法:使用VBA代码获取计算机名称之后,再使用系统属性来检测获取到的计算机名称是否正确.
关于如何获取计算机名称的方法有多样。最直接的一种获取计算机名称的方法:单击桌面上的“我的电脑”图标,鼠标右键,选择“属性”,在“计算机名”选项卡,可以查看到自己完整的计算机名称。如下面截图所示:
不过,对于咱们的excel迷们,肯定想用VBA自己写句代码玩玩,呵呵。
随意新建或者使用已打开的工作表都可以,按下ALT+F11,打开VBE编辑器,单击菜单:插入——模块,新建模块1,在右边代码窗口复制下面的代码,然后单击绿色三角形或者按F5键运行,会弹出一个消息框,显示的就是利用VBA代码获取到的计算机名称。
Sub 获取计算机名称()
? Dim str As String
? str = Environ("Computername")
? MsgBox str
End Sub
?
上面这段VBA代码获取计算机名称,关键的一点就是Environ函数的使用。
……