在WIN7和EXCEL2010中安装MSCOMM方法

在WIN764位机Excel 2010安装MSCOMM控件的方法及遇到CANNOT INSERT OBJECT 及 the subject is not trusted for the specified action的应对措施

查遍网上所有中文文献，仍无法解决这个问题，最后只有遍查了英文文献，才最终解决了这个问题，不敢独自享用，拿来给大家分享。

安装MSCOMM控件:

1.需要的文件Mscomm.reg, Mscomm3

2.ocx,Mscomm32.dep，可以在VB安装目录中找到，也可以在网上下载，还可在C:\Windows\SysWOW64找到，可能只用Mscomm32.ocx仍然可行这个文件，把他们复制到SysWOW64文件夹下, 注意不是以前的system32。

2.注册，运行-〉regsvr32 mscomm32.ocx

3.修改注册表的信息，在注册表的在HKEY_CLASSES_ROOT\Licenses下建一主键:

4250E830-6AC2-11cf-8ADB-00AA00C00905，主键的内容为kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun.

如果缺少这一步，在使用的时候会提示“注册信息没有找到，不能在设计模式下使用该控件。

4.在Delphi环境下把它添加到组件栏：Component菜单下选Import ActiveX Control,这时在列表中可以看到MicrosoftComm Control 6.0选项。

5.无论你如何努力，仍无法在workbook 或worksheet上出现电话机的控件图标，会出现“CANNOT INSERT OBJECT”你需要打开VBA后在useform上添加此电话图标。

6.此时在useform上直接插入这个标志时会出现“the subject is not trusted for the specified action”，这时你需要使用注册命令regedit，搜索注册表648A5600-2C6E-101B-82B6-000000000014，应出现

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\ Internet Explorer\ActiveX Compatibility\{648A5600-2C6E-101B-82B6-000000000014}

将the compatibility flag的值原为400, 将它改为0，

若是老机器，位置则在

HKEY_LOCAL_MACHINE\Software\Microsoft\InternetExplorer\ActiveXCompatibility\{648A5600-2C6E-1 01B-82B6-000000000014}

此时你可以完美地实现串口功能，双击电话图标，将出现梦想中的结果

Private Sub MSComm1_OnComm()

End Sub