今回は、当該月のすべてのページを取得するようにします。Sub太字の部分が、前回より追加した部分になります。変数、intNoで、1ページから順次カウントアップします。終了条件を指定していません。Doで、ループを抜けるようにします。6月に3ページの記事一覧があった場合、http://blog.ameba.jp/ucs/entry/srventrylist.do?pageID=4&entry_ym=201306この場合に、エラーになるならエラー判断で良いのですが、エラーにならずに、3ページ目が表示されます。ここで困ってしまいます。4ページ目があるか無いかの判断をどうするかです。「次へ」ボタンに注目してみました。「次へ」にリンクが無ければ、最終ページということです。当該月に1ページしかない場合は、そもそも、「次へ」が存在しないので、それも考慮しています。「次へ」があってリンクが付いている場合のみ、次ページがあるという判断です。複数ページの取得になりますので、時間もかかるようになってきます。そこで、最期にメッセージボックスで表示します、ちょっとご愛嬌(笑)さて、これで当該月の記事一覧が取得できました。記事編集ページへのハイパーリンクも付けてみましょう。Next)|VBA入門8.セルに文字を入れるとは(Range,Value)|VBA入門9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説10.ひらがな⇔カタカナの変換|エクセル基本操作ホームマクロVBAマクロVBAサンプル集アメブロの記事本文をVBAでバックアップするNo3このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。GASスプレッドシート入門スプレッドシート応用GAS入門GAS応用ホームマクロVBAマクロVBAサンプル集アメブロの記事本文をVBAでバックアップするNo3このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。