1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub 蘅荫酸圉GetSystemInfo()MsgBox "Excel版本信息为:" & Application.CalculationVersionMsgBox "本机操作系统的名称和版本为:" & Application.OperatingSystemMsgBox "本产品所登记的组织名为:" & Application.OrganizationNameMsgBox "当前用户名为:" & Application.UserNameMsgBox "当前使用的Excel版本为:" & Application.VersionEnd Sub
3、这里我们使用的msgbox提示信息并反馈方法返回值，msgbox的提示信息我们采用的默认参数，内容为双引号包括的文字信息，并以连接符链接方法返回值。
4、同样我们可以将其值写入单元坼黉赞楞格中，稍微修改一下代码，将返回值赋予区域单元格即可完成这个目的。Worksheets("Sheet2").Range("A1&qu泠贾高框ot;) = "Excel版本信息为:" & Application.CalculationVersion
5、这里有一点问题是，使用vba函数获取的信息因为版本的原因会造成信息缺失。虽然获取信息是读取软件的版本号，但是处于各种原因，实际上得到的信息也可能不正确，大家不必深究。
6、这里将选取单元格，并訇咀喃谆将返回值写入工作表的代码贴出来，大家可以思考一下，可以使用其他的方法去达到这个目的。Sub GetSystemInfo()Worksheets("稆糨孝汶;Sheet2").Range("A1") = "Excel版本信息为:" & Application.CalculationVersionWorksheets("Sheet2").Range("A2") = "本机操作系统的名称和版本为:" & Application.OperatingSystemWorksheets("Sheet2").Range("A3") = "本产品所登记的组织名为:" & Application.OrganizationNameWorksheets("Sheet2").Range("A4") = "当前用户名为:" & Application.UserNameWorksheets("Sheet2").Range("A5") = "当前使用的Excel版本为:" & Application.VersionEnd Sub
