将串口接收到数据保存到EXCEL文档.docVIP

下载本文档

33
0
约7.15千字
约 10页
2017-07-30 发布于北京
举报
版权申诉

将串口接收到数据保存到EXCEL文档.doc

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

《一》用VB DDE通讯！1.启动excel从：工具--宏--Visual Basic 编辑器,打开excel VBA.2.在ThisWorkbook上右单击鼠标选择插入--用户窗体3.单击一下插入的窗体，单击菜单上的--工具--附加控件--选择Microsoft Communications Control, version 6.04.在窗体上添加mscomm1,添加commandButton15.单串口机子，短接rs232的2脚和3脚，双串口机子用232线连接两个串口，注意2、3线交叉，我这里以单串口短接举例。6.复制以下代码到你的窗体里：VB codeVBA代码Private Sub CommandButton1_Click()? ?MSComm1.Output = BEG1ENDEnd SubPrivate Sub MSComm1_OnComm()??Dim t1 As Long, com_String As String??Static i As Integer??t1 = Timer????Select Case MSComm1.CommEvent? ???Case comEvReceive 收到 RThreshold定义的字符数1字节? ?? ?? ???MSComm1.RThreshold = 0? ?? ?? ? Do? ?? ?? ?? ? DoEvents? ?? ?? ? Loop While Timer - t1 0.1 延时时间自己调整? ?? ?? ? com_String = MSComm1.Input? ?? ?? ? MSComm1.RThreshold = 1? ?? ?? ? i = i + 1: If i 255 Then i = 1? ?? ?? ? Application.Cells(3, i).Value = com_String? ?? ? End Select? ?? ? ActiveWorkbook.SaveAs Filename:=C:\d1.xlsEnd SubPrivate Sub iniMscomm()? ?On Error Resume Next=====-----初始化通信串口-----=====? ?MSComm1.CommPort = 1? ?? ?? ?? ?? ?? ?? ?使用 COM1? ?MSComm1.Settings = 9600,N,8,1? ?? ?? ? 9600 波特，无奇偶校验，8 位数据，一个停止位? ?MSComm1.PortOpen = True? ?? ?? ?? ?? ?? ?打开端口? ?? ?MSComm1.RThreshold = 1? ?? ?? ?? ?? ?? ? 缓冲区有1个字节就产生OnComm事件? ?MSComm1.InputLen = 0? ?? ?? ?? ?? ?? ?? ?为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。? ?? ?MSComm1.InputMode = comInputModeText??Input以二进制形式取回用comInputModeBinary，以文本形式取回是（缺省项）? ?MSComm1.RTSEnable = True? ?MSComm1.InBufferCount = 0? ?? ?? ?? ?? ? 清空缓冲区? ?End SubPrivate Sub UserForm_Initialize()? ? iniMscommEnd Sub7.双击thisWorkBook,复制以下代码到窗体里：VB codeVBA代码Private Sub Workbook_Open()? ?UserForm1.Show 0? ?UserForm1.HideEnd Sub8.保存文件并关闭excel,然后再打开你的文件，然后单击你窗体上的按钮看看。9.这个程序是我为你特意做的，已经做过测试，sys2003 office2003。10.如果excel中有数据输入，再去测试你的设置，注意com口号与波特率的设置。mark excel 串口还有一个办法就是用任何编程，只需将收到的数据用csv文件的格式，生成一个文本文件，然后就可以用excel打开了。这个方法适合于任何语言，只要能生成文本文件就可以了。如果存成txt再打包可以的话， Perl简单些,不熟悉的人3天也能做出来.Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcelExce