全部答案

2013-11-30 15:23:24

•   请采纳我的答案。 
  你完全可利用MSCOMM控件通过RS232串口,将测试仪器的测试数据接收并储存于EXCEL电子表格。MSCOMM控件的接收代码须依据通信协议编写。
  以下是一段MSComm控件的OnComm事件代码:
  Private Sub MSComm1_OnComm()
  Dim strsj As String
  Select Case MSComm1。
    CommEvent
  Case 2
  MSComm1。InputLen = 0
  strsj = MSComm1。Input
  strData = strData & strsj
  If Mid(strData, 1, 4) = "Data" And Right(strData, 1) = Chr(10) Then
  Dim j As Integer
  For j = 0 To 29
  Label1(j) = "0。
    0"
  Label1(j)。BackColor = vbGreen
  Next
  Dim sjfg() As String
  sjfg = Split(strData, Chr(13))
  Dim i As Integer
  For i = 0 To UBound(sjfg) - 1
  Print sjfg(i)
  Next
  Set xlapp = CreateObject("excel。
    application")
  xlapp。Visible = True
  Set xlBook = xlapp。Workbooks。Add
  Set xlBook = xlapp。Workbooks。Open(App。Path & "\报表。
    xlt") '打开EXCEL工作簿
  Set xlSheet = xlBook。worksheets(1)
  xlSheet。Cells(1, 1) = sjfg(0) '"Date"
  'xlSheet。Cells(1, 2) = Mid(sjfg(0), 7, 10)
  'xlSheet。
    Cells(1, 3) = Mid(sjfg(0), 19, 5)
  xlSheet。Cells(2, 1) = sjfg(1) ' Mid(sjfg(1), 1, 9)
  'xlSheet。Cells(2, 2) = Mid(sjfg(1), 13, 3) & Mid(sjfg(1), 18, 4)
  xlSheet。
    Cells(3, 1) = Mid(sjfg(2), 1, 2)
  xlSheet。Cells(3, 2) = Mid(sjfg(2), 5, 12)
  For i = 3 To UBound(sjfg) - 1
  xlSheet。Cells(i + 1, 1) = Mid(sjfg(i), 1, 2)
  xlSheet。
    Cells(i + 1, 2) = Mid(sjfg(i), 6, 5)
  'For i = 0 To 29
  If Mid(sjfg(i), 1, 2) > 0 Then
  Label1(Val(Mid(sjfg(i), 1, 2)))。Caption = Mid(sjfg(i), 6, 5)
  Label1(Val(Mid(sjfg(i), 1, 2)))。
    BackColor = vbRed
  Else
  'Label1(Val(Mid(sjfg(i), 1, 2)))。BackColor = vbYellow
  End If
  'Next
  Next
  'For i = 3 To UBound(sjfg) - 1
  'xlSheet。
    Cells(i + 1, 1) = Mid(sjfg(i), 1, 2)
  'xlSheet。Cells(1, 1) = "Date"
  'Next
  strData = ""
  ReDim sjfg(0)
  sjfg = Split(strData, Chr(13))
  End If
  End Select
  End Sub。
    

  全部
  

  点***

  2013-11-30 15:23:24

  59 12 评论

  分享
  提交评论