三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
(※詳細は[三流君 三流プログラマーとは?]を見てください)


広告:


[記事一覧、バックナンバーを見る]

回答下書き テストで数秒単位で書き変わる cyberagentfx の 値を取得してみた

下記の回答下書き、テストで cyberagentfx の 値を取得してみた

ブラウザのデータをエクセルで表示させるには?
ブラウザでは株価がJavascriptで表示されています。
それをリアルタイムでエクセルに反映させたいのですが、何か良い方法はないでしょうか?
(楽天RSSを使う方法はなしで)
http://q.hatena.ne.jp/1309881508

いきなり、テストソース

http://www.ken3.org/vba/zip/IE_Book20110707.zip に テストで使ったExcelのファイルを保存しました。
VBAの中身を変更したりして、遊んでみてください。

>三流君 Ken3さん
具体的にはログイン後のサイトになるので例として
http://www.cyberagentfx.jp/
この上の方に表示されているレートを取得したいです。

Sub test()

    Dim objIE As Object '変数を定義します。
    
'IEの起動
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'処理したいページを表示します。
    objIE.Navigate "http://www.cyberagentfx.jp/"

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend
    
'ページ表示後、テストで取得を繰り返す
    Dim y As Integer      '行カウンター
    Dim x As Integer      '列カウンター
    
    Dim c As String       '現在の値
    Dim strOLD As String  '前の値を覚える
    Dim time10 As Date    '10秒先を保存
    Dim tmp As Variant    'スペース区切りで分割させたかったので
    Dim i   As Integer    'ループのカウンター

    'ループ前 の 初期処理
    strOLD = "初期化"   'はじめは一致させたくないので、適当に初期化
    y = 5  '気分で5行目からテストでセット
    time10 = DateAdd("s", 20, Now())  '20秒後を計算
    Cells(3, 1) = time10 & " までテストする"
    
    While Now() <= time10   '20秒間だけ回りたいので
        c = objIE.document.all("ratebox").innerTEXT  'ID ratebox の テキストを取得
        If c <> strOLD Then  '前回の値と違ったら?※処理が重いと次を取りこぼすけど
            '値をセットする
            Cells(y, 1) = Now 'テストで時刻のセット
            Cells(y, 2) = Replace(c, vbCrLf, "")   '("ratebox").innerTEXT 元の値を改行消してテストでセット
            '改行で区切って、テストでセット
            tmp = Split(c, vbCrLf) '改行区切りで取り出す
            x = 3  '列3からセット
            For i = 0 To UBound(tmp)  'ループで配列をセット
                If Trim(tmp(i)) <> "" Then  'データありの時セットする、空白は飛ばす
                    Cells(y, x) = tmp(i)
                    x = x + 1
                End If
            Next i
      
            '次の準備
            y = y + 1  '次の位置へ
            strOLD = c '値を覚える
        End If
            
        'ふざけて現在時刻を描画?
        Cells(4, 1) = Now() & " テスト中"
        DoEvents
    
    Wend

    Cells(4, 1) = "テスト終了"

    objIE.Quit  'IEを閉じる

End Sub

↑少し、テストが甘いけど、こんな感じで、
id=ratebox から データを抜き出してみました。
※抜くといっても、
c = objIE.document.all("ratebox").innerTEXT で 改行で区切られたテーブルデータを取得して、
tmp = Split(c, vbCrLf) Splitで分解
For i = 0 To UBound(tmp) で ループ
If Trim(tmp(i)) <> "" Then 空白を判断してセットする
そんな感じでした。

テストのxlsを保存しました

http://www.ken3.org/vba/zip/IE_Book20110707.zip に テストで使ったExcelのファイルを保存しました。
VBAの中身を変更したりして、遊んでみてください。

ループしてる解説動画(笑)

いつもの動画解説です。
完成品を解説しているのに、いつものようにあわててます。

動画Yotubeで直接見るには→ http://www.youtube.com/watch?v=bomZyIH9p-w

↑※おいおい、解説がループしてて、無駄に長くなってるし、ポイントの解説は数秒でスルー。

何かの参考となれば幸いです。。。




三流君へ メッセージを送る

全ての質問に答えることはできませんが、
ダメもとで、気軽に質問、感想、メッセージを送ってくださいね・・・

感想や質問・要望・苦情など 三流君へメッセージを送る。
下記のフォームからメッセージを送ることができます。


あなたのお名前(ニックネーム):さん
返信は?:

アドレス:に返事をもらいたい
感想や質問↓:


(感想や質問・要望・苦情はHPで記事に載せることがあります。)
例:[XXXXさんへ回答例]←みたいに回答していたり...


Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。

三流解説動画の再生リスト
https://www.youtube.com/user/ken3video/playlists

本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)