excel中使用vba来获取系统信息的方法工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

首先我们打开一个工作样表作为例子。

2/6

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub GetSystemInfo()

MsgBox Excel版本信息为: Application.CalculationVersion

MsgBox 本机操作系统的名称和版本为: Application.OperatingSystem

MsgBox 本产品所登记的组织名为: Application.OrganizationName

MsgBox 当前用户名为: Application.UserName

MsgBox 当前使用的Excel版本为: Application.Version

End Sub

3/6

这里我们使用的msgbox提示信息并反馈方法返回值，msgbox的提示信息我们采用的默认参数，内容为双引号包括的文字信息，并以连接符链接方法返回值。

4/6

同样我们可以将其值写入单元格中，稍微修改一下代码，将返回值赋予区域单元格即可完成这个目的。Worksheets(Sheet2).Range(A1) = Excel版本信息为: Application.CalculationVersion

5/6

这里有一点问题是，使用vba函数获取的信息因为版本的原因会造成信息缺失。虽然获取信息是读取软件的版本号，但是处于各种原因，实际上得到的信息也可能不正确，大家不必深究。

6/6

这里将选取单元格，并将返回值写入工作表的代码贴出来，大家可以思考一下，可以使用其他的方法去达到这个目的。

Sub GetSystemInfo()

Worksheets(Sheet2).Range(A1) = Excel版本信息为: Application.CalculationVersion

Worksheets(Sheet2).Range(A2) = 本机操作系统的名称和版本为: Application.OperatingSystem

Worksheets(Sheet2).Range(A3) = 本产品所登记的组织名为: Application.OrganizationName

Worksheets(Sheet2).Range(A4) = 当前用户名为: Application.UserName

Worksheets(Sheet2).Range(A5) = 当前使用的Excel版本为: Application.Version

End Sub

注意事项

谢谢你的投票。

你的投票是我编辑经验的动力。谢谢你。

EXCEL表格系统信息