valueが入っているようにみえるが認識されていない
未読分：2件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| 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 |
| 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
