1、整理将串口接收到的数据保存到EXCEL一用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代码P
2、rivate Sub CommandButton1_Click() MSComm1.Output = BEG1ENDEnd SubPrivate Sub MSComm1_OnComm()Dim t1 As Long, com_String As StringStatic i As Integert1 = TimerSelect Case MSComm1.CommEvent Case comEvReceive 收到 RThreshold定义的字符数1字节 MSComm1.RThreshold = 0 Do DoEvents Loop While Timer - t1 255 Then i = 1
3、 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
4、个字节就产生OnComm事件 MSComm1.InputLen = 0 为 0 时,使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。 MSComm1.InputMode = comInputModeTextInput以二进制形式取回用comInputModeBinary,以文本形式取回是(缺省项) MSComm1.RTSEnable = True MSComm1.InBufferCount = 0 清空缓冲区 End SubPrivate Sub UserForm_Initialize() iniMscommEnd Sub7.双击thisWorkBook,复制以下代码到窗
5、体里:VB codeVBA代码Private Sub Workbook_Open() UserForm1.Show 0 UserForm1.HideEnd Sub8.保存文件并关闭excel,然后再打开你的文件,然后单击你窗体上的按钮看看。9.这个程序是我为你特意做的,已经做过测试,sys2003 office2003。10.如果excel中有数据输入,再去测试你的设置,注意com口号与波特率的设置。三mark excel 串口还有一个办法就是用任何编程,只需将收到的数据用csv文件的格式,生成一个文本文件,然后就可以用excel打开了。这个方法适合于任何语言,只要能生成文本文件就可以了。如果
6、存成txt再打包可以的话, Perl简单些,不熟悉的人3天也能做出来.Spreadsheet:WriteExcel 和 Spreadsheet:ParseExcel四Excel VBA串口通信 2010-01-27 16:41 1466人阅读 评论(0) 收藏 举报 用c#也可以实现这种功能,那就是用serialPort控件,这里用VBA写的,用MSComm控件实现。其实还有另外一个控件叫NETComm控件,也可以做,源码中注释很清楚,不再赘述vb:showcolumns:firstline1 view plaincopyprint?102030405060708090100110120130
7、1401501. PrivateSubbtn_Close_Click()2. MSComm1.PortOpen=False打开串口 3. btn_Start.Enabled=True连接按钮响应 4. btn_Close.Enabled=False断开按钮变灰 5. EndSub6. 7. PrivateSubbtn_exit_Click()8. IfMSComm1.PortOpen=TrueThen如果串口被打开 9. MSComm1.PortOpen=False关闭按钮 10. EndIf11. UnloadUserForm1关闭窗体 12. EndSub13. 14. PrivateSu
8、bbtn_Start_Click()15. iniMSComm对串口控件设置 16. MSComm1.PortOpen=True17. btn_Close.Enabled=True18. btn_Start.Enabled=False19. EndSub20. 21. PrivateSubiniMSComm()对串口控件设置 22. MSComm1.CommPort=1占用的串口号,1表示COM1 23. MSComm1.Settings=115200,n,8,1这个自己根据自己的情况设置 24. 25. MSComm1.RThreshold=126. MSComm1.InputLen=027
9、. MSComm1.PortOpen=True这句话放到连接按钮事件中去 28. MSComm1.InputMode=comInputModeText29. MSComm1.RTSEnable=True30. MSComm1.InBufferCount=031. EndSub32. 33. PrivateSubMSComm1_OnComm()事件处理 34. Dimt1AsLong,com_stringAsString35. StaticiAsInteger36. t1=Timer37. 38. (二)规划环境影响评价的技术依据和基本内容SelectCaseMSComm1.CommEvent3
10、9. 40. 市场价格在有些情况下(如对市场物品)可以近似地衡量物品的价值,但不能准确度量一个物品的价值。三者的关系为:CasecomEvReceive 如果接收到数据则执行下列语句 41. 42. (1)资质等级。评价机构的环评资质分为甲、乙两个等级。环评证书在全国范围内使用,有效期为4年。MSComm1.RThreshold=043. Do44. DoEvents45. 46. 仍以森林为例,营养循环、水域保护、减少空气污染、小气候调节等都属于间接使用价值的范畴。LoopWhileTimer-t1255Theni=151. 52. (2)列出有关的法律、法规、规章、标准、规范和评价对象被批
11、准设立的相关文件及其他有关参考资料等安全预评价的依据。Application.Cells(3,i).Value=com_string写到Excel中去 53. txtRec.Text=txtRec.Text+com_string写到文本框中去 54. EndSelect55. 56. 2.环境影响评价技术导则EndSub2.环境价值的度量最大支付意愿表一:项目基本情况;五4.环境保护地方性法规和地方性规章VBA的妙用:串口通讯程序与EXCEL相结合发布时间:2010-3-11发布者:北京世纪长秋科技有限公司1 VBA简介Visual Basic的应用程序版(VBA)是Microsoft公司长期
12、追求的目标,使可编程应用软件得到完美的实现,它作为一种通用的宏语言可被所有的Microsoft 可编程应用软件所共享。在没有VBA以前,一些应用软件如Excel、Word、Access、Project等都采用自己的宏语言供用户开发使用,但每种宏语言都是独立的,需要用户专门去学习,它们之间互不兼容,使得应用软件之间不能在程序上互联。拥有一种可跨越多个应用软件,使各应用软件产品具有高效、灵活且一致性的开发工具是至关重要的。VBA作为一种新一代的标准宏语言,具有上述跨越多种应用软件并且具有控制应用软件对象的能力,使得程序设计人员仅需学习一种统一的标准宏语言,就可以转换到特定的应用软件上去,程序设计人
13、员在编程和调试代码时所看到的是相同的用户界面,而且VBA与原应用软件的宏语言相兼容,以保障用户在代码和工作上的投资。有了VBA以后,多种应用程序共用一种宏语言,节省了程序人员的学习时间,提高了不同应用软件间的相互开发和调用能力。2 串口通讯程序简单的串口通讯程序一般是先由上位机向下位机发送读(write)或写(read)数据命令,然后等待下位机应答;下位机接受到命令之后,首先要对数据命令进行校验,对于符合校验约束的命令下位机会将相应的数据回复到上位机,对于不符合校验约束的命令下位机或将其抛弃或回复错误信息;上位机接收到下位机的响应之后,首先要对接收到的回复信息进行校验,对不符合校验约束的数据进
14、行异常处理,对符合校验约束的信息进行解码,解码之后的信息便是上位机从下位机获得的有效信息了。上位机向串口发送读命令之后需要等待下位机应答并读取回复信息,常用的等待有3种方式:1) 轮询式上位机向串口发送读命令之后一直等待下位机应答,通讯程序处于一个等待循环中。优点:速度快、误码率低(几乎不存在误码)。缺点:消耗CPU。(解决办法:使用Sleep()API函数)。2) 消息式消息式通讯是采用响应WINDOWS消息的办法读取串口。优点:节省CPU、误码率低。缺点:发送接收机制过于繁琐。3) 定时接收式定时接收式通讯是根据预设的定时器时间进行读取数据。优点:发送接收机制相对简单、节省CPU。缺点:误
15、码率太高,不同的硬件需要配置不同的通讯时间参数,需要严格的校验运算。3 EXCEL-VBA串口通讯实例软件:EXCEL。硬件:艾默生EC10 PLC。功能:通过EXCEL中的按钮控制PLC的输出继电器Y0。界面:RUN(运行通讯)、STOP(停止通讯)、Y0(Y0 ON/OFF控制)。主程序:Option ExplicitPublic DeclareSub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Public DeclareFunction SetTimer Lib user32 (ByVal hwnd As Long, ByVal n
16、IDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPublic DeclareFunction KillTimer Lib user32 (ByVal hwnd As Long, ByVal nIDEvent As Long) As LongPublic com1 As New MSCommLib.MSCommPublic y0Stt As BooleanPublic y0_on As BooleanPublic tmrFlag As BooleanPublic tmr As LongSub ru
17、nn()On Error GoTo edcom1.Settings = 9600,e,8,1If com1.PortOpen = False Thencom1.PortOpen = TrueEnd Iftmr = SetTimer(0, 0, 500, AddressOf ontimer)Exit Subed:MsgBox 串口打开错误!End SubSub stoppi()If com1.PortOpen = True Thencom1.PortOpen = FalseKillTimer 0, tmrEnd IfEnd SubPublic Function ontimer()Dim a(7)
18、 As ByteDim add As LongOn Error GoTo edIf tmrFlag = False ThentmrFlag = TrueIf y0_on = True Theny0_on = FalseIf y0Stt = True Thena(0) = &H1 a(1) = &H5 a(2) = &H0 a(3) = &H0 a(4) = &HFF a(5) = &H0 a(6) = &H8C a(7) = &H3A com1.Output = a add = 0DoDoEventsSleep 10add = add + 1If add = 100 ThenExit DoEn
19、d IfLoop Until com1.InBufferCount= 8 Elsea(0) = &H1 a(1) = &H5 a(2) = &H0 a(3) = &H0 a(4) = &H0 a(5) = &H0 a(6) = &HCD a(7) = &HCA com1.Output = a add = 0DoDoEventsSleep 10add = add + 1If add = 100 ThenExit DoEnd IfLoop Until com1.InBufferCount= 8End IfEnd IfEnd IftmrFlag = FalseExit Functioned: Msg
20、Box 串口错误!tmrFlag = FalseEnd Function界面程序:Private Sub cmd1_Click()y0_on = Truey0Stt = Not y0SttEnd SubPrivate Sub cmdRun_Click()runnCheckBox1.Value = 1End SubPrivate Sub cmdStop_Click()stoppCheckBox1.Value = 0End Sub4 结束语由上可见,VBA已经广泛应用于微软的应用软件当中,所以为更好的完善二次开发功能,众多的组态软件都在VBA支持上做了努力,世纪星组态软件开发语言已与VBA非常相似,相信在未来的版本中,世纪星将全面支持VBA,它的二次开发功能会迈上一个新的台阶。六
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1