Public Function getAozora(ByVal sUrl As String) As String
Dim ie As InternetExplorer: Set ie = New InternetExplorer: ie.navigate sUrl: Call ieCheck(ie)
Dim dom As HTMLDocument: Set dom = ie.document
Dim sTitle As String: Dim sAuthor As String
sTitle = dom.getElementsByClassName("title")(0).innerText
sAuthor = dom.getElementsByClassName("author")(0).innerText
Dim el As IHTMLElement
For Each el In dom.getElementsByClassName("main_text")(0).getElementsByTagName("ruby")
el.outerHTML = el.getElementsByTagName("rb")(0).innerText
Next el
For Each el In dom.getElementsByClassName("main_text")(0).getElementsByTagName("span")
el.outerHTML = ""
Next el
For Each el In dom.getElementsByClassName("main_text")(0).getElementsByTagName("div")
el.outerHTML = ""
Next el
getAozora = dom.getElementsByClassName("main_text")(0).innerText
ie.Quit
End Function