(Excel VBAでのIE制御) はてなブログ 「記事の管理」ページ の「絞り込んで検索」ボタンをクリックする。

Excel VBAのIE制御で、はてなブログの記事の管理画面 >「記事の管理」ページを制御します。

前回までに「絞り込み検索」ボタンをクリックして、投稿日を入力したので、今回は、「絞り込んで検索」ボタンをクリックしてみます。

下の、赤線で囲んだボタンをクリックします。

このボタンのHTMLを見てみると、このようになっています。

<button type="submit" class="entry-search-button">
  <i class="blogicon-search"></i>絞り込んで検索
</button>

<button>タグなので、click します。

VBAコードは以下のようになります。
objIEは、管理ページのオブジェクトです。

Dim objTag As Object
For Each objTag In objIE.document.getElementsByTagName("button")
    If InStr(objTag.innerHTML, "絞り込んで検索") > 0 Then
        objTag.Click
    End If
Next

<button>タグの中に「絞り込んで検索」という文字が含まれているものを捜します。見つかれば、その<button>タグをクリックします。

この例では、投稿日を1月1日から2月1日にしましたので実際に検索対象になるのは、1月1日から1月31日に投稿した記事となります。

1回の「絞り込んで検索」ボタンクリックで20記事分が表示されます。まだ表示しきれていない記事がある場合は 「次のページ」ボタンが表示されます。

次回は、この「次のページ」ボタンをクリックしてみます。続きます。