ワイヤレスでESP-32（ESP32-DevKitC）のデータをEXCELに取得する

#include <WiFi.h>

const char* ssid     = "yourssid";
const char* password = "yourpasswd";

WiFiServer server(80);

void setup()
{
    Serial.begin(115200);
    delay(10);
    // We start by connecting to a WiFi network
    Serial.println();
    Serial.println();
    Serial.print("Connecting to ");
    Serial.println(ssid);

    WiFi.begin(ssid, password);

    while (WiFi.status() != WL_CONNECTED) {
        delay(500);
        Serial.print(".");
    }

    Serial.println("");
    Serial.println("WiFi connected.");
    Serial.println("IP address: ");
    Serial.println(WiFi.localIP());
    
    server.begin();
}

void loop(){
 WiFiClient client = server.available();

  if (client) {
    Serial.println("New Client.");
    String currentLine = "";
    while (client.connected()) {
      if (client.available()) {
        char c = client.read();
        Serial.write(c);
        if (c == '\n') {
           if (currentLine == "test?"){
            client.println("ESP32-DevKitC");
            client.println();
            break;
           } else {
            currentLine == "";
           }
          } else if (c != '\r') {
          currentLine += c;
          }
        }  
    }
    // close the connection:
    client.stop();
    Serial.println("Client Disconnected.");
  }
}

Sub ボタン1_Click()
    'VISA COMオブジェクトを作成し接続を設定
    Dim rm As New VisaComLib.ResourceManager
    Dim ESP As New VisaComLib.FormattedIO488
    Set ESP.IO = rm.Open("TCPIP0::192.168.000.000::80::SOCKET")
 
    '終端文字を識別し読み込みを終了させる
    ESP.IO.TerminationCharacter = 10
    ESP.IO.TerminationCharacterEnabled = True
    
    'ESP32に"test?"を送り、応答をA1セルに入力する
    ESP.WriteString "test?"
    Range("A1") = ESP.ReadString()

    '接続をCloseし、オブジェクトを解放する
    ESP.IO.Close
    Set ESP = Nothing
    Set rm = Nothing
End Sub

#include <DHT.h>
#define DHTPIN 4
#define DHTTYPE DHT11
#include <WiFi.h>

DHT dht(DHTPIN, DHTTYPE);
const char* ssid     = "yourssid";
const char* password = "yourpassword";

WiFiServer server(80);

void setup()
{
    Serial.begin(115200);
    delay(10);
    // We start by connecting to a WiFi network
    Serial.println();
    Serial.println();
    Serial.print("Connecting to ");
    Serial.println(ssid);

    WiFi.begin(ssid, password);

    while (WiFi.status() != WL_CONNECTED) {
        delay(500);
        Serial.print(".");
    }

    Serial.println("");
    Serial.println("WiFi connected.");
    Serial.println("IP address: ");
    Serial.println(WiFi.localIP());

    dht.begin();
    server.begin();
}

void loop(){
 WiFiClient client = server.available();

  if (client) {
    Serial.println("New Client.");
    String currentLine = "";
    while (client.connected()) {
      if (client.available()) {
        char c = client.read();
        Serial.write(c);
        if (c == '\n') {
           if (currentLine == "MEAS"){
            float h = dht.readHumidity();
            float t = dht.readTemperature();
            if (isnan(h))  h = -999;
            if (isnan(t)) t = -999;
            client.print(h);
            client.print(",");
            client.println(t);
            break;
           } else {
            currentLine == "";
           }
          } else if (c != '\r') {
          currentLine += c;
          }
        }  
    }
    // close the connection:
    client.stop();
    Serial.println("Client Disconnected.");
  }
}

Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long) '32bit版EXCEL
'Private Declare PtrSafe Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long) '64bit版EXCEL
Public StopMeas As Boolean

Sub GetTemperatureHumidity()
    ' VISA COMオブジェクトを作成し接続を設定
    Dim RM As New VisaComLib.ResourceManager
    Dim ESP As New VisaComLib.FormattedIO488
    ' 変数の宣言
    Dim HumTempData As Variant, GetSerial As String
    Dim i As Long, j As Long: i = 0
    Dim StartTime As Date: StartTime = Int(Now() * 1440) / 1440     ' 開始時刻を秒以下切り捨てて取得
    StopMeas = False
    
    Worksheets("Sheet1").Range(Cells(2, 1), Cells(Rows.Count, 3)).Clear
   
    UserForm1.Show vbModeless ' ユーザーフォームをモードレスで表示

    Do
        ' 毎分0秒になるまで待機させる。
        For j = 1 To 60
            DoEvents ' 入力を受け付けれるようにする
            Application.Wait StartTime + (i + j / 60) / 1440
            If StopMeas = True Then Exit Do ' ユーザーフォームの"STOP"がクリックされるとループを抜ける
        Next j
        
        Set ESP.IO = RM.Open("TCPIP0::192.168.0.8::80::SOCKET") ' ESP32と接続　VISAアドレス"TCPIP0::192.168.000.000::80::SOCKET"はConnection Expert で確認
        '終端文字を識別し読み込みを終了させる
        ESP.IO.TerminationCharacter = 10
        ESP.IO.TerminationCharacterEnabled = True

        ' ESP32に"MEAS"コードを送り、応答データから改行コードを削除して、","で分割する
        ESP.WriteString "MEAS"
        GetSerial = Replace(ESP.ReadString(), vbCrLf, "")
        HumTempData = Split(GetSerial, ",")
        
        ' セルに時刻、温度、湿度を入力
        Cells(i + 2, 1) = Format(Now(), "yyyy/mm/dd hh:mm:ss")
        Cells(i + 2, 2) = HumTempData(1)
        Cells(i + 2, 3) = HumTempData(0)

        i = i + 1
        '接続を閉じる
        ESP.IO.Close
    Loop
    
    ' オブジェクトを解放する
    Unload UserForm1
    Set ESP = Nothing
    Set RM = Nothing
End Sub

#include <DHT.h>
#define DHTPIN 4
#define DHTTYPE DHT11
#include "BluetoothSerial.h"

#if !defined(CONFIG_BT_ENABLED) || !defined(CONFIG_BLUEDROID_ENABLED)
#error Bluetooth is not enabled! Please run `make menuconfig` to and enable it
#endif

DHT dht(DHTPIN, DHTTYPE);
BluetoothSerial SerialBT;
String command;

void setup() {
  Serial.begin(115200);
  SerialBT.begin("ESP32test"); //Bluetooth device name
  Serial.println("The device started, now you can pair it with bluetooth!");
  dht.begin();
}

void loop() {
  if (SerialBT.available()) {
    // Serial.write(SerialBT.read());
    command = SerialBT.readStringUntil(0x0a);
    if(command == "MEAS"){
      float h = dht.readHumidity();
      float t = dht.readTemperature();
      if (isnan(h))  h = -999;
      if (isnan(t)) t = -999;
      SerialBT.print(h);
      SerialBT.print(",");
      SerialBT.println(t);
    }
  }
  delay(20);
}

Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long) '32bit版EXCEL
'Private Declare PtrSafe Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long) '64bit版EXCEL
Public StopMeas As Boolean

Sub GetTemperatureHumidityBT()
    ' VISA COMオブジェクトを作成し接続を設定
    Dim RM As New VisaComLib.ResourceManager
    Dim ESP As New VisaComLib.FormattedIO488
    ' 変数の宣言
    Dim HumTempData As Variant, GetSerial As String
    Dim i As Long, j As Long: i = 0
    Dim StartTime As Date: StartTime = Int(Now() * 1440) / 1440     ' 開始時刻を秒以下切り捨てて取得
    StopMeas = False
    
    Worksheets("Sheet1").Range(Cells(2, 1), Cells(Rows.Count, 3)).Clear
    
    
    Set ESP.IO = RM.Open("ASRL5::INSTR") ' Arduinoと接続　VISAアドレス"ASRL5::INSTR"はConnection Expert で確認
    'Sleep (3000) ' ESP32の準備が整うまで待機

    UserForm1.Show vbModeless ' ユーザーフォームをモードレスで表示

    Do
        ' 毎分0秒になるまで待機させる。
        For j = 1 To 60
            DoEvents ' 入力を受け付けれるようにする
            Application.Wait StartTime + (i + j / 60) / 1440
            If StopMeas = True Then Exit Do ' ユーザーフォームの"STOP"がクリックされるとループを抜ける
        Next j
        
        ' ESP32に"MEAS"コードを送り、応答データから改行コードを削除して、","で分割する
        ESP.WriteString "MEAS"
        GetSerial = Replace(ESP.ReadString(), vbCrLf, "")
        HumTempData = Split(GetSerial, ",")
        
        ' セルに時刻、温度、湿度を入力
        Cells(i + 2, 1) = Format(Now(), "yyyy/mm/dd hh:mm:ss")
        Cells(i + 2, 2) = HumTempData(1)
        Cells(i + 2, 3) = HumTempData(0)

        i = i + 1
    Loop
    
    ' 接続をCloseし、オブジェクトを解放する
    Unload UserForm1
    ESP.IO.Close
    Set ESP = Nothing
    Set RM = Nothing
End Sub