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 Str…

Yahoo!Japan デベロッパーネットワークトップ > テキスト解析 > キーフレーズ抽出 https://developer.yahoo.co.jp/webapi/jlp/keyphrase/v1/extract.html Const APIKEY_Y As String = "取得したAPIキー" Public Function getKeyWords(ByVal str As String) A…

Const sFileName as String ="パワポファイルをフルパスで" Sub Export_PPT() Dim pptApp As PowerPoint.Application: Set pptApp = New PowerPoint.Application Dim pptFile As PowerPoint.Presentation Dim dStartTime As Date: dStartTime = Now() Set pp…

https://a3rt.recruit-tech.co.jp/product/textClassificationAPI/ リファレンスなどはこちら https://github.com/VBA-tools/VBA-Dictionary JSONの操作で使用 http://blog.goo.ne.jp/xmldtp/e/c7e3c3631d31206f818b30276d0f3091 リクエスト投げるところはこ…