标题:
将串口接收到的数据保存到EXCEL文档
[打印本页]
作者:
shillan
时间:
2011-12-4 11:24
标题:
将串口接收到的数据保存到EXCEL文档
1.启动excel从：工具-->宏-->Visual Basic 编辑器,打开excel VBA.
2.在ThisWorkbook上右单击鼠标选择插入--用户窗体
3.单击一下插入的窗体，单击菜单上的--工具--附加控件--选择Microsoft Communications Control, version 6.0
4.在窗体上添加mscomm1,添加commandButton1
5.单串口机子，短接rs232的2脚和3脚，双串口机子用232线连接两个串口，注意2、3线交叉，这里以单串口短接举例。
6.复制以下代码到窗体里：
'VBA代码
Private Sub CommandButton1_Click()
MSComm1.Output = "BEG1END"
End Sub
Private 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.xls"
End Sub
Private 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 Sub
Private Sub UserForm_Initialize()
iniMscomm
End Sub
复制代码
7.双击thisWorkBook,复制以下代码到窗体里：
'VBA代码
Private Sub Workbook_Open()
UserForm1.Show 0
'UserForm1.Hide
End Sub
复制代码
8.保存文件并关闭excel,然后再打开你的文件，然后单击你窗体上的按钮看看。
9.程序已经做过测试，sys2003 office2003。
10.如果excel中有数据输入，再去测试设置，注意com口号与波特率的设置。
作者:
woiitb8
时间:
2011-12-6 09:12
纯粹帮顶~~~~
作者:
贝斯特
时间:
2011-12-9 10:21
- 学习了。。。
作者:
红红的灯
时间:
2012-1-28 14:41
感激涕零，谢谢楼主的好贴
作者:
qazwer168
时间:
2012-2-7 12:36
今天没事来逛逛
作者:
xkwhh
时间:
2012-3-9 08:23
也是支持，我代表大家顶你了
作者:
pjfuf
时间:
2012-3-11 17:08
怎么
作者:
hrjfc
时间:
2012-4-13 04:47
好帖，有才！
作者:
战神传奇
时间:
2012-7-20 15:06
我喜欢，请大家鼓掌支持，谢谢
作者:
www.xauke.com
时间:
2012-7-21 00:14
顶你一下，好贴要顶！
作者:
www.sykjb.com
时间:
2012-7-23 06:43
嘿嘿，回个贴表明我来过。
作者:
www.dulady.com
时间:
2012-7-30 18:49
好东西哦，大家不要光看不顶
作者:
henanmeijia.com
时间:
2012-8-2 04:47
顶起来！！不好碰到的好帖子
作者:
www.dulady.com
时间:
2012-8-4 23:18
帮你顶，人还是厚道点好
作者:
www.xmglzy.cn
时间:
2012-8-5 00:45
这个可以回，这个真得回！
作者:
www.dulady.com
时间:
2012-8-5 22:11
继续支持没话说~ 楼主真强
作者:
www.lctzw.com
时间:
2012-8-13 23:21
顶!!!!!!!!!!
作者:
www.dulady.com
时间:
2012-8-17 02:57
真精神！！！！！！
作者:
www.dulady.com
时间:
2012-8-17 09:34
谢谢楼主~~~~~~~
作者:
qq350275321
时间:
2012-8-21 21:45
谢谢楼主的共享
作者:
白云朵朵xdd
时间:
2012-8-26 07:04
我继续顶你！太好的帖子了 支持
作者:
南京Pxw
时间:
2012-8-28 16:03
LZ辛苦了，支持一下！
作者:
嘉兴sdq
时间:
2012-8-28 16:33
好贴，一定不要放过，顶
作者:
俺来了olx
时间:
2012-8-31 15:30
谢谢楼主的共享
作者:
qq350275321
时间:
2012-9-1 02:08
希望大家踊跃发言，我顶先
作者:
深圳rxvl
时间:
2012-9-2 12:46
顶......叹为观止.....
作者:
dcyel
时间:
2012-9-16 02:01
谢谢了饿~~~~~~~
作者:
gcsip
时间:
2012-9-16 22:10
交流交流好啊！楼主真厉害
作者:
bxumra
时间:
2012-9-24 17:56
呵呵，不错
作者:
www.6979bet.com
时间:
2012-9-25 00:55
真是好东西呀
作者:
bxumra
时间:
2012-9-28 19:47
不太了解这个的，觉得不错
作者:
bxumra
时间:
2012-9-29 10:27
一起交流！楼主给咱们提供机会了
作者:
东步良苦
时间:
2012-10-23 12:04
好贴就是好贴
作者:
玩儿票
时间:
2012-10-24 11:14
真正围观中...-_-
作者:
nfjft
时间:
2012-11-27 22:24
我也来顶一下..
作者:
geegCevgV
时间:
2012-12-24 14:15
说得不错，有收获，顶一下
作者:
二马一蹉蹬
时间:
2013-1-6 05:20
谢谢楼主，楼主太好人了
作者:
小小鸟咖啡n
时间:
2013-10-18 15:54
支持一下吧！
作者:
wmykt
时间:
2014-6-30 17:59
我来看看！谢谢
bjcars.net
作者:
lcehz
时间:
2014-7-11 13:38
佩服你，能发这么好的帖子，厉害
bjcars.net
作者:
itqpCFu
时间:
2015-7-24 10:39
以后需再关注，现在先帮你顶一下
欢迎光临 逐梦论坛 (http://temp2023.zhumeng.org/)
Powered by Discuz! 7.2
