ExcelマクロVBAサンプル集 | アメブロの記事本文をVBAでバックアップする4 | Excelマクロの実用サンプル、エクセルVBA集と解説



最終更新日:2013-06-02

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


前回までで、当該月の記事一覧が取得できました。

今回は、記事編集ページへのハイパーリンクを付けてみましょう。

後々の扱いやすさを考慮して、表示形式を「文字列」にして下さい。

Sub 一覧取得3()
  Const cnsUri As String = "http://blog.ameba.jp/ucs/entry/srventrylist.do?pageID=【NO】&entry_ym=【yyyymm】"
  Const strEdit As String = "http://blog.ameba.jp/ucs/entry/srventryupdateinput.do?id=【ID】"
  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
          .Hyperlinks.Add Anchor:=.Cells(i, 3), _
                  Address:=Replace(strEdit, "【ID】", strID), _
                  TextToDisplay:="編集"

          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


http://blog.ameba.jp/ucs/entry/srventryupdateinput.do?id=【ID】

これが記事編集ページのURLになります。

このID部分を取得したIDで置き換えて、

「編集」の文字表記に、ハイパーリンクを付けてセルに設定しています。

ここは簡単ですね。

いよいよ大詰め、記事本文のバックアップに入ります。

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




同じテーマ「ExcelマクロVBAサンプル集」の記事

数独(ナンプレ)を解くVBAに挑戦5
数独(ナンプレ)を解くアルゴリズムの要点とパフォーマンスの検証4
ナンバーリンク(パズル)を解くVBAに挑戦8
ナンバーリンクを解くVBAのパフォーマンス改善3

新着記事 ・・・新着記事一覧を見る

SUMIFの間違いによるパフォーマンスの低下について|エクセル関数超技(6月17日)
条件式のいろいろな書き方:TrueとFalseの判定とは|ExcelマクロVBA技術解説(6月15日)
空白セルを正しく判定する方法2|ExcelマクロVBA技術解説(5月6日)
フルパスをディレクトリ、ファイル名、拡張子に分ける|ExcelマクロVBA技術解説(4月15日)
テキストボックスの各種イベント|Excelユーザーフォーム入門(4月9日)
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除|ExcelマクロVBAサンプル集(4月4日)
最後の空白(や指定文字)以降の文字を取り出す|エクセル関数超技(3月26日)
先頭の数値、最後の数値を取り出す|エクセル関数超技(3月26日)
Excelファイルを開かずにシート名をチェック|ExcelマクロVBAサンプル集(3月23日)
数式の参照しているセルを取得する|ExcelマクロVBAサンプル集(3月18日)

アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
2.RangeとCellsの使い方|ExcelマクロVBA入門
3.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
4.変数とデータ型(Dim)|ExcelマクロVBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
6.定数と型宣言文字(Const)|ExcelマクロVBA入門
7.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
8.マクロって何?VBAって何?|ExcelマクロVBA入門
9.CSVの読み込み方法|ExcelマクロVBAサンプル集
10.ひらがな⇔カタカナの変換|エクセル基本操作



  • >
  • >
  • >
  • アメブロの記事本文をVBAでバックアップする4

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

    ↑ PAGE TOP