[VBA]COM通信

サンプルコード1

Sub CommTest()
  Dim ComPort As Object
  Set ComPort = CreateObject("MSCOMMLib.MSComm")

  ComPort.Settings = "9600,n,8,1"
  ComPort.CommPort = 1
  ComPort.PortOpen = True

  ' データを受信する
  Dim Data As String
  Do Until Data <> ""
    DoEvents
    Data = ComPort.Input
  Loop
  Debug.Print "Received: " & Data

  ' データを送信する
  ComPort.Output = "Hello, World!"

  ' 通信を終了する
  ComPort.PortOpen = False
  Set ComPort = Nothing
End Sub

サンプルコード2

Sub CommTest()
    Dim ComPort As MSCommLib.MSComm
    Set ComPort = New MSCommLib.MSComm

    ' ポートの設定
    ComPort.CommPort = 1 ' 通信ポート番号
    ComPort.Settings = "9600,n,8,1" ' ボーレート, データビット, パリティ, ストップビット
    ComPort.InputLen = 0 ' 受信バッファーのサイズを指定
    ComPort.RThreshold = 1 ' 受信したデータがバッファーサイズを超えた場合にイベントを発生

    ' COMポートを開く
    ComPort.PortOpen = True

    ' データを送信する
    ComPort.Output = "Hello, World!"

    ' 受信したデータを取得する
    Dim ReceivedData As String
    Do While ComPort.InBufferCount > 0
        ReceivedData = ReceivedData & ComPort.Input
        DoEvents
    Loop

    ' 受信したデータを参照する
    MsgBox "Received: " & ReceivedData

    ' COMポートを閉じる
    ComPort.PortOpen = False
    Set ComPort = Nothing
End Sub