リッチテキストのtextareaに値を入力できない。 削除
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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。