如何在Excel VBA中使用winsock控件

问题描述

我试图在我的 Excel 中使用 winsock 控件(用 VB6 生成的 MSWINSCK.OCX)。以下是我所做的:

1、从网上下载MSWINSCK.ocx,复制到c:\windows\SysWOW64

2、以管理员身份运行regsvr32 C:\Windows\SysWOW64\MSWINSCK.OCX 成功

3、根据网上的建议导入以下注册表文件:

注册编辑 HKEY_CLASSES_ROOT\Licenses = 许可:复制密钥可能违反既定版权。

// Winsock Control 6.0 许可证密钥 HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d = mlrljgrlhltlngjlthrligklpkrhllglqlrk

4、打开我的Excel可视化基本窗口

5、插入用户表单

6、从tools->reference,浏览上面的.ocx文件,选择Microsoft Winsock Control 6.0

7、在用户窗体上放一个命令按钮,双击添加如下代码:

  Dim tcpclient As New Winsock

  tcpclient.Connect "localhost",5100

到目前为止,一切似乎都很好。当我输入“tcpclient”时。系统甚至提示我 .Accept .Close .Connect .....
听起来不错。

然后我开始运行用户表单,然后单击命令按钮,然后收到错误: 运行时错误 -2147221164(80040154) 类未注册

你能帮我看看有什么问题吗?

我需要使用 winsock 控件,以便从我的 Excel 连接 TCP 服务器。

非常感谢!

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)