リッチテキストのtextareaに値を入力できない。
未読分:3件
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
近田 伸矢, 植木 悠二, 上田 寛
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オブジェクトのバグかなにかでしょうか? 現在、困っています。 もし解決方法があれば、誰か教えて下さい。 よろしくお願いいたします。 |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降