ExcelVBAマクロ　exce.liveで全自動百葉箱を作ってみた

#全自動百葉箱(計測)
#
#温湿度センサー(DHT11)を使い温湿度を計測する
#計測した温湿度はファイル「TempHum.txt」へ出力する
#出力はカンマ区切りで日時、温度、湿度の順番
#
#Raspbery PiのGPIO接続図
# VDD  -- 3.3V
# DATA -- GPIO14
# NC   -- [未使用]
# GND  -- GND
#
#DHT11の制御は以下のライブラリで行う
#https://github.com/szazo/DHT11_Python.git

import RPi.GPIO as GPIO
import dht11
import time
import datetime

#設定
sTHPath = "/home/<ユーザー名>/Desktop/TempHum.txt"
iPin = 14

#温湿度センサーの値を取得する
GPIO.setwarnings(True)
GPIO.setmode(GPIO.BCM)
instance = dht11.DHT11(pin=iPin)
try:
    result = instance.read()
    if result.is_valid():
        sDateTime = str(datetime.datetime.now())
        fTemp = result.temperature
        fHum = result.humidity
        print("Last valid input: " + sDateTime)
        print("Temperature: %-3.1f C" % fTemp)
        print("Humidity: %-3.1f %%" % fHum)
except KeybordInterrupt:
    print("Cleanup")
    GPIO.cleanup()

#取得した温湿度をCSV形式でファイルに出力する
s = sDateTime.replace(" ", "_") + "," + str(fTemp) + "," + str(fHum)
with open(sTHPath, mode='w') as f:
    f.write(s)

#全自動百葉箱(送信)
#
#温湿度は計測側で出力したファイルの値を使う
#温湿度はファイル「TempHum.txt」へ出力される
#ファイルから温湿度を取得してexce.liveにて情報を送信する
#処理の内容はログファイル「logfile.log」へ出力する

import logging
import time
import datetime
import urllib.request

#設定
sTHPath = "/home/raspi/Desktop/TempHum.txt"
sLogPath = "/home/raspi/Desktop/logfile.log"
token = "<送信トークン>"
sheet = "newsheet"

Log_Format = "%(levelname)s %(asctime)s - %(message)s"
logging.basicConfig(
    filename = sLogPath,
    filemode = "a",
    format = Log_Format,
    level = logging.INFO
    )
logger = logging.getLogger()

#処理の開始
logger.info("==========================================")
logger.info("Start THSend.py")

#温湿度はファイルから取得する
f = open(sTHPath)
f.close()
with open(sTHPath) as f:
    print(type(f))
    s = f.read()
    l = s.split(',')
    sDateTime = l[0]
    sTemp = l[1]
    sHum = l[2]
    print(s)
    logger.info("Read info(" + s + ")")

#送信情報を組み立てる
msg = sDateTime + "," + sTemp + "," + sHum
url = "https://api.exce.live/sendmsg"
param = "?token=<<token>>&sheet=<<sheet>>&msg=<<msg>>"
url = url + param
url = url.replace("<<token>>", token)
url = url.replace("<<sheet>>", sheet)
url = url.replace("<<msg>>", msg)
print(url)
logger.info("Send message(" + url + ")")

#exce.liveで情報を送信する
with urllib.request.urlopen(url) as res:
    html = res.read()
    print(html.decode())
    logger.info("Res message(" + html.decode() + ")")

Option Explicit

'exce.liveから受信したタイミングで「全データ」シートへ追加する
Private Sub Worksheet_Change(ByVal Target As Range)
    Call mMain.addLog
End Sub

Option Explicit

'「_newsheet」の情報を「全データ」シートに追加する
Public Sub addLog()
    Dim lRow As Long
    lRow = getLastRow() + 1
    '「全データ」シートに変更があるとグラフが更新される
    wsLog.Cells(lRow, 1).Value = Sheet5.Cells(1, 1).Value
    wsLog.Cells(lRow, 2).Value = Sheet5.Cells(1, 2).Value
    wsLog.Cells(lRow, 3).Value = Sheet5.Cells(1, 3).Value
    wsLog.Cells(lRow, 4).Value = Sheet5.Cells(1, 4).Value
    'データ保持のため保存する
    Call Excel.Application.ThisWorkbook.Save
End Sub

'「全データ」シートの最終行を取得する
Private Function getLastRow() As Long
    Dim lRow As Long
    lRow = 1
    Do Until wsLog.Cells(lRow, 1).Value = ""
        lRow = lRow + 1
    Loop
    getLastRow = lRow - 1
End Function

Option Explicit

'変更があったタイミングでグラフを更新する
Private Sub Worksheet_Change(ByVal Target As Range)
    Call mMain.updateGraph
End Sub

Option Explicit

'「_newsheet」の情報を「全データ」シートに追加する
Public Sub addLog()
    Dim lRow As Long
    lRow = getLastRow() + 1
    '「全データ」シートに変更があるとグラフが更新される
    wsLog.Cells(lRow, 1).Value = Sheet5.Cells(1, 1).Value
    wsLog.Cells(lRow, 2).Value = Sheet5.Cells(1, 2).Value
    wsLog.Cells(lRow, 3).Value = Sheet5.Cells(1, 3).Value
    wsLog.Cells(lRow, 4).Value = Sheet5.Cells(1, 4).Value
    'データ保持のため保存する
    Call Excel.Application.ThisWorkbook.Save
End Sub

'「全データ」シートの情報に合わせてグラフを更新する
'※グラフの作りに合わせて改修する必要がある
Public Sub updateGraph()
    Dim coGraph As ChartObject
    Set coGraph = wsGraph.ChartObjects("グラフ 1")
    Dim lLastRow As Long
    lLastRow = getLastRow()
    With coGraph.Chart
        .FullSeriesCollection(1).Values = "=全データ!$C$2:$C$" & CStr(lLastRow)
        .FullSeriesCollection(2).Values = "=全データ!$D$2:$D$" & CStr(lLastRow)
        .FullSeriesCollection(2).XValues = "=全データ!$A$2:$A$" & CStr(lLastRow)
    End With
End Sub

'「全データ」シートの最終行を取得する
Private Function getLastRow() As Long
    Dim lRow As Long
    lRow = 1
    Do Until wsLog.Cells(lRow, 1).Value = ""
        lRow = lRow + 1
    Loop
    getLastRow = lRow - 1
End Function