EXCEL VBA Google Chrome(グーグルクローム)の操作・住所から最寄り駅を検索・webスクレイピング（自動収集・テクニック）

EXCEL VBA Google Chrome(グーグルクローム)の操作・住所から最寄り駅検索・webスクレイピング（自動収集・テクニック）

GoogleChromeスクレピング　住所データから最寄り駅（近隣の駅）検索を行う（１件分：取得）

'******** AKIRA55.COM *******
'
'VBEの参照設定を行う【VBEの画面より】【ツール】⇒【参照設定】を選択して【Selenium Type Library】にチェックを入れます。
'
Sub transportation_expenses01()  'Yahoo!JAPAN！路線情報（乗り換え案内） １件表示
 
    Dim Driver As New Selenium.WebDriver
    Dim Webtxt As String
    Dim I, lRow As Long
    
    lRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を取得します。
    
    With Driver
        .Start "chrome"
    
        For I = 3 To lRow  'B列に登録されている最終行まで繰り返します。
            
            On Error Resume Next
            
            .Get "https://map.yahoo.co.jp/" 'Yahoo!Map!を開きます
            
            .Wait 2000
 
            .FindElementByCss("#search_box_keyword > form > div > div > input").SendKeys Cells(I, "C") 'C列のセルから出発駅を入力します。
            .FindElementByCss("#search_box_keyword > form > div > button").Click  '検索をクリック
         
            .Wait 2000  'ページの表示待ち
            
            If I = 3 Then
                            .FindElementByCss("#search_box_keyword > form > div > div > input").SendKeys Cells(I, "C") 'C列のセルから出発駅を入力します。
                            .FindElementByCss("#search_box_keyword > form > div > button").Click  '検索をクリック
                            .Wait 2000  'ページの表示待ち
            End If

             Webtxt = .FindElementByCss("#poi > div.POI__content > div.POI__contentBody > div.Keyvalue > ul > li.Keyvalue__listItem.Keyvalue__listItem--nearestStations > span:nth-child(2) > span:nth-child(1)").Text '検索結果より、運賃を取得します。
             Cells(I, "D") = Webtxt  '運賃の取得結果をE列に代入します。
             
             On Error GoTo 0
 
        Next I  '全てのデータが終わるまで繰り返します。
    
    
        .Close
    
    End With
    
    Set Driver = Nothing
    
    
End Sub
'

GoogleChromeスクレピング　住所データから最寄り駅(近隣の駅)検索を行う（３件分：取得）

'
'VBEの参照設定を行う【VBEの画面より】【ツール】⇒【参照設定】を選択して【Selenium Type Library】にチェックを入れます。
'
Sub transportation_expenses03()  'Yahoo!JAPAN！路線情報（乗り換え案内）　３件表示　ループ
 
    Dim Driver As New Selenium.WebDriver
    Dim Webtxt As String
    Dim I, L, lRow As Long
    
    lRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を取得します。
    
    With Driver
        .Start "chrome"
    
        For I = 3 To lRow 'B列に登録されている最終行まで繰り返します。
            
            On Error Resume Next
            
            .Get "https://map.yahoo.co.jp/" 'Yahoo!Map!を開きます
            
            .Wait 5000
 
            .FindElementByCss("#search_box_keyword > form > div > div > input").SendKeys Cells(I, "C") 'C列のセルから出発駅を入力します。
            
            .FindElementByCss("#search_box_keyword > form > div > button").Click  '検索をクリック
         
            .Wait 2000  'ページの表示待ち

            For L = 1 To 3 ' Webページから最寄り駅検索を１～３件を行います。
            
                 Webtxt = .FindElementByCss("#poi > div.POI__content > div.POI__contentBody > div.Keyvalue > ul > li.Keyvalue__listItem.Keyvalue__listItem--nearestStations > span:nth-child(2) > span:nth-child(" & L & ")").Text '検索結果より、運賃を取得します。
                 Cells(I, 3 + L) = Webtxt    '運賃の取得結果をE列に代入します。
                
            Next L
             
             On Error GoTo 0
 
        Next I  '全てのデータが終わるまで繰り返します。
    
    
        .Close
    
    End With
    
    Set Driver = Nothing
    
    
End Sub
'