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…