vba - シリアル ポートから Excel への読み取り

Question

シリアル ポートからデータを読み込むには、Excel でボタンを作成する必要があります。Excelシートに余分なファイルを添付することはできません。このデータを読み取るには、この Excel ファイルを別のコンピューターに転送する必要があります。ファイルがどのように機能すると想定されているかを次に示します。 ボタンを押して、シリアル ポートを選択します。次に、別のボタンを押して、シリアル ポートから Excel セルにデータを読み込みます。誰かがこれを行う方法を教えてもらえますか? VB マクロまたは ActiveX マクロを使用しますか? すみません、エクセルを使うのは初めてです。助けてください。繰り返しますが、Excel シートに別のファイルを添付することはできません。ありがとうございました！

Answer 1

私はここのドイツのmicrocontroler.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