リッチテキストのtextareaに値を入力できない。
未読分：3件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| Message#3 2014年9月25日(木)10時07分 From: リッチテキスト | 返事 削除 変更 |
| 管理人さん、ありがとうございます。 テキストエリアの自動入力うまくいきました。 なんであれでいかなかったんでしょうね？ なにわともあれうまくいってよかったです！ お礼まで。 |
| Message#2 2014年9月22日(月)13時24分 From: 管理人 | 返事 削除 変更 |
| textareaの値代入は以下のサブルーチンを利用すれば、簡単に自動入力ができます。 こちらで一度ためされてはいかがですか？ ■textareaの値代入サブルーチン Sub formText(objIE As InternetExplorer, _ nameValue As String, _ tagValue As String) 'テキストボックス・パスワードボックスに値を入力 For Each objTag In objIE.document.getElementsByTagName("input") If objTag.Name = nameValue Then objTag.Value = tagValue Exit For End If Next 'テキストエリアに値を入力 For Each objTag In objIE.document.getElementsByTagName("textarea") If objTag.Name = nameValue Then objTag.Value = tagValue Exit For End If Next End Sub ■事例 Sub sample() Dim objIE As InternetExplorer 'テスト用フォームページを表示 Call ieView(objIE, "http://www.vba-ie.net/code/test.html") '名前のテキストボックスに値を入力 call formText(objIE, "name", "田中太郎") 'パスワードボックスに値を入力 call formText(objIE, "pass", "1234") 'テキストエリアに値を入力 call formText(objIE, "textbox", "さわやかです。") End Sub ■参考サイト http://www.vba-ie.net/form/subroutine-input.html |
| Message#1 2014年9月21日(日)08時42分 From: リッチテキスト | 返事 削除 変更 |
| VBAでIEオブジェクトを使ったフォーム操作でVBAでIEオブジェクトを利用して対象のtextarea に文言を代入しようと考えています。 textareaが通常のものであれば、問題なく代入されているのですが、文字の装飾など補助機能があるリッチテキストを提供しているtextareaの場合、IEに文言を代入することができませんでした。 IE.document.form.textarea.Value = "代入する文言" で行ったのですが、うまくいきませんでした。 デバッグエラー時に、ウォッチリストを見てみるとIE.document.form.textarea.Valueには 代入する文言がしっかり入っているにも関わらず、IEの画面上では入力されていませんでした。 こちらはなにか制限がかけられているのでしょうか？ または、IEオブジェクトのバグかなにかでしょうか？ 現在、困っています。 もし解決方法があれば、誰か教えて下さい。 よろしくお願いいたします。 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
