This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* 2018-06-02 */ | |
/* | |
* 読者になるボタン | |
*/ | |
/*共通の読者ボタンの設定*/ | |
.hatena-follow-button { | |
font-size:15px; /*文字の大きさ*/ | |
border: 0px !important; /*枠線なし*/ | |
width: 100px; /*ボタンの横幅*/ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'(1)JSONデータを解析し、オブジェクト変数に格納 | |
Dim objJson As Object | |
Set objJson = js.CodeObject.eval("(" + resText + ")") | |
'(2)解析済みのJSONデータの件数を取得 | |
Dim objRowCount As Integer | |
objRowCount = CallByName(objJson, "length", VbGet) | |
'(3)結果をワークシートへ転記 | |
For idx = 0 To objRowCount - 1 'データの件数だけ繰り返す |
OlderNewer