Garmin Connectデータの自動集計ツール
Garmin Connectは、Garmin製スマートウォッチのユーザに取って、非常に使い勝手の良いツールです。 私は、睡眠時間のモニタリングをするために、そのデータをExcel上でグラフ化して バイオリズムのモニタリングをしております。そのとき、ブラウザ上のデータを クリップボード経由で Excelへ自動転記するマクロを作成して省力化しています。
'
' Garmin Connect>睡眠ページ>全選択>コピーの内容から,
' 睡眠データを自動コピーする。
'
Public Sub PasteBedTime()
'
' クリップボードのデータ取出し
'
Dim x As DataObject
Set x = New DataObject
x.GetFromClipboard
Dim buff As String
buff = x.GetText
#If False Then
'' デバッグデータをテキストファイルからロード
Dim temp As String
buff = ""
Open "C:\clipboard dummy.txt" For Input As #1
Do Until EOF(1)
Line Input #1, temp
buff = buff & temp & vbCrLf
Loop
Close #1
#End
0