先に記載した関数で取得したURLから、個々のスポット情報を取得 Public Function getSpotList(sUrl As String) As Variant Dim ie As InternetExplorer: Set ie = New InternetExplorer Dim sRet As String Dim dom As HTMLDocument Dim el As IHTMLElement …

GoogleでKeyWordを+でつなぐ+「site:www.tripadvisor.jp」で検索 →検索結果タイトル&本文にKeyWordsが含まれるもののリンク先URLを取得 Hitするものが存在しなかった場合は空文字を返す KeyWords はスポット名 + 地域名(市区町村あたり) + ジャンル(観光/グ…

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 リクエスト投げるところはこ…

5/31 追記 自宅環境だとcmdでunzipコマンドが通らない。 どうしたらunzipをcmdで使えるようになるのか調査中。 http://www.info-zip.org/ にあるものを適切にインストールすればよいらしいが引き続き調査中 Public Function unzip(sFileName As String, sPwd…

17/05/26追記:Googleへのログインのインターフェースが変わったので現在機能しません。 17/05/31追記:よくわからないClassNameでログインアカウントを選択してよいなら改修できそうな気がする なお、引っ掛かるのは「(4)ログインアカウントの選択」の工程 ク…

Public Sub getSnowSurf() Dim ie As InternetExplorer: Set ie = New InternetExplorer: ie.navigate "https://snow.gnavi.co.jp/close/": Call ieCheck(ie) Dim dom As HTMLDocument: Set dom = ie.document Dim el As IHTMLElement Dim ws As Worksheet: …

YouTube APIのlist処理でとろうとしてたが、一部取れない項目があるらしいので力技で。 設定画面に遷移して情報を取得するので、動画の所有者以外はたぶん無理。 Public Sub getSettingVideo(sId As String) Dim ie As InternetExplorer Dim dom As HTMLDocu…