valueが入っているようにみえるが認識されていない
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
Message#1 2019年4月8日(月)18時13分 From: セイノスケ | 返事 削除 変更 |
ターゲットURL:https://www.mastercard.us/en-us/consumers/get-support/convert-currency.html やりたいこと:この為替換算ページでvalueを入力してcalculateボタンを押し、換算値をだしたい 状況:下記コードでVBAを走らせるとIEのページ上で該当ボックスにvalueが入っているようにみえるのですが、calculateを押すと値を入力してくださいというエラーメッセージがでます。何か別の書き方で改善するようであればヒントを頂けますと助かります。 Sub HKD() Dim objIE As InternetExplorer 'IEオブジェクトを準備 Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット objIE.Visible = True 'IEを表示 Dim strUrl As String '次ページのURL strUrl = "https://www.mastercard.us/en-us/consumers/get-support/convert-currency.html" objIE.navigate strUrl 'IEでURLを開く Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち DoEvents Loop Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備 Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット htmlDoc.getElementById("BankFee").innertext = "0.00" ↑これは認識された htmlDoc.getElementsByName("txtTAmt")(0).innertext = "1.00" ↑これが認識されない htmlDoc.getElementsByName("tcurrency")(0).Value = "HKD" htmlDoc.getElementsByName("cardCurrency")(0).Value = "JPY" ↑これはセレクトボックスから選ばないといけないのはわかったのですが、selectedindexでもうまくいかず、どうやらjavascriptが絡んでいるらしい!? End Sub |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降