エクセルのWEBクリエで取り込めないデータ

質問

WEBデータをVBAで取り込みたいと思っていますが、
次のサイトをWEBクリエで取り込もうとしてもデータ内容が取り込ません。
WEBによって取り込めない場合もあるのでしょうか。
また取り込む方法は他にありますか。

※取り込みたいデータ
http://www.stardigio.com/songlists/lists1/401.html

回答No.8

DOUGLAS_

＞お手数をおかけします。
　ぃぇぃぇ、http://okwave.jp/qa/q6129006_2.html を思い出しますゎ　　（＾凹＾）

--------------------------------------------------

＞いずれでもTESTマクロでは「こんにちわ」までたどり着きました。
　ということは、(甲)ＩＥオブジェクトの読込、(乙)表部分の htmlコード の取り込み、(丙)クリップボード オブジェクト の操作、以上３点が問題なく行なわれているということになります。

--------------------------------------------------

＞サンプルコード１による場合は、
＞差し替えた・・・ところで
＞No４と同じメッセージになりました。
　では、先ず、
myTbl = Left(myTbl, InStr(・・・
の行の頭に「’」を付けて コメントアウト し、それから マクロ を実行してみられるとどうなりますでしょうか？【問１】

　この行は、表の末尾にある「＊個人的に楽しむ～～～御了承下さい。」の２行を削除するための コード ですので、さほど重要ではありません。

　次に、下記の操作の結果をお知らせください。【問２】

１）「myTbl = objIE.Document・・・」の行で [F9] キー を押下して ブレークポイント を置きます。
２）[デバッグ(D)] - [ウォッチ式の追加(A)...] で [ウォッチ式の追加] ダイアログ を開き [式(E):] に「myTbl」と入力して [OK] を クリック します。
３）[F5] キー で一気に マクロ を実行します。
４）「myTbl = objIE.Document・・・」の行で マクロ が止まりますので、それ以降は [F8] キー を押下して ステップ イン デバッグ します。
５）エラー が出た時点で、イミディエイト ウィンドウ を開き（そこに何か書かれていた場合は、[Ctrl] + [A] ですべて選択して、[Delete] キー で、削除してください）、「? myTbl」と書いて [Enter] を押下してください。
６）その結果、(ア)「? myTbl」の下に「空白または改行」だけが２～３行表示された場合は、上記の (乙) が出来ていないということになります。

　(イ)「空白または改行」ではなくて、「<div id="SongLists"」で始まる長～い文字列が表示された場合は、「htmlコード の取り込み」はできているけれども、その中に「class="caption"> 」という文字列がないので、「InStr(・・・)」が「0」になり、つまり、「InStr(・・・) - 1」の値が「-1」となって「Left(myTbl, InStr(・・・) - 1)」の式の意味が「myTbl の左から -1 文字分」ということになります。
　従って、「No４と同じメッセージになりま」す。

　後者の場合は、きちんと「htmlコード の取り込み」が出来ていないことになりますが、その原因は分かりません。
　２～３秒経って [F8] キー を押下したら、問題なく次に進むこともあります。

　気休めに
Application.Wait (Now + TimeValue("0:00:2"))
を「３秒」とか「５秒」に変えてみるといかがでしょうか？【問３】

--------------------------------------------------

＞サンプルコード２の場合は、
＞数字入力Boxで数字を入れたあと
＞再度数字入力Boxが表示される繰り返しになってしまいました。
　これは、恐らく、上記の (乙) が出来ていない状態ではないかと思われます。

　ということは、「サンプルコード２」は非常に冗長な コーディング になっておりますので、この際、切り捨てて「サンプルコード１」の方でお考えください。

--------------------------------------------------

　ちなみに、プロフィール を拝見すると、「ADSL」回線とお書きですが、下り速度は
http://www.musen-lan.com/speed/
で計ると、どのくらい出ていますでしょうか？【問４】
　私の環境（Yahoo! 12MB、基地局から約2km）で計ると、「推定転送速度： 5.94Mbps (742KB/sec)」と計測されました。
http://www.bspeedtest.jp/
で計ると、「下り受信速度: 5.9Mbps(5.99Mbps,749kByte/s)」と出ました。

＃それと、これは憶測ですが、「ANo.5」の「実行時エラー 1004」は、既存の ブック でその マクロ を実行した場合に、Ｃ列以右の計算式に不合理が生じているような気もします。

お礼

「を思い出しますゎ　　（＾凹＾）」
そうですねぇ。あのときはずいぶん親切にしていただき感謝しています。
あのマクロは現在でも重宝していて毎日のように活用していますが、あいにくとあの放送局が７月末で終了となるため、別の局の同内容を掲載した別サイトからの取り込みとなってしまうので、後に別の方（本当はDOUGLAS_様での回答がつながることを期待したのですが）に教えてもらったWEB取り込みマクロを使用することになりますが、取り込み後の並べ替えマクロは引き続き利用させていただくことになります。
しかし、「勉強します」といっておきながら相変わらず他の方をたよりにしてしまい恥ずかしいです。

さて、
問１ですが
「行の頭に「’」を付け」にするとうまく取り込めました。（問３も含めて）
欄外の注はあってもかまわないのでこれでいけるかと思います。

問２ですが
「始まる長～い文字列が表示」されました。

問３
５秒にしたところ取り込めました。

したがってA3のコードにより問１／問３の処理をすることでなんとかなりそうです。

「なんとか」というのは
どういう加減かよくわかりませんが、ときどき
「実行時エラー１００４
Worksheetクラスのoasteメソッドが失敗しました。」
デバック
ActiveSheet.Paste
ということが発生することがあり、そのときはctrl+Vにより手動で貼り付けを行うことで対処できています。
また、読み込めないとき、にA列B列のセルはなにも書かれていないけれどこれをいったん削除してみると取り込めるようになりました。
既存の関数入りのsheetでも同じ方法で可能でした。

あとはA列に「楽曲タイトル」の記述のある行の削除ですが、取り込んだあと別マクロで作業してもいいかと思います。find関数のようなものを使うことになりましょうか。

※ADSL回線は局から2Kmを超える所の環境のため残念ながら3.4Mbbsしか出ていません。Yahoo! 50MBに入っていてもなんとなく無駄のような気がします。
（光はちょっと高いし。ちなみに加入ADSLはNexyBBといって50Mbbsで月2998円です）