エクセルでの株の時系列自動取得について

質問

エクセルでの株の時系列自動取得について

只今、エクセルで「中国情報局」というサイトから香港株の売買代金の時系列を取得しようと思いマクロを組んでみたのですが、うまくいきません。

以下のマクロを作ってみたのですが自分ではよく分かりません。
詳しい方いましたらご教授よろしくお願いします。

Sub ランキング02()

Dim str As Integer
Dim Pst As Integer

'売買高ランキングの取得

For i = 1 To 40
str = 20 * (i - 1) 'ページの先頭にくるランキング
Pst = 21 * (i - 1) + 1 'シート上の取り込み行位置

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://stock.searchina.ne.jp/data/quote_sort.cgi?start=" & str & "&market=h&theme=&st=13&az=0" _
, Destination:=Range("A" & Pst))
.Name = "売買高ランキング"
.RefreshStyle = xlOverwriteCells
.WebFormatting = xlWebFormattingNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "13"
.Refresh
End With

Next i

End Sub

回答No.2

imogasi

>うまくいきません。
プログラムの質問に、こんなことを書いて質問する例がときどきあるが、他人には初めて認識する問題で、何のことかわからない。同うまく行かないのか説明するのが筋でしょう。本件は自分の金儲けの関連問題でしょう。時間をかけないで読者に判るようにするのが質問者の礼儀ではないか。
ーー
本件そのまま実行してみると、途中ストップはしないようだ。
１６９行ぐらいから実質空白になっているがこの点がおかしいといっているのか。
ーー
str = 20 * (i - 1) 'ページの先頭にくるランキング
Pst = 21 * (i - 1) + 1 'シート上の取り込み行位置
は一致しないがおかしくは無いか。
５０位づつとして、第１位は２行目から見出し２＋内容５０＋余白１行、第５１位は５５行目から、見出し２＋内容５０＋余白１行・・、のように。
シート上の取り込み行位置と先頭に来るランキングは平行するのでは。
＞所定の条件による検索結果はありませんでした。
とで出すがこれはなに？ランキング表は普通第何位間で出るのですか。
For i = 1 To 40
と４０回繰り返し担っているが、多目のものでそれまでに終了条件が到達するのでは。
もしそうならそれは何か。

回答No.1

kmetu

データは取り込まれてきますがなにが上手くいかないのでしょう。