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

質問

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

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

回答No.13

DOUGLAS_

先ず、
＞A11の関数式が消える問題は
＞～～～により解決しました。
に付きましては、私の配慮が足らなかったことで、想像通りです。

＞A12のご質問は
＞３）になりました。
　これは、ラッキー です。
　次の マクロ をお楽しみになさってください。

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

＞関数式はD～Hに入っています。
とのことですが、実際に、ＷＥＢの表をＡ・Ｂ列に貼り付けてみましても、
Ｅ列＝Ｇ列＝　　　Ａ列
Ｄ列＝Ｆ列＝Ｈ列＝Ｂ列
となって、何の為の関数なのか全然分かりません。

　ただ、表中の２行目の
放送日 ： ２０１１／７／２５～２０１１／７／３１
が
■110725SDネル:
になっているのと、
■J-POP最新ヒットチャート
の後に余分な スペース が入っているのが トリム されているだけです。

＞何の目的でいれたのかわからなくなってしまいそのまま放置
とのことですが、仰る通りかと存じます。
　ですので、　
＞このG列とH列をコピペして別作業に使
うのではなくて、Ａ・Ｂ列に貼り付けた時点で、すべての セル を トリム してしまえば、「関数式」は全く不要です。

＞G列とH列をコピペして別作業に使います。
＞ここから先はLotus123シートで作成
とのことですので、「関数式」を全く消してしまって、サラの「Sheet1」シート で マクロ を実行し、そこに出来た Ａ・Ｂ列 の値を Lotus123 でご利用になったら、「G列とH列をコピペ」しておられたときと比べて、何か不具合がありますでしょうか？【問15】

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

＞ここから先はLotus123シートで作成してしまった
とのことですが、この際、「毒を食らわば皿まで」
＞その部分も改めてエクセルで作り治
されたらいかがでしょうか？

＞またVBAや関数を色々考える
ほど、大変な作業をしていらっしゃるのでしょうか？

　「繰り返し用_改訂版」マクロで、ある程度成形されたＡ・Ｂ列の データ ですが、ここから、お好きな アーティスト だけを抜粋するとかいうような、noro6857 さんのご趣味による作業でしたら、そのまま Lotus123 で行なわれるのが無難でしょうが、そんなに難しくない作業でしたら、ついでに、この マクロ の続きでやっつけた方が便利かと存じます。

　<<< もしも >>> 簡単そうな作業でしたら、仰っていただいたら、この際、「乗りかけた船」で考えさせていただきますが、いかがでしょうか？【問16】

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

＞VBAの保存拡張子をxlsmに直したら、
＞「対応していない拡張子」とかでとまってしまった
につきましては、次の事をお試しいただき、(５) の結果をお知らせください。【問17】

１）新規の ブック を起動します。
２）「新しいマクロの記録」を開始します。
３）この ブック を Ｄドライブ の直下に、Excel 2010 の標準ファイル形式で、「hoge」とでも名前を付けて保存します。
４）「新しいマクロの記録」を終了します。
５）ＶＢＥで「ActiveWorkbook.SaveAs」の後に、何と書かれているか確認します。
６）「D:\hoge.xl??」を削除します。

お礼

E2はA1のChとA2の放送日付をコード化させています。
■110725SD401
たしかにそれ以外はソースデータと全くかわりませんね。
ただ過去のデータで

メトロ に乗って 浅草 へ 上 々 颱風
ダンシング ・ オールナイト もんた & ブラザーズ
My Babe 君が 眠るまで シャ 乱 Q

のような記述がたくさんあったため、単にTRIMだけではなおらなくて、
OKWavでの協力を得ながらこの関数を書き込んだ記憶があります。
現時点ではこのようなソースが見当たらないのでこのままならば
E2以外は関数を使う必要はないかもしれません。
万一あったときのための気休め程度の存在です。
E2のコードはいずれすべての行に付すために残す必要はあるので、
コピペの際１行目にくるような方策があれば関数は不要なります。
あるいはこのままcopyしてLotus側で作ってもいいかもしれません。（問１５）

Lotusの方は２種類つくっていてChによって使い分けています。
chの記述は
401,423のように1～ENDまで通しの場合
403,410,412のように通しではあるが途中に■が入る場合
418,429のように途中から内容が変わるため連番を変更する必要がある場合。
411.426のように年度が出てくる場合、その年度を各行に折り込む場合。
等がありこれらを
■がはさまったch曲目リスト一覧（放送される際■部分は間奏が流れます）
■をのぞいたch 曲目／歌手／曲目（歌手）／110725SD401-01曲目（歌手）／曲目（歌手）110725SD401-01／01曲目（歌手）
（年度が入る場合－曲目[98]のようになる）
■だけの行を集めたタイトルリスト
また各先頭行は■110725SD401最新チャート＋１曲目タイトルあるいは■110725SD405AKB48特集＋１曲目タイトル
というふうな形を表示させています。

これらをかつてお願いしたように、たて１列のテキストに置き換えるマクロを使うので、これらをすべて
エクセル１発でやったほうがかなり楽かとは思っていますが
説明するのにシートを直接見ていだけば分かりやすいのですが、説明だとなかなかうまくできそうもなく、
内容によってそのchだけのための手直しもあったりして
常にその都度お尋ねできる環境ではないため、せっかくのご好意ですが当面はLotusのままで進めさせていただこうと思っています。【問16】
問１７
xlsの場合
ActiveWorkbook.SaveAs Filename:="D:\Book1.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

標準のxlsxを使用した場合、保存の段階で
次の機能はマクロなしのブックに保存できません・VBプロジェクト
これらの機能が含まれるファイルを保存する場合は「いいえ」をクリックしファイル名で「マクロ有効のファイルを選択、マクロなしのブックとして保存いする場合は「はい」
により「はい」を選択したものです。
ActiveWorkbook.SaveAs Filename:="D:\Book1.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False