読者です 読者をやめる 読者になる 読者になる

或阿呆のブログ

Pythonを好んで使っているプログラマです。Ruby,Perl,PowerShell,VBAなどでもたまに書いています。おバカなことが大好きです。

ExcelVBAからはてなブログAtomPubを使ってみる。

はてなブログは何やらAtomPubというApiを使ってブログの情報を取得したり、エントリを投稿したり出来るらしい。

詳しい仕様は以下で。
はてなブログAtomPub - Hatena Developer Center

サンプルコードを書いて動かして見た。

サンプルコード

Public Function getHatenaBlogInfo( _
    url As Variant, _
    userId As Variant, _
    password As Variant)
    
    Dim objXmlHttp As MSXML2.xmlhttp
    Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    Call objXmlHttp.Open("GET", url, False, userId, password)
    Call objXmlHttp.Send
    
    If objXmlHttp.Status = 200 Then
        getHatenaBlogInfo = objXmlHttp.responseText
    Else
        getHatenaBlogInfo = ""
    End If
End Function
Public Sub main()
    Dim url, userId, password As Variant
    Dim xmlString As String
    Dim objXmlDoc As MSXML2.DOMDocument

    url = "https://blog.hatena.ne.jp/oneshotlife_tom/oneshotlife-tom.hatenadiary.jp/atom"
    userId = "spam"      '自分のユーザーIDを入れてね
    password = "ham"     '自分のパスワードを入れてね

    xmlString = getHatenaBlogInfo(url, userId, password)
    Set objXmlDoc = CreateObject("MSXML2.DOMDocument")
    objXmlDoc.LoadXML (xmlString)
    
    Debug.Print objXmlDoc.ChildNodes(1).ChildNodes(0).ChildNodes(0).nodeTypedValue
    
End Sub

実行結果

或阿呆のブログ

ブログ名が取得出来た!