Chrome(グーグルクローム)の操作・住所から最寄り駅検索・webスクレイピング(自動収集・テクニック)●はじめに今回説明するプログラムは、GoogleChromeとVBAを組み合わせたサンプルプログラムになります。以前、InternetExplorerでの住所からの最寄り駅を検索する方法を説明いたしましたが、今回は、GoogleChromeでの住所データからWeb検索で最寄り駅を検索する方法を説明いたします。インターネットの地図サイト(Yahoo!地図)を利用して、住所情報を入力して検索結果を元に最寄り駅情報を入手します。調べる情報の件数が1~3件程度なら、自分自身で手入力で調べれば良いと思いますが、それが100件を超える場合、時間も掛かりますし手間も掛かります。社内の人事情報等で、個人の住所から該当する最寄り駅を探す場合などに、便利だと思います。それでは、順番に説明いたします。●注意:下記の各プログラムを実行するには、SeleniumBasic事前設定が必要になります。下記を参照して下さい。(サンプル1)下記のプログラムは、GoogleChromeとVBAを組み合わせて、住所データから最寄り駅を検索するサンプルプログラムです。EXCELシートに住所の一覧を作成して、その住所データを元に、WebサイトのYahoo!地図を利用して最寄り駅検索を行い、最寄り駅の1ヶ所分(一番近い駅)のデータをEXCELシートに転記します。【プログラム内容】1【住所の一覧データから最寄り駅を検索します】(1駅)一番近い駅2Webサイト【Yahoo!地図】から最寄り駅を検索します。B列「都道府県庁」の最終行を取得します。GoogleChromeを立ち上げます。Yahoo!地図のWebを開きます。C列「住所」データをYahooM地図!Webページの検索欄に登録します。Yahoo!地図「検索」ボタンをクリックして検索を行います。Yahoo!地図の検索結果により、近隣の駅の情報を取得します。近隣の駅の取得結果をD列に代入します。B列の最終行分まで繰り返します。SeleniumBasic事前設定をサイト(https://akira55.com/seleniumbasic_googlechrome/)より行って下さい。Library】にチェックを入れます。【注意】なお、Webスクレイビングを利用する際は、問い合わせ先のWebサーバーに負荷がかかりますので、連続利用はお控え下さい。Webスクレピングは、データ収集先のホームページに変更・修正等があった場合は、その都度プルグラムの修正が必要になします。※下記のプログラムは、2021年3月時点でのプログラムです。Library】にチェックを入れます。'B列の最終行を取得します。'B列に登録されている最終行まで繰り返します。'C列のセルから出発駅を入力します。'C列のセルから出発駅を入力します。'検索結果より、運賃を取得します。'運賃の取得結果をE列に代入します。'全てのデータが終わるまで繰り返します。Library】にチェックを入れます。'B列の最終行を取得します。'B列に登録されている最終行まで繰り返します。'C列のセルから出発駅を入力します。'C列のセルから出発駅を入力します。'検索結果より、運賃を取得します。'運賃の取得結果をE列に代入します。'全てのデータが終わるまで繰り返します。※プログラム実行後、EXCELシートに登録されている【住所:C列】情報からWebサイト「Yahoo!地図」に検索を行い、最寄り駅が表示され、EXCELシートに結果を転記されました。今回は、都道府県庁の住所を元に最寄り駅(近隣の駅)を検索しました。(サンプル2)下記のプログラムは、上記サンプルプログラム1の応用になります。GoogleChromeとVBAを組み合わせて、住所データから最寄り駅を検索するサンプルプログラムですが、今回は、EXCELシートの住所の一覧を元に、WebサイトのYahoo!地図を利用して最寄り駅検索を行い、最寄り駅の3か所(駅)データをEXCELシートに転記します。【プログラム内容】1【住所の一覧データから最寄り駅を検索します】(3駅)※青枠の住所で検索します。※赤枠に「近隣の駅」3駅が表示されます。今回は、この3駅分のデータをEXCELに転記します。2【C列の住所データを元に検索します。【D列・E列・F列に最寄り駅(近隣の駅)の情報が転記されます。B列「都道府県庁」の最終行を取得します。GoogleChromeを立ち上げます。Yahoo!地図のWebを開きます。C列「住所」データをYahooM地図!Webページの検索欄に登録します。Yahoo!地図「検索」ボタンをクリックして検索を行います。Yahoo!地図の検索結果により、近隣の駅の情報を取得します。近隣の駅の取得結果をD列に一番近い駅・E列に2番目に近い駅・F列に3番目に近い駅を代入します。B列の最終行分まで繰り返します。SeleniumBasic事前設定をサイト(https://akira55.com/seleniumbasic_googlechrome/)より行って下さい。Library】にチェックを入れます。【注意】なお、Webスクレイビングを利用する際は、問い合わせ先のWebサーバーに負荷がかかりますので、連続利用はお控え下さい。Webスクレピングは、データ収集先のホームページに変更・修正等があった場合は、その都度プログラムの修正が必要になりますので、ご了承ください。※下記のプログラムは、2021年3月時点でのプログラムです。Library】にチェックを入れます。'B列の最終行を取得します。'B列に登録されている最終行まで繰り返します。'C列のセルから出発駅を入力します。Webページから最寄り駅検索を1~3件を行います。'検索結果より、運賃を取得します。'運賃の取得結果をE列に代入します。'全てのデータが終わるまで繰り返します。Library】にチェックを入れます。'B列の最終行を取得します。'B列に登録されている最終行まで繰り返します。'C列のセルから出発駅を入力します。Webページから最寄り駅検索を1~3件を行います。'検索結果より、運賃を取得します。'運賃の取得結果をE列に代入します。'全てのデータが終わるまで繰り返します。※プログラム実行後、EXCELシートに登録されている【住所:C列】情報からWebサイト「Yahoo!地図」に検索を行い、最寄り駅が表示され、EXCELシートに結果を転記されました。今回は、都道府県庁の住所を元に最寄り駅(近隣の駅)3ヶ所分が検索されました。最後まで、ご覧いただきまして誠に有難うございました。VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。セルの入力規則を設定する。指定した行列に小計を追加する。指定した表を自動的に背景色をゼブラ模様(縞模様)にする。Functionプロシージャを使いこなす。便利なVBAコード・サンプルプログラム一覧・覚えると便利・効率が上がる。エラーかどうがを判定します。