アメブロの記事本文をVBAでバックアップする№3

最終更新日：2013-06-02

アメブロの記事本文をVBAでバックアップする№3

前回は、当該月の１ページだけの取得でしたので、

今回は、当該月のすべてのページを取得するようにします。

Sub 一覧取得()
　　Const cnsUri As String = "http://blog.ameba.jp/ucs/entry/srventrylist.do?pageID=【NO】&entry_ym=【yyyymm】"
　　Dim i As Long
　　Dim j As Long
　　Dim strID As String
　　Dim strUri As String
　　Dim strHref As String
　　Dim objIE As New InternetExplorer
　　Dim objITEM As Object
　　Dim intNO As Integer
　　Dim blnStop As Boolean
　　With Worksheets("記事一覧")
　　　　intNO = 1
　　　　Do
　　　　　　strUri = Replace(cnsUri, "【NO】", intNO)
　　　　　　strUri = Replace(strUri, "【yyyymm】", .Cells(1, 2))
　　　　　　objIE.navigate strUri
　　　　　　Call untilReady(objIE)
　　　　　　i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
　　　　　　For Each objITEM In objIE.Document.getElementsByTagName("h2")
　　　　　　　　strHref = objITEM.getElementsByTagName("a")(0)
　　　　　　　　j = InStr(strHref, "entry-")
　　　　　　　　If j > 0 Then
　　　　　　　　　　strID = Replace(Mid(strHref, j + 6), ".html", "")
　　　　　　　　　　.Cells(i, 1) = strID
　　　　　　　　　　.Hyperlinks.Add Anchor:=.Cells(i, 2), _
　　　　　　　　　　　　　　　　　　Address:=strHref, _
　　　　　　　　　　　　　　　　　　TextToDisplay:=objITEM.innertext
　　　　　　　　　　i = i + 1
　　　　　　　　End If
　　　　　　Next
　　　　　　blnStop = True
　　　　　　For Each objITEM In objIE.Document.getElementsByTagName("a")
　　　　　　　　If objITEM.innertext = "次へ" Then
　　　　　　　　　　blnStop = False
　　　　　　　　End If
　　　　　　Next
　　　　　　If blnStop = True Then
　　　　　　　　Exit Do
　　　　　　End If
　　　　　　intNO = intNO + 1
　　　　Loop
　　End With
　　objIE.Quit
　　Set objIE = Nothing
　　Set objITEM = Nothing
　　MsgBox "オワッタッタッタッタッター"
End Sub

太字の部分が、前回より追加した部分になります。これは、

変数、intNoで、1ページから順次カウントアップします。

何ページあるかわからないので、

Do～Loop で、終了条件を指定していません。

ループ内で、終了判断し、
Exit Do
で、ループを抜けるようにします。

そうです、問題は終了判断です。

例えば、６月に３ページの記事一覧があった場合、

http://blog.ameba.jp/ucs/entry/srventrylist.do?pageID=4&entry_ym=201306

この場合に、エラーになるならエラー判断で良いのですが、

エラーにならずに、3ページ目が表示されます。

ここで困ってしまいます。

４ページ目があるか無いかの判断をどうするかです。

HTMLソースを見て、いろいろと方法は考えられるでしょうが、

ここでは、

「次へ」ボタンに注目してみました。

「次へ」にリンクが無ければ、最終ページということです。

ただし、当該月に１ページしかない場合は、

そもそも、「次へ」が存在しないので、それも考慮しています。

つまり、「次へ」があってリンクが付いている場合のみ、次ページがあるという判断です。

複数ページの取得になりますので、時間もかかるようになってきます。

そこで、最期にメッセージボックスで表示します、ちょっとご愛嬌（笑）

さて、これで当該月の記事一覧が取得できました。

せっかくなので、記事編集ページへのハイパーリンクも付けてみましょう。

アメブロの記事本文をVBAでバックアップする №1 №2 №3 №4 №5 №6