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

質問

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

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

回答No.9

DOUGLAS_

＞ADSL回線は3.4Mbbsしか出ていません。
　パソコン自体は、そこそこ性能の良いものをお使いのようですので、まさかとは思いましたが、やっぱりお尋ねして良かったです。
　これが原因ですね!!
　性能の良い パソコン で、プログラム の方はバシバシ動くのに、ＷＥＢページ の内容を ダウンロード するのに時間が掛かっているという図です。

＞５秒にしたところ取り込めました。
　恐らく、
Application.Wait (Now + TimeValue("0:00:05"))
にすれば、
myTbl = Left(myTbl, InStr
の行の頭に「’」を付けて コメントアウト しなくても大丈夫かと存じます。

　つまり、
＞欄外の注はあってもかまわない
という心配はなくなると存じます。

　もし、上記で上手く行かなくて
＞「行の頭に「’」を付け」にするとうまく取り込めました
ということでしたら、
If Selection.Address = "$A$3" Then Range("A1").Select
の時点で、貼付け位置を３行上に持っていけば済むことですが。。。

＞「楽曲タイトル」の行の削除ですが、
＞取り込んだあと別マクロで作業してもいい
　次の事をお試しください。

１）待ち時間を「５秒」にする。
２）「myTbl = Left(myTbl, InStr・・・」の行の頭の「’」は付けない。
３）プログラム を実行する。
　これで、ワークシート に データ が ダウンロード できるかどうかお知らせください。【問５】
　「既存の関数入りのsheetでも同じ方法」で行けるかどうかもお試しください。【問６】

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

＞ときどき 「実行時エラー１００４ ということが発生
＞ctrl+Vにより手動で貼り付けを行うことで対処
　これは、
ActiveSheet.Paste
の行で エラー により、マクロ が止まった時点で、<<< 本来、貼付けるべき場所（Ａ列最終行から１行空白行を空けて次の行）に >>> 手動で貼付けておられるということですか？【問７】

　もし、同じ場所（Ａ列最終行から１行空白行を空けて次の行）であるということなら、エラー の原因が分かりません。

　試しに、エラー が出たときに、イミディエイト ウィンドウ に
? Selection.Address
と入力して、[Enter] を押下し、そこに出る アドレス（例えば「$A$27」）が、「Ａ列最終行から１行空白行を空けて次の行」になっているかどうかお知らせください。【問８】

＞A列B列のセルはなにも書かれていないけれど
＞これをいったん削除してみると取り込めるようになりました。
＞既存の関数入りのsheetでも同じ方法で可能でした。
　ますます、不可解ですが、とりあえず、上記の質問にお答えいただいてから、順に処理していきましょう。

お礼

問５
１）待ち時間を「５秒」にする。
２）「myTbl = Left(myTbl, InStr・・・」の行の頭の「’」は付けない。
３）プログラム を実行する。

で試しましたが、残念ながら２）の「’」をつけないとA4のメッセージが出てしまい実行できません。
つけるとダウンロードはできているようですが、やはりペーストエラー(A5)になってしまいます。
（つまりctrl+Vで貼り付けはできる）
【問６】
関数入りsheetでも同じ状況です。
【問７】
以前の説明が不十分だったかもしれませんが、連続作業という意味はBookSheetの下段に異なるchを続けて呼び出すのではなく
1chごとに新しいBookSheetに保存するのでchごとの呼び出しは常にA1になります。
したがってA5の停止状態ではカーソルがA1にあるためそこに手動ペーストをしている訳です。
やり方は401Chを呼び出したら、ファィル名を決めて保存し、そのシートのA列B列の呼び出しデータを削除し、次のChをこれに呼び出しこれをまた別の名で保存するという繰り返しをしています。
（ということはテキストボックスの入力も、その都度１回で終わらせてもかまいません）
このため問８については試していません。

＞A列B列のセルはなにも書かれていないけれど
というのは、もしかしたらA列B列になにか見えないデータやあるいは前のデータの残骸でもあってペーストの邪魔をしているのかと思って念のために削除しているもので、その結果がたまたま呼び出せたというものかもしれません。