将串口接收到的数据保存到EXCEL文档Word文件下载.docx
《将串口接收到的数据保存到EXCEL文档Word文件下载.docx》由会员分享,可在线阅读,更多相关《将串口接收到的数据保存到EXCEL文档Word文件下载.docx(10页珍藏版)》请在冰豆网上搜索。
com_String=MSComm1.Input
MSComm1.RThreshold=1
i=i+1:
Ifi>
255Theni=1
Application.Cells(3,i).Value=com_String
EndSelect
'
ActiveWorkbook.SaveAsFilename:
="
C:
\d1.xls"
PrivateSubiniMscomm()
OnErrorResumeNext
=====-----初始化通信串口-----=====
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
清空缓冲区
PrivateSubUserForm_Initialize()
iniMscomm
7.双击thisWorkBook,复制以下代码到窗体里:
PrivateSubWorkbook_Open()
UserForm1.Show0
UserForm1.Hide
8.保存文件并关闭excel,然后再打开你的文件,然后单击你窗体上的按钮看看。
9.这个程序是我为你特意做的,已经做过测试,sys2003office2003。
10.如果excel中有数据输入,再去测试你的设置,注意com口号与波特率的设置。
《三》
markexcel串口
还有一个办法就是用任何编程,只需将收到的数据用csv文件的格式,生成一个文本文件,然后就可以用excel打开了。
这个方法适合于任何语言,只要能生成文本文件就可以了。
如果存成txt再打包可以的话,Perl简单些,不熟悉的人3天也能做出来.
Spreadsheet:
:
WriteExcel和Spreadsheet:
ParseExcel
《四》
ExcelVBA串口通信
2010-01-2716:
411466人阅读评论(0)收藏举报
用c#也可以实现这种功能,那就是用serialPort控件,这里用VBA写的,用MSComm控件实现。
其实还有另外一个控件叫NETComm控件,也可以做,源码中注释很清楚,不再赘述
[vb:
showcolumns:
firstline[1]]viewplaincopyprint?
·
10·
20·
30·
40·
50·
60·
70·
80·
90·
100·
110·
120·
130·
140·
150
1.Private
Sub
btn_Close_Click()
2.MSComm1.PortOpen
=
False
打开串口
3.btn_Start.Enabled
True
连接按钮响应
4.btn_Close.Enabled
断开按钮变灰
5.End
6.
7.Private
btn_exit_Click()
8.If
MSComm1.PortOpen
Then
如果串口被打开
9.
关闭按钮
10.End
If
11.Unload
UserForm1
关闭窗体
12.End
13.
14.Private
btn_Start_Click()
15.iniMSComm
对串口控件设置
16.MSComm1.PortOpen
17.btn_Close.Enabled
18.btn_Start.Enabled
19.End
20.
21.Private
iniMSComm()
22.MSComm1.CommPort
1
占用的串口号,1表示COM1
23.MSComm1.Settings
"
115200,n,8,1"
这个自己根据自己的情况设置
24.
25.MSComm1.RThreshold
26.MSComm1.InputLen
0
27.'
True'
这句话放到连接按钮事件中去
28.MSComm1.InputMode
comInputModeText
29.MSComm1.RTSEnable
30.MSComm1.InBufferCount
31.End
32.
33.Private
MSComm1_OnComm()
事件处理
34.Dim
t1
As
Long,
com_string
String
35.Static
i
Integer
36.t1
Timer
37.Select
Case
MSComm1.CommEvent
38.
comEvReceive
如果接收到数据则执行下列语句
39.
MSComm1.RThreshold
40.
Do
41.
DoEvents
42.
Loop
While
-
<
0.1
43.
MSComm1.Input
44.
45.
+
1:
>
255
46.
Application.Cells(3,
i).Value
写到Excel中去
47.
txtRec.Text
写到文本框中去
48.End
Select
49.End
《五》
VBA的妙用:
串口通讯程序与EXCEL相结合
发布时间:
2010-3-11
发布者:
北京世纪长秋科技有限公司
1VBA简介
VisualBasic的应用程序版(VBA)是Microsoft公司长期追求的目标,使可编程应用软件得到完美的实现,它作为一种通用的宏语言可被所有的Microsoft可编程应用软件所共享。
在没有VBA以前,一些应用软件如Excel、Word、Access、Project等都采用自己的宏语言供用户开发使用,但每种宏语言都是独立的,需要用户专门去学习,它们之间互不兼容,使得应用软件之间不能在程序上互联。
拥有一种可跨越多个应用软件,使各应用软件产品具有高效、灵活且一致性的开发工具是至关重要的。
VBA作为一种新一代的标准宏语言,具有上述跨越多种应用软件并且具有控制应用软件对象的能力,使得程序设计人员仅需学习一种统一的标准宏语言,就可以转换到特定的应用软件上去,程序设计人员在编程和调试代码时所看到的是相同的用户界面,而且VBA与原应用软件的宏语言相兼容,以保障用户在代码和工作上的投资。
有了VBA以后,多种应用程序共用一种宏语言,节省了程序人员的学习时间,提高了不同应用软件间的相互开发和调用能力。
2串口通讯程序
简单的串口通讯程序一般是先由上位机向下位机发送读(write)或写(read)数据命令,然后等待下位机应答;
下位机接受到命令之后,首先要对数据命令进行校验,对于符合校验约束的命令下位机会将相应的数据回复到上位机,对于不符合校验约束的命令下位机或将其抛弃或回复错误信息;
上位机接收到下位机的响应之后,首先要对接收到的回复信息进行校验,对不符合校验约束的数据进行异常处理,对符合校验约束的信息进行解码,解码之后的信息便是上位机从下位机获得的有效信息了。
上位机向串口发送读命令之后需要等待下位机应答并读取回复信息,常用的等待有3种方式:
1)轮询式
上位机向串口发送读命令之后一直等待下位机应答,通讯程序处于一个等待循环中。
优点:
速度快、误码率低(几乎不存在误码)。
缺点:
消耗CPU。
(解决办法:
使用Sleep()API函数)。
2)消息式
消息式通讯是采用响应WINDOWS消息的办法读取串口。
节省CPU、误码率低。
发送接收机制过于繁琐。
3)定时接收式
定时接收式通讯是根据预设的定时器时间进行读取数据。
发送接收机制相对简单、节省CPU。
误码率太高,不同的硬件需要配置不同的通讯时间参数,需要严格的校验运算。
3EXCEL-VBA串口通讯实例
软件:
EXCEL。
硬件:
艾默生EC10PLC。
功能:
通过EXCEL中的按钮控制PLC的输出继电器Y0。
界面:
RUN(运行通讯)、STOP(停止通讯)、Y0(Y0ON/OFF控制)。
主程序:
OptionExplicit
PublicDeclare
SubSleepLib"
kernel32"
(ByValdwMillisecondsAsLong)
FunctionSetTimerLib"
user32"
(ByValhwndAsLong,ByValnIDEventAsLong,ByValuElapseAsLong,ByVallpTimerFuncAsLong)AsLong
FunctionKillTimerLib"
(ByValhwndAsLong,ByValnIDEventAsLong)AsLong
Publiccom1AsNewMSCommLib.MSComm
Publicy0SttAsBoolean
Publicy0_onAsBoolean
PublictmrFlagAsBoolean
PublictmrAsLong
Subrunn()
OnErrorGoToed
com1.Settings="
9600,e,8,1"
Ifcom1.PortOpen=FalseThen
com1.PortOpen=True
EndIf
tmr=SetTimer(0,0,500,AddressOfontimer)
ExitSub
ed:
MsgBox"
串口打开错误!
EndSub
Substoppi()
Ifcom1.PortOpen=TrueThen
com1.PortOpen=False
KillTimer0,tmr
PublicFunctionontimer()
Dima(7)AsByte
DimaddAsLong
OnErrorGoToed
IftmrFlag=FalseThen
tmrFlag=True
Ify0_on=TrueThen
y0_on=False
Ify0Stt=TrueThen
a(0)=&
H1
a
(1)=&
H5
a
(2)=&
H0
a(3)=&
a(4)=&
HFF
a(5)=&
a(6)=&
H8C
a(7)=&
H3A
com1.Output=a
add=0
Do
DoEvents
Sleep10
add=add+1
Ifadd>
=100Then
ExitDo
EndIf
LoopUntilcom1.InBufferCount
=8
Else
HCD
HCA
=8
EndIf
EndIf
tmrFlag=False
ExitFunction
MsgBox"
串口错误!
EndFunction
界面程序:
PrivateSubcmd1_Click()
y0_on=True
y0Stt=Noty0Stt
PrivateSubcmdRun_Click()
runn
CheckBox1.Value=1
PrivateSubcmdStop_Click()
stopp
CheckBox1.Value=0
4结束语
由上可见,VBA已经广泛应用于微软的应用软件当中,所以为更好的完善二次开发功能,众多的组态软件都在VBA支持上做了努力,世纪星组态软件开发语言已与VBA非常相似,相信在未来的版本中,世纪星将全面支持VBA,它的二次开发功能会迈上一个新的台阶。
《六》