你好,很高兴为您解答。 
你完全可利用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
。