經過好長時間的鑽研和摸索，終于成功地将硬體的序列槽資料發送到了Excel表格裡。下面詳細講解将硬體序列槽資料發送到Excel裡的方法。
首先，打開Excel代碼編輯器，添加窗體，插入序列槽控件。
接着，編寫以下代碼。
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
然後，用序列槽子產品連接配接好電路闆和電腦，給電路闆供電工作。
運作代碼，就會看到序列槽資訊在Excel裡列印出來了。
最後，把編号代碼的Excel儲存成xlsm 格式的檔案，以後想用時，直接打開就可以。