Excel VBA 建立与arduino 通讯 代码

Excel VBA（Visual Basic for Applications）可以用来与Arduino进行通信，通常通过串口或USB连接。以下是一个简单的示例，展示了如何使用VBA建立基础的Arduino通讯：

Sub ArduinoComm()
    '导入必要的库
    Dim objSerial As Object
    Set objSerial = CreateObject("COMPort")

    '设置串口号（这里假设Arduino连接在COM1）
    objSerial.PortName = "COM1"
    objSerial.BaudRate = 9600

    '打开串口连接
    If objSerial.Open Then
        Debug.Print "Connected to Arduino."

        '发送数据（例如字节数组）
        Dim data() As Byte
        ReDim data(1 To 1) '假设发送单字节的数据
        data(0) = 42 '将ASCII码值42转换为字节
        objSerial.Write data, 1, 1 '写入1个字节

        '接收数据并处理
        Dim receivedData(1 To 1) As Byte
        If objSerial.Read(receivedData, 1, 1) = 1 Then
            Debug.Print "Received: ", Hex(receivedData(0))
        Else
            Debug.Print "Failed to receive data."
        End If

        '关闭连接
        objSerial.Close
    Else
        Debug.Print "Failed to open serial port."
    End If
End Sub

这个例子假设你已经安装了支持串口操作的ActiveX控件，并且Arduino已连接到电脑上。请注意，实际应用可能需要处理异常、错误以及更复杂的通信协议。