半角チルダ

ExcelVBA、その他。
覚え書きや、補足資料などのスクラップブック。
end-u(1037781)

■xl2000:yahooファイナンスとwebクエリ

2008-10-27 23:00:00 | 雑記
ヤフーファイナンスからのデータダウンロードについて - 教えて!goo
この10月以降、xl2000の環境では上記Q&Aのコードでエラーが出るようになりました。
2002/2003は問題ないです。

確認のためマクロ記録した下記コードを実行してみるとエラーは出ませんが、データが取り込めません。

Sub Macro1()
  With ActiveSheet.QueryTables.Add( _
           Connection:="URL;http://table.yahoo.co.jp/t?s=998407", _
           Destination:=Range("A1"))
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = False
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .Refresh BackgroundQuery:=False
  End With
End Sub

手作業で[新しいWebクエリ]を実行すると

このwebクエリによって返されるデータがありません

こんなメッセージです。
自分では株もやらないので全然困らないのですが、急に取り込めなくなると困る方もいらっしゃるかもしれませんね。

推測ですけど、どうもyahooのソースコードが変わった事が影響している感じ。
上記 http://table.yahoo.co.jp/t?s= のページの場合だと47行目あたりに
...no-repeat;/*¥*//*/width:137px;height:16px;/**/}
という記述があります。(cssは詳しくないのですが、コメントか何か?)
ローカルにwebページを保存して確認してみると、この箇所が原因のようです。
xl2002以降ではwebクエリの仕様が変更になっていますから、2000だけ影響を受けたのでしょうか。
ソースが修正されるまでは別の方法で取り込むしかないようです。
Comment
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする