成人精品一区二区久久久 I 国产美女永久无遮挡 I 中文字幕+乱码+中文字幕明步 I 国产在视频一区二区三区吞精 I 日韩精品小视频 I 成人性生交大片免费4 I 免费aaa级毛片在线视频 I 一级片毛片 I 大型成人社区 I 国模在线播放 I 欧美大荫蒂毛茸茸视频 I 偷偷色噜狠狠狠狠的777米奇 I www.久久亚洲 I 日日搞夜夜操 I 亚洲成色777777女色窝 I 毛片黄色毛片 I 午夜片在线观看 I 国产一区二区三区中文字幕 I 天天干夜夜骑 I 日韩在线视频一区二区三区 I 久久久无码精品亚洲a片0000 I 写真福利片hd在线播放 I 欧美成人一区二免费视频 I 色噜噜狠狠爱综合视频 I 中文字幕无线码免费人妻 I 国产精品久久久久久久久久不蜜臀 I 欧美综合人人做人人爱 I 1024成人网色www I 国产精品视频一二三区 I 亚洲免费美女视频

解碼槍解出來的二維碼用串口傳輸  怎么把這個串口的數(shù)據(jù)直接在EXCEL表格里面顯示  掃一個碼EXCEL里面存一個

如何將串口接收到的數(shù)據(jù)保存到EXCEL文檔

1.啟動excel從：工具-->宏-->Visual Basic 編輯器,打開excel VBA.

2.在ThisWorkbook上右單擊鼠標(biāo)選擇插入--用戶窗體

3.單擊一下插入的窗體，單擊菜單上的--工具--附加控件--選擇Microsoft Communications Control, version 6.0

4.在窗體上添加mscomm1,添加commandButton1

5.單串口機(jī)子，短接rs232的2腳和3腳，雙串口機(jī)子用232線連接兩個串口，注意2、3線交叉，我這里以單串口短接舉例。

6.復(fù)制以下代碼到你的窗體里：

VB code

'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定義的字符數(shù)1字節(jié)
MSComm1.RThreshold = 0
Do
DoEvents
Loop While Timer - t1 < 0.1 '延時時間自己調(diào)整
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 位數(shù)據(jù)，一個停止位
MSComm1.PortOpen = True '打開端口

MSComm1.RThreshold = 1 '緩沖區(qū)有1個字節(jié)就產(chǎn)生OnComm事件
MSComm1.InputLen = 0 '為 0 時，使用 Input 將使 MSComm 控件讀取接收緩沖區(qū)中全部的內(nèi)容。

MSComm1.InputMode = comInputModeText 'Input以二進(jìn)制形式取回用comInputModeBinary，以文本形式取回是（缺省項）
MSComm1.RTSEnable = True
MSComm1.InBufferCount = 0 '清空緩沖區(qū)

End Sub

Private Sub UserForm_Initialize()
iniMscomm
End Sub


7.雙擊thisWorkBook,復(fù)制以下代碼到窗體里：

VB code

'VBA代碼
Private Sub Workbook_Open()
UserForm1.Show 0
'UserForm1.Hide

End Sub
8.保存文件并關(guān)閉excel,然后再打開你的文件，然后單擊你窗體上的按鈕看看。
9.這個程序是我為你特意做的，已經(jīng)做過測試，sys2003 office2003。
10.如果excel中有數(shù)據(jù)輸入，再去測試你的設(shè)置，注意com口號與波特率的設(shè)置。

以上是百度的