[[20240130154603]]　『VBAを使用してジョルダンで運賃を検索し、運賃の秩x（かりん）　ページの最後に飛ぶ

『VBAを使用してジョルダンで運賃を検索し、運賃の値をエクセルに取得したい』（かりん）

お世話になります。
業務上で交通費の確認をするのにジョルダンで1件ずつ検索をしているのですが
業務のスリム化を図りたく、VBAを使用して一括でできないかと
色々なサイト等を参考にしながらVBAを作成しているのですが
「実行時エラー'424'　オブジェクトが必要です」
というエラーが出てしまい、うまくいきません。

また、IEはサポートが終了しているため、edgeに切り替えたいのですが
思うようなサイトが見つけられなかったため
IEの部分をedgeに切り替える方法も併せてご教授いただければ幸いです。

何卒よろしくお願い申し上げます。

Sub 運賃計算()

Dim objIE As InternetExplorer

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True

Dim i As Long
For i = 2 To Range("a" & Rows.Count).End(xlUp).Row
objIE.navigate "https://www.jorudan.co.jp/norikae/cgi/nori.cgi?eki1=" & Range("b" & i).Value & "&eki2=" & Range("c" & i).Value & "&S=検索"

Do While objIE.Busy Or objIE.ReadyState < 4
DoEvents
Loop

objIE.document.getElementById("eki1_in").Value = Range("b" & i).Value

objIE.document.getElementById("eki2_in").Value = Range("c" & i).Value

objIE.document.all("S").Click

Do While objIE.Busy Or objIE.ReadyState < 4
DoEvents
Loop

objIE.Quit

End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

できる、できないの話ではないのですが、ウェブスクレイピングには難しいところがありまして。

例えばですが、このページに
https://norikae.jorudan.co.jp/openapi/

（※1）APIのご利用は、オープンに利用する用途のみとさせていただきます。イントラネット向け等、クローズドな目的にはご利用いただけません。

と書かれています。

いや、APIは使っていない？かも知れませんが、まあ同じ感じじゃないかと思います。

クローズドな環境で使われても、ジョルダンにはメリットがないので。
（ゆたか） 2024/01/30(火) 16:22:39

ゆたか様

コメントありがとうございます。
難しいのですね・・・

もうちょっと自分でもがいてみようと思います。
ありがとうございます。
（かりん） 2024/01/31(水) 13:01:49

    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Sub sample()
    Dim i As Integer
    CreateObject("WScript.Shell").Run "msedge.exe -url " & "https://www.jorudan.co.jp/norikae/cgi/nori.cgi?eki1=%22"
    Sleep 8000
    SendKeys "{Tab}"
    SendKeys "新宿"
    SendKeys "{Tab}"
    SendKeys "渋谷"
    For i = 1 To 21
    SendKeys "{Tab}"
    Next i
    SendKeys "{Enter}"
    End Sub

（mm） 2024/01/31(水) 17:05:14

コメント返信：

[ 一覧(最新更新順) ]

[[20240130154603]] 『VBAを使用してジョルダンで運賃を検索し、運賃の秩x（かりん） ページの最後に飛ぶ

[[20240130154603]]　『VBAを使用してジョルダンで運賃を検索し、運賃の秩x（かりん）　ページの最後に飛ぶ