先に記載した関数で取得した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 はスポット名 + 地域名(市区町村あたり) + ジャンル(観光/グ…