valueが入っているようにみえるが認識されていない 削除
| Message#2 2019年6月13日(木)11時05分 From: ジャッカル |
| javascriptがらみなら https://www.vba-ie.net/ie/javascript.php が参考になるかも > ターゲット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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
