室内温室

HSPで作成した設定ツールから記録データを読み込むのも良いのだが、CSVファイル形式で保存しているのでそのままEXCELへ取り込めないかと調べていたところ、「EasyComm」と言うVBAモジュールを見つけた。自由に使って良いとの事なので使って見ることにした。

やって見ると簡単に出来てしまった。とにかくこれでデータを読み込める。

' 温度・湿度データ読み込みプログラム
' 1レコードのデータを読み込み、「,」をデリミタとしてセルへ格納する。
' 1024レコードまで繰り返す。

Sub testcom3()

Macro1　　　　　’ シートヘッダを生成

COMn = 4
ec.Setting = "115200,n,8,1"
ec.HandShaking = ec.HANDSHAKEs.RTSCTS
ec.AsciiBytes = 32
ec.Ascii = "r"

For record = 1 To 1024

Do While ec.InBuffer < 32
DoEvents
Loop
buf1 = Split(ec.Ascii, ",")

For fn = 1 To 6
'ワークシートへ書き込む。
'ヘッダ部をスキップ。bufは「0」始まり。
Cells(record + 1, fn) = buf1(fn - 1)
Next fn

Next record

ec.COMn = 0
MsgBox ("データの読み込みが終了しました。")
End Sub

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/10/10 ユーザー名 : ishi
' ヘッダ部生成
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "日付"
ActiveCell.Characters(1, 2).PhoneticCharacters = "ヒヅケ"
Range("B1").Select
ActiveCell.FormulaR1C1 = "時刻"
ActiveCell.Characters(1, 2).PhoneticCharacters = "ジコク"
Range("C1").Select
ActiveCell.FormulaR1C1 = "室外温度"
ActiveCell.Characters(1, 2).PhoneticCharacters = "シツガイ"
ActiveCell.Characters(3, 2).PhoneticCharacters = "オンド"
Range("D1").Select
ActiveCell.FormulaR1C1 = "室内温度"
ActiveCell.Characters(1, 2).PhoneticCharacters = "シツナイ"
ActiveCell.Characters(3, 2).PhoneticCharacters = "オンド"
Range("E1").Select
ActiveCell.FormulaR1C1 = "室内湿度"
ActiveCell.Characters(1, 2).PhoneticCharacters = "シツナイ"
ActiveCell.Characters(3, 2).PhoneticCharacters = "シツド"
Range("F1").Select
ActiveCell.FormulaR1C1 = "ヒータ制御"
ActiveCell.Characters(1, 3).PhoneticCharacters = "ヒータ"
ActiveCell.Characters(4, 5).PhoneticCharacters = "セイギョ"
Range("A2").Select
End Sub

</font>