【Excel VBA】乗換案内の検索結果のURLを転記したい

Question

本サイトを使うのは初めてで、VBAに関しても初心者なのですがよろしければ教えて頂きたいです。

前提・実現したいこと

http://henkan.tokyo/article/461532061.html
上記のサイトの　「【Excel VBA】「Yahoo路線情報」の乗り換え案内から、複数分の移動時間・運賃を一括検索する」　というVBAを丸々使わせて頂いてるのですが、検索結果の時間、料金に加えQ列にその入力して出た検索結果のURLを転記したいです。

エラーメッセージ

該当のソースコード

Dim colSh As Object
Dim win As Object
Dim strTemp As String
Dim IE As InternetExplorer
Dim objIE(5) As InternetExplorer
Dim objIE2 As InternetExplorer
Dim txtInput(16) As HTMLInputElement
Dim txtInput2(20) As HTMLSelectElement
Dim button(10) As HTMLInputElement
Dim Form
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub 集計()
Dim x As Long
IE立ち上げ
x = 4
Do Until x > Cells(60000, 3).End(xlUp).Row
乗り換え案内検索 (x)
乗り換え案内結果集計 (x)
IE繰り返し
x = x + 1
Loop
IE終了
End Sub

Private Sub IE立ち上げ()
'①InternetExplorerを開く
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
'②Yahoo乗り換え検索のページ("http://transit.yahoo.co.jp/")に移動
IE.navigate ("http://transit.yahoo.co.jp/")
Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
DoEvents
Sleep 1
Loop
Sleep 1000
End Sub

Private Sub 乗り換え案内検索(i As Long)
Set colSh = CreateObject("Shell.Application")
For Each win In colSh.Windows
If TypeName(win.document) = "HTMLDocument" Then
If InStr(win.document.Title, "乗換案内") > 0 Then
Set objIE(0) = win
Exit For
End If
End If
Next
'③出発地・目的地・時間・その他新幹線を使用するか、特急を使用するかなどの条件入力
'③-1 出発地の入力
Set txtInput(1) = objIE(0).document.getElementById("sfrom")
txtInput(1).Value = Cells(i, 3).Value
'③-2 到着地の入力
Set txtInput(2) = objIE(0).document.getElementById("sto")
txtInput(2).Value = Cells(i, 4).Value
'③-3 新幹線を利用するか
Set txtInput(3) = objIE(0).document.getElementById("sexp")
If Cells(i, 8).Value = "○" Then
txtInput(3).Checked = True
Else
txtInput(3).Checked = False
End If
'③-4 有料特急を利用するか
Set txtInput(4) = objIE(0).document.getElementById("exp")
If Cells(i, 9).Value = "○" Then
txtInput(4).Checked = True
Else
txtInput(4).Checked = False
End If
'③-5 出発時間での検索
Set txtInput(5) = objIE(0).document.getElementById("tsDep")
If Cells(i, 5).Value = "出発" Then
txtInput(5).Checked = True
End If
'③-6 到着時間での検索
Set txtInput(6) = objIE(0).document.getElementById("tsArr")
If Cells(i, 5).Value = "到着" Then
txtInput(6).Checked = True
End If
'③-7 日時の入力
Set txtInput2(0) = objIE(0).document.getElementById("y")
txtInput2(0).Value = Year(Cells(i, 6))
Set txtInput2(1) = objIE(0).document.getElementById("m")
txtInput2(1).Value = Format(Month(Cells(i, 6)), "00")
Set txtInput2(2) = objIE(0).document.getElementById("d")
txtInput2(2).Value = Format(Day(Cells(i, 6)), "00")
Set txtInput2(3) = objIE(0).document.getElementById("hh")
txtInput2(3).Value = Format(Hour(Cells(i, 7)), "00")
Set txtInput2(4) = objIE(0).document.getElementById("mm")
txtInput2(4).Value = Format(Minute(Cells(i, 7)), "00")
'③-8 検索結果表示順の選択
Set txtInput2(5) = objIE(0).document.getElementsByName("s")(0)
If Cells(i, 10).Value = "到着が早い順" Then
txtInput2(5).Value = "0"
ElseIf Cells(i, 10).Value = "乗り換え回数順" Then
txtInput2(5).Value = "2"
ElseIf Cells(i, 10).Value = "料金が安い順" Then
txtInput2(5).Value = "1"
End If
'④検索ボタンをクリック
Set Form = objIE(0).document.getElementById("searchModuleSubmit")
Form.Click
Sleep 1000
Do While objIE(0).Busy Or objIE(0).readyState <> READYSTATE_COMPLETE
DoEvents
Sleep 1
Loop
Sleep 1000
End Sub

Sub 乗り換え案内結果集計(i As Long)
Set colSh = CreateObject("Shell.Application")
For Each win In colSh.Windows
If TypeName(win.document) = "HTMLDocument" Then
If InStr(win.document.Title, "乗換案内") > 0 Then
Set objIE(0) = win
Exit For
End If
End If
Next
'⑤表示されたページから必要な情報を収集
Set txtInput(7) = objIE(0).document.getElementsByClassName("small")(0)
Cells(i, 11).Value = txtInput(7).innerText
Cells(i, 11).Value = Replace(Replace(Cells(i, 11), "(", ""), ")", "")
Set txtInput(8) = objIE(0).document.getElementsByClassName("small")(1)
Cells(i, 13).Value = txtInput(8).innerText
Cells(i, 13).Value = Replace(Replace(Cells(i, 13), "(", ""), ")", "")
Set txtInput(9) = objIE(0).document.getElementsByClassName("small")(2)
Cells(i, 15).Value = txtInput(9).innerText
Cells(i, 15).Value = Replace(Replace(Cells(i, 15), "(", ""), ")", "")
Set txtInput(10) = objIE(0).document.getElementsByClassName("fare")(0)
Cells(i, 12).Value = txtInput(10).innerText
Set txtInput(11) = objIE(0).document.getElementsByClassName("fare")(1)
Cells(i, 14).Value = txtInput(11).innerText
Set txtInput(12) = objIE(0).document.getElementsByClassName("fare")(2)
Cells(i, 16).Value = txtInput(12).innerText
End Sub

Private Sub IE繰り返し()
Set colSh = CreateObject("Shell.Application")
For Each win In colSh.Windows
If TypeName(win.document) = "HTMLDocument" Then
strTemp = win.document.body.innerText
If InStr(strTemp, "乗換案内") > 0 Then
Set objIE(0) = win
Exit For
End If
End If
Next
'⑥-1 Yahoo乗り換え検索のページ("http://transit.yahoo.co.jp/")に移動
objIE(0).navigate ("http://transit.yahoo.co.jp/")
Sleep 1000
Do While objIE(0).Busy Or objIE(0).readyState < READYSTATE_COMPLETE
DoEvents
Sleep 1
Loop
Sleep 1000
End Sub

Private Sub IE終了()
Set colSh = CreateObject("Shell.Application")
For Each win In colSh.Windows
If TypeName(win.document) = "HTMLDocument" Then
strTemp = win.document.body.innerText
If InStr(strTemp, "乗換案内") > 0 Then
Set objIE(0) = win
Exit For
End If
End If
Next
'⑦InternetExplorerを終了
objIE(0).Quit
End Sub

試したこと

初心者なので検索しながら色々試してみたのですが、検索結果のURLをどうExcelと紐づけて転記すればいいかわかりません。
コード内のコメントだけでなんとなく流れを把握してる状態です。
試した事は

Set txtInput(7) = objIE(0).document.getElementsByClassName("small")(0)
Cells(i, 11).Value = txtInput(7).innerText
Cells(i, 11).Value = Replace(Replace(Cells(i, 11), "(", ""), ")", "")
Set txtInput(8) = objIE(0).document.getElementsByClassName("small")(1)
Cells(i, 13).Value = txtInput(8).innerText
Cells(i, 13).Value = Replace(Replace(Cells(i, 13), "(", ""), ")", "")
Set txtInput(9) = objIE(0).document.getElementsByClassName("small")(2)
Cells(i, 15).Value = txtInput(9).innerText
Cells(i, 15).Value = Replace(Replace(Cells(i, 15), "(", ""), ")", "")
Set txtInput(10) = objIE(0).document.getElementsByClassName("fare")(0)
Cells(i, 12).Value = txtInput(10).innerText
Set txtInput(11) = objIE(0).document.getElementsByClassName("fare")(1)
Cells(i, 14).Value = txtInput(11).innerText
Set txtInput(12) = objIE(0).document.getElementsByClassName("fare")(2)
Cells(i, 16).Value = txtInput(12).innerText
End Sub
```、
ここの部分で検索結果をExcelに転記しているのかなと思い、URLに変えてやろうと思ったのですが検索結果のURLの部分のクラス名すら見つけれず。。
そもそもこの部分ではないのでしょうか？付け加えるべきとこも分からないぐらい初心者です。
もしよろしければヒントでも良いので教えて頂けると嬉しいです。

### 補足情報（FW/ツールのバージョンなど）

Comments

[sobue]

試した事を記載してください。
あと、参考としてソースを流用するのはいいですが、インデントを整形した方が読みやすいです。
自分で解析してないと思われて、解答もらいづらくなりますよ。

[m.harada]

申し訳ございません。初心者なので多くの事がわかりません。
コード内のコメントだけでなんとなく流れを把握してる状態です。
試した事は、
'⑤表示されたページから必要な情報を収集
Set txtInput(7) = objIE(0).document.getElementsByClassName("small")(0)
Cells(i, 11).Value = txtInput(7).innerText
Cells(i, 11).Value = Replace(Replace(Cells(i, 11), "(", ""), ")", "")
Set txtInput(8) = objIE(0).document.getElementsByClassName("small")(1)
Cells(i, 13).Value = txtInput(8).innerText
Cells(i, 13).Value = Replace(Replace(Cells(i, 13), "(", ""), ")", "")
Set txtInput(9) = objIE(0).document.getElementsByClassName("small")(2)
Cells(i, 15).Value = txtInput(9).innerText
Cells(i, 15).Value = Replace(Replace(Cells(i, 15), "(", ""), ")", "")
Set txtInput(10) = objIE(0).document.getElementsByClassName("fare")(0)
Cells(i, 12).Value = txtInput(10).innerText
Set txtInput(11) = objIE(0).document.getElementsByClassName("fare")(1)
Cells(i, 14).Value = txtInput(11).innerText
Set txtInput(12) = objIE(0).document.getElementsByClassName("fare")(2)
Cells(i, 16).Value = txtInput(12).innerText
End Sub
ここの部分で検索結果をExcelに転記しているのかなと思い、URLに変えてやろうと思ったのですが検索結果のURLの部分のクラス名すら見つけれず。。
そもそもこの部分ではないのでしょうか？付け加えるべきとこも分からないぐらい初心者です。

[sobue]

質問欄が修正できるので質問欄に記載ください。

[m.harada]

分かりました。ありがとうございます。

[sobue]

何度もすみません。
コードは最初にやっってもらってたように隠れるようにしてください。

[m.harada]

申し訳ございません。承知しました。

[sobue]

あと、この質問では訂正はお任せしますが、インデントを整形してほしいです。
【例】
Private Sub IE終了()
Set colSh = CreateObject("Shell.Application")
For Each win In colSh.Windows
If TypeName(win.document) = "HTMLDocument" Then
strTemp = win.document.body.innerText
If InStr(strTemp, "乗換案内") > 0 Then
Set objIE(0) = win
Exit For
End If
End If
Next
'⑦InternetExplorerを終了
objIE(0).Quit
End Sub
ここでは、インデント変わらなかったので新たに回答を生みました。

Answer 1

あと、この質問では訂正はお任せしますが、インデントを整形してほしいです。
【例】

Private Sub IE終了()
    Set colSh = CreateObject("Shell.Application")
    For Each win In colSh.Windows
        If TypeName(win.document) = "HTMLDocument" Then
            strTemp = win.document.body.innerText
            If InStr(strTemp, "乗換案内") > 0 Then
                Set objIE(0) = win
                Exit For
            End If
        End If
    Next
    '⑦InternetExplorerを終了
    objIE(0).Quit
End Sub

Answer 2

URLの取得
取得したものをcellに出力してあげたらいいと思います。
検索結果の時間に関しては、もう少しお待ちください。

Comments

[sobue]

開発者ツールはご存じでしょうか？
一度、中身を見てみるとイメージがわくかもしれません。

[sobue]

料金や乗車時間の取得元は試したところで合っています。

[m.harada]

ありがとうございます。見てみます。

objIE(0).urlでURLを取得して、どのようにG列に転記すればよいのかわかりません。

[sobue]

いろいろやり方がありますが、
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/prog/prog_atai.html
のページを見てください。
cellに入れるための情報が書いてあります。

[m.harada]

ありがとうございます。
試してみます。

[sobue]

開発者ツールに関しては
https://html5experts.jp/osamum_ms/1928/
を参考にしてください。

[m.harada]

ありがとうございます。

[m.harada]

今日はちょっともう触れないので明日また勉強させて頂きます。ありがとうございます。

[m.harada]

日またぎで申し訳ございません。
objIE(0).urlで取得したものの出力はどこに入れれば良いのでしょうか？
運賃、時間等が出力されているとこに入れてみたのですが出来ませんでした。

[sobue]

デバッグはしましたか？
どうだめだったのか具体的にわかりますか？
すみません。しばらく自分で環境作って確認できませんので詳しい情報が欲しいです。