如何将硬件的串口数据发送到EXCEL表格里

点击上方关注我们!

01

串口数据成功发送

经过好长时间的钻研和摸索，终于成功地将硬件的串口数据发送到了Excel表格里。下面详细讲解将硬件串口数据发送到Excel里的方法。

02

操作代码编辑器

打开Excel代码编辑器，添加窗体，插入串口控件。

03

编写代码

编写以下代码。

参考代码：

Private Sub btn_Close_Click()

MSComm1.PortOpen = False

btn_Start.Enabled = True

btn_Close.Enabled = False

End Sub

Private Sub btn_exit_Click()

If MSComm1.PortOpen = True Then

   MSComm1.PortOpen = False

End If

Unload UserForm1

End Sub

Private Sub btn_Start_Click()

iniMSComm

MSComm1.PortOpen = True

btn_Close.Enabled = True

btn_Start.Enabled = False

End Sub

Private Sub iniMSComm()

MSComm1.CommPort = 5

MSComm1.Settings = "115200,n,8,1"

MSComm1.RThreshold = 1

MSComm1.InputLen = 0

MSComm1.PortOpen = True

MSComm1.InputMode = comInputModeText

MSComm1.RTSEnable = True

MSComm1.InBufferCount = 0

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

       MSComm1.RThreshold = 0

       Do

           DoEvents

       Loop While Timer - t1 < 0.01

       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

End Sub

Private Sub UserForm_Initialize()

iniMSComm

End Sub

04

测试代码

用串口模块连接好电路板和电脑，给电路板供电工作。

运行代码，就会看到串口信息在Excel里打印出来了。

05

保存文件

把编好代码并且代码测试成功的Excel保存成xlsm格式的文件，以后想用时，直接打开就可以。对这个Excel感兴趣的朋友，可以到群里下载。

扫码关注我

一起感悟科学魅力