VBA ウェブスクレイピングでinputに入力ができません。

前提・実現したいこと

下記のサイト（yahoo 路線情報）で「出発駅名」、「到着駅名」に駅名を入力しようと思っています。
https://transit.yahoo.co.jp/

発生している問題・エラーメッセージ

入力しても検索時に入力した駅名が消えてしまう。

該当のソースコード

VBA
1
2Set ie = CreateObject("InternetExplorer.Application")
3ie.navigate ("https://transit.yahoo.co.jp/")
4
5ie.document.getElementsByName("from")(0).Value = 出発駅名
6ie.document.getElementsByName("to")(0).Value = 到着駅名
7

試したこと

要素をクリックしてから入力を試しましたが、検索時に入力した駅名が消えてしまいました。

VBA
1ie.document.getElementsByClassName("placeholder")(0).Click
2ie.document.getElementsByName("from")(0).Value = 出発駅名
3
4ie.document.getElementsByClassName("placeholder")(1).Click
5ie.document.getElementsByName("to")(0).Value = 到着駅名

お忙しいところ恐縮ですが、ご教示いただければと思います。

行動規範の内容に同意します

回答1件

ベストアンサー

直接の回答ではなく別案の提案ですが、
やりたいことは、Yahooの乗換案内で、出発駅を到着駅を指定した検索結果を表示したいということですよね。
ならば、URLのクエリパラメータにそれを付加すればそのページが表示できます。

クエリパラメータとはURLの最後の?の後に、検索条件の値を付加できる機能のことです。

下記のコードで検索結果ページに移動できます。

vba
1    Dim 出発駅名 As String: 出発駅名 = WorksheetFunction.EncodeURL("東京")
2    Dim 到着駅名 As String: 到着駅名 = WorksheetFunction.EncodeURL("新大阪")
3    Dim url As String
4    url = "https://transit.yahoo.co.jp/search/result?&from=" & 出発駅名 & "&to=" & 到着駅名
5    ie.navigate url