ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 9123|回复: 9

[讨论][求助]EXcel与串口通讯的问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-1-10 11:25 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
课题: 利用Excel采集串口数据 串口连线 9P 2 3 5 <--> 25P 3 2 7 设备通过232接口输出字符数据, 串口数据通信协议是:数据传输速率为 4800bps,1位开始位,8位数据位,2位停止位,无奇偶校验位。 必须先在win2k/xp system32下添加MSComm控件 ----- Regsvr32 C:\WINNT\SYSTEM32\MSCOMM32.OCX 通讯程序: Private Sub CommandButton1_Click() With MSComm1 If .PortOpen = False Then .CommPort = 4 .Settings = "4800,N,8,2" .InBufferSize = 80 .OutBufferSize = 2 .InputMode = comInputModeText .InputLen = 80 .SThreshold = 1 .InBufferCount = 0 .OutBufferCount = 0 .RThreshold = 1 .PortOpen = True If Err Then MsgBox "comm error" Exit Sub End If End If aa = "" k = 1 Select Case .CommEvent Case comEvReceive aa = cc av = .Input cc = aa & av If av== vbCr Then Sheets("data").Range("a" & k) = cc k = k + 1 Case Else End Select End With End Sub 目的是把串口采集到数据的送到 "data" 表中处理, 如果通过F8模式运行程序,可以实现数据的采集,但自动运行时出现表中采集不到数据的现象,这时候会有什么问题发生? 如果增加 Msgbox cc 有一个人机交互的过程,也能采集到数据. * 请问高手能解决这个问题吗? 是否数据处理速度不匹配造成的缓冲区丢失? [em06][

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-1-11 11:19 | 显示全部楼层
没有人对串口有研究?

TA的精华主题

TA的得分主题

发表于 2008-8-27 14:04 | 显示全部楼层
可以用VBA中的VBCOMMM控件,我已经实现串口接收数据,并且接收一行,换一行(一行中包括不同的单元格数据)

TA的精华主题

TA的得分主题

发表于 2010-11-27 16:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-6-1 19:13 | 显示全部楼层
minlee 发表于 2008-8-27 14:04
可以用VBA中的VBCOMMM控件,我已经实现串口接收数据,并且接收一行,换一行(一行中包括不同的单元格数据)

您好,怎样才能和您联系上呢?我的QQ2656569734。请QQ我!谢谢!

TA的精华主题

TA的得分主题

发表于 2012-6-1 19:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
DJFDVJ 发表于 2012-6-1 19:13
您好,怎样才能和您联系上呢?我的QQ2656569734。请QQ我!谢谢!

VBA没有VBCOMM控件。安装vb6sp6之后,可以使用mscomm控件

TA的精华主题

TA的得分主题

发表于 2014-5-18 06:06 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-5-18 06:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
老贴变新,也是在求助啊

TA的精华主题

TA的得分主题

发表于 2015-8-3 16:06 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
minlee 发表于 2008-8-27 14:04
可以用VBA中的VBCOMMM控件,我已经实现串口接收数据,并且接收一行,换一行(一行中包括不同的单元格数据)

能有简单实例分享一下吗?我也在研究这个呢,多谢了!

TA的精华主题

TA的得分主题

发表于 2024-10-21 15:48 | 显示全部楼层
minlee 发表于 2008-8-27 14:04
可以用VBA中的VBCOMMM控件,我已经实现串口接收数据,并且接收一行,换一行(一行中包括不同的单元格数据)

能给个样表吗,还需要下载哪些东西,网上目前的都不能开启端口,2330390662@qq.com
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-19 13:29 , Processed in 0.045618 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表