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

1、一用 VB DDE 通訊！二1. 啟動 excel 從：工具 ->宏 ->Visual Basic 編輯器 ,打開 excel VBA.2. 在 ThisWorkbook 上右單擊鼠標選擇插入 - 用戶窗體3. 單擊一下插入的窗體， 單擊菜單上的 -工具 - 附加控件 -選擇 Microsoft Communications Control, version 6.04. 在窗體上添加 mscomm1, 添加 commandButton15. 單串口機子，短接 rs232 的 2 腳和 3 腳，雙串口機子用 232線連接兩個串口，注意 2、3 線交叉，我這里 以單串口短接舉例。6.

2、復(fù)制以下代碼到你的窗體里：VB code'VBA 代碼Private Sub CommandButton1_Click()MSComm1.Output = "BEG1END"End SubPrivate Sub MSComm1_OnComm()Dim t1 As Long, com_String As StringStatic i As Integert1 = TimerSelect Case MSComm1.CommEventCase comEvReceive'收到 RThreshold 定義的字符數(shù) 1 字節(jié)MSComm1.RThreshold = 0D

3、oDoEventsLoop While Timer - t1 < 0.1 ' 延時時間自己調(diào)整com_String = MSComm1.InputMSComm1.RThreshold = 1i = i + 1: If i > 255 Then i = 1Application.Cells(3, i).Value = com_StringEnd Select'ActiveWorkbook.SaveAs "C:d1.xls"End SubPrivate Sub iniMscomm()'On Error Resume Next'= 初始

4、化通信串口MSComm1.CommPort = 1' 使用 COM1MSComm1.Settings = "9600,N,8,1"'9600 波特，無奇偶校驗， 8 位數(shù)據(jù)，一個停止位MSComm1.PortOpen = True'打開端口MSComm1.RThreshold = 1'緩沖區(qū)有 1 個字節(jié)就產(chǎn)生 OnComm 事件MSComm1.InputLen = 0 部的內(nèi)容。'為 0 時，使用 Input 將使 MSComm 控件讀取接收緩沖區(qū)中全MSComm1.InputMode = comInputModeText '

5、;Input 以二進制形式取回用 comInputModeBinary ，以文本形式 取回是（缺省項）MSComm1.RTSEnable = True'清空緩沖區(qū)MSComm1.InBufferCount = 0End SubPrivate Sub UserForm_Initialize() iniMscommEnd Sub7. 雙擊 thisWorkBook, 復(fù)制以下代碼到窗體里：VB code'VBA 代碼Private Sub Workbook_Open()UserForm1.Show 0'UserForm1.HideEnd Sub8. 保存文件并關(guān)閉excel

6、,然后再打開你的文件，然后單擊你窗體上的按鈕看看。9. 這個程序是我為你特意做的，已經(jīng)做過測試，sys2003 office2003。10. 如果exceI中有數(shù)據(jù)輸入，再去測試你的設(shè)置，注意com 口號與波特率的設(shè)置二mark excel 串口還有一個辦法就是用任何編程，只需將收到的數(shù)據(jù)用csv文件的格式，生成一個文本文件，然后就可以用excel 打開了。這個方法適合于任何語言，只要能生成文本文件就可以了。如果存成txt再打包可以的話，Perl簡單些，不熟悉的人3天也能做出來.Spreadsheet:WriteExcel 和 Spreadsheet:ParseExcel四Excel VBA

7、串口通信2010-01-27 16:41 1466 人閱讀評論(0)收藏舉報用c#也可以實現(xiàn)這種功能，那就是用serialPort控件，這里用 VBA寫的，用MSComm 控件實現(xiàn)。其實還有另外一個控件叫NETComm 控件，也可以做，源碼中注釋很清楚，不再贅述vb:showcolu mn s:firstli ne1view pla in copypri nt?-10 2030 40 5060 7080 90-100 110120130 140 1501. Private Sub btn_Close_Click()2. MSComm1. PortOpe n = False '打開串口3

8、. btn_Start.E nabled = True ' 連接按鈕響應(yīng)4. btn_Close.E nabled = False '斷開按鈕變灰5. End Sub6.6. Private Sub btn_exit_Click()7. If MSComm1.PortOpe n = True The n '如果串口被打開8. MSComm1. PortOpe n = False ' 關(guān)閉按鈕9. End If10. Un load UserForm1 ' 關(guān)閉窗體11. End Sub13.12. Private Sub btn_Start_Click(

9、)13. iniMSComm '對串口控件設(shè)置14. MSComm1. PortOpe n = True15. btn_Close.E nabled = True16. btn_Start.E nabled = False17. End Sub20.18. Private Sub ini MSComm()'對串口控件設(shè)置19. MSComm1.CommPort = 1 '占用的串口號，1 表示 COM120. MSComm1.Setti ngs = "115200, n,8,1"'這個自己根據(jù)自己的情況設(shè)置24.21. MSComm1.RTh

10、reshold = 122. MSComm1.I nputLe n = 023. 'MSComm1. PortOpe n = True'這句話放到連接按鈕事件中去24. MSComm1.I nputMode = comI nputModeText25. MSComm1.RTSE nable = True26. MSComm1.I nBuferCou nt = 027. End Sub32.28. Private Sub MSComm1_ On Comm()'事件處理29. Dim t1 As Long, com_stri ng As String30. Static i

11、 As In teger31. t1 = Timer32. Select Case MSComm1.CommEve nt33. Case comEvReceive'如果接收到數(shù)據(jù)則執(zhí)行下列語句34. MSComm1.RThreshold= 035. Do36. DoEve nts37. Loop While Timer - t1 <0.138. com_stri ng = MSComm1.I nput39. MSComm1.RThreshold= 140. i = i + 1: If i > 255 Then i = 141. Application.Cells(3, i)

12、.Value = com_string ' 寫到 Excel 中去42. txtRec.Text = txtRec.Text + com_stri ng '寫到文本框中去43. End Select49. End Sub| L$ei.+ +1. - h .i 1.110«. * * * + a a 20 + * * * * 30 * + * *«» 40 * *s * * * S0 * * * * 60 * * * * * 7® * * * * * 8B * * * * * SB * * *Private Sub brn ClosClld

13、kQHjCHul.PDrtOaer - F«ls« "廿半|_|阪btnirt«Enabled - T ru« "旌攜扶鈕耿應(yīng)04.ttn_(c&c.EnjoLed - Falsa 肝幵4$氐杏克05.End Sub驅(qū)0九Prlvtic Subas.If HSC dm» 1 - PartCpe-i - True Thein '如皐串> 口SS；打開»9VNSCcrmLPortOpan - False "沱|界摂旬10.日M If仏Uiloed U理rFonrtl 筈|可窗體13.4

14、1End Sub1J .114-Private Sub15.inlfULami 對半口控IS.MSCcimHl. P口rt£s3er = True17.btnCloSie. Enaoled - TmeIB.bt_5tir,ci,EraoLed Falit19.Ind Sub23.21.Private Sub iniNSComm() 對串口控件設(shè)置22.M5Connrnl-ConiiniPort = 1 占用的串口號】1 表示匚 OM123.MSComnl.Settings = “1152008 J” 1這個自己根據(jù)自己的情況設(shè)置24.25.MSComml-RThreshold = 1

15、25.MSCooinl.InputLen - 027*-MSCoraml. PortOpen = True'fl話放到連接按鈕事件中去2趴MSComnl, Inpu Vk?de = gnl 叩 utModeText29.MSComml.RTSEnable 二 Truesa.iSComnfll.Inuf-ferCount = 631*End Sub32 + dPrivate Sub MSComnil_OnCornfii()'事件處理込Dim tl As Longj 亡cm string As. StringiS.Static i A± IntegerS6.tl = Ti

16、mer37.Select Case SComni'l .oniinE対 nt35.Case匚onEvfteceive，如果接收封數(shù)據(jù)則執(zhí)行下列營句59.SSComml.RTh neshold = 0伽.Do414DoEvents42.Loop While Timer tl < 4.45.阪47.范4久DoEvent弓Loop While Timer - tl < 0*1contest ring = rSCohiml .InputMSCoonl. RTh reshold 1i - 1 + 1: If 1 > 255 Then i - 1Applica

17、tion .Cells(3j i)Value = com string '寫至(JExceI中去 txtRec.Iext = txtRec .Text + com_string '寫到文本框中去End SubEnd Select五VBA的妙用：串口通訊程序與 EXCEL相結(jié)合發(fā)布時間：2010-3-11發(fā)布者：北京世紀長秋科技有限公司1 VBA簡介Visual Basic的應(yīng)用程序版（VBA）是Microsoft公司長期追求的目標，使可編程應(yīng)用軟件得到完美的實現(xiàn)，它作為一種通用的宏語言可被所有的Microsoft可編程應(yīng)用軟件所共享。在沒有 VBA以前，一些應(yīng)用軟件如 Exce

18、l、Word、Access、Project等都采用自己的宏語言供用戶開發(fā)使用，但每種宏語言都是獨立的，需要用戶專門去學(xué)習(xí)，它們之間互不 兼容，使得應(yīng)用軟件之間不能在程序上互聯(lián)。擁有一種可跨越多個應(yīng)用軟件，使各應(yīng)用軟件產(chǎn)品具有高效、靈活且一致性 的開發(fā)工具是至關(guān)重要的。VBA作為一種新一代的標準宏語言，具有上述跨越多種應(yīng)用軟件并且具有控制應(yīng)用軟件對象 的能力，使得程序設(shè)計人員僅需學(xué)習(xí)一種統(tǒng)一的標準宏語言，就可以轉(zhuǎn)換到特定的應(yīng)用軟件上去，程序設(shè)計人員在編程和調(diào)試代碼時所看到的是相同的用戶界面，而且VBA與原應(yīng)用軟件的宏語言相兼容，以保障用戶在代碼和工作上的投資。有了VBA以后，多種應(yīng)用程序共用一種

19、宏語言，節(jié)省了程序人員的學(xué)習(xí)時間，提高了不同應(yīng)用軟件間的相互開發(fā)和調(diào)用 能力。2串口通訊程序簡單的串口通訊程序一般是先由上位機向下位機發(fā)送讀（write）或?qū)懀╮ead）數(shù)據(jù)命令，然后等待下位機應(yīng)答；下位機接受到命令之后，首先要對數(shù)據(jù)命令進行校驗，對于符合校驗約束的命令下位機會將相應(yīng)的數(shù)據(jù)回復(fù)到上位機，對于不符合校驗約束的命令下位機或?qū)⑵鋻仐壔蚧貜?fù)錯誤信息；上位機接收到下位機的響應(yīng)之后，首先要對接收到的回復(fù)信息進行校驗，對不符合校驗約束的數(shù)據(jù)進行異常處理，對符合校驗約束的信息進行解碼，解碼之后的信息便是上位機從下位機獲得的有效信息了。上位機向串口發(fā)送讀命令之后需要等待下位機應(yīng)答并讀取回復(fù)信息，

20、常用的等待有3種方式：1）輪詢式上位機向串口發(fā)送讀命令之后一直等待下位機應(yīng)答，通訊程序處于一個等待循環(huán)中。優(yōu)點：速度快、誤碼率低（幾乎不存在誤碼）。缺點：消耗CPU。（解決辦法：使用 Sleep（）API函數(shù)）。2）消息式消息式通訊是采用響應(yīng) WINDOWS消息的辦法讀取串口。優(yōu)點：節(jié)省CPU、誤碼率低。缺點：發(fā)送接收機制過于繁瑣。3）定時接收式定時接收式通訊是根據(jù)預(yù)設(shè)的定時器時間進行讀取數(shù)據(jù)。優(yōu)點：發(fā)送接收機制相對簡單、節(jié)省CPU。缺點：誤碼率太高，不同的硬件需要配置不同的通訊時間參數(shù)，需要嚴格的校驗運算。3 EXCEL-VBA串口通訊實例軟件：EXCEL o硬件：艾默生 EC10 PLC

21、o功能：通過EXCEL中的按鈕控制PLC的輸出繼電器Y0。界面：RUN（運行通訊）、STOP（停止通訊）、Y0（Y0 ON/OFF控制）。主程序:Option ExplicitPublic Declare Sub Sleep Lib "kernel32" (ByVai dwMilliseconds As Long)Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByValuElapse As Long, ByVal lpT

22、imerFunc As Long) As LongPublic Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Lon gPublic coml As New MSCommLib.MSCommPublic yOStt As BooleanPublic yO_on As BooleanPublic tmrFlag As BooleanPublic tmr As LongSub runn()On Error GoTo ed coml.Settings

23、= "9600,e,8,1"If com1.PortOpen = False Then com1.PortOpen = TrueEnd Ifontimer)tmr = SetTimer(0, 0, 500, AddressOfExit Subed:MsgBox "串口打開錯誤！ "End SubSub stoppi()If com1.PortOpen = True Then com1.PortOpen = False KillTimer 0, tmrEnd IfEnd SubPublic Function ontimer()Dim a(7) As ByteDim add As LongOn Error GoTo edIf tmrFlag = False ThentmrFlag = TrueIf y0_on = True Then y0_on = FalseIf y0Stt = True Then a(0) = &H1 a(1) = &H5a(2) = &H0a(3) = &H0a(4) = &HFFa(5) = &H0a(6) = &H8Ca(7