メモ

主にプログラミング系の備忘録

2017-10-10から1日間の記事一覧

TripAdviserの一覧からスポット情報をスクレイピング

VBA

先に記載した関数で取得した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 …

TripAdviserのスポット一覧のURLを取得

VBA

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