从串口读取到Excel

时间:2013-02-09 22:47:36

标签: vba excel-vba serial-port arduino excel

我需要在Excel中创建一个按钮,以便从串口读取数据。我不能在Excel工作表上附加任何额外的文件。我需要将此excel文件传输到另一台计算机以读取此数据。 以下是文件的运行方式:按按钮选择串口。然后,按另一个按钮将数据从串行端口读入Excel单元格。 有人可以告诉我该怎么做?使用VB宏或ActiveX宏?对不起,这是我第一次使用excel。请帮忙。同样,我不能将另一个文件附加到Excel工作表。谢谢!

1 个答案:

答案 0 :(得分:2)

我在德国的microctroler.net论坛上找到了关于这个主题的讨论:

http://www.mikrocontroller.net/topic/64788

由于我在Linux上运行,因此我无法验证代码是否正确。无论如何,这是它的副本:

Sub Send_and_Read()
  '--------------------------------------------------------
  cmnd$ = "Hello World"        'A string to send
  '--------------------------------------------------------
  Open "COM1" For Binary Access Read Write As #1
  cmnd$ = cmnd$ + Chr(13)      'add [CR] to command string
  Put #1, , cmnd$              'write string to interface
  '--------------------------------------------------------
  answer = ""                  'clear response string
  char = Input(1, #1)          'get first character
  While (char <> Chr(13))      'loop until [CR]
    If (char > Chr(31)) Then
      answer = answer + char   'add, if printable char
    Else
      ' Do what ever you like
    End If
    char = Input(1, #1)        'get the next character
  Wend
  Close #1
  '--------------------------------------------------------
  Cells(1, 1) = answer         'put response in cell("A1")
End Sub