お世話になります。
VBAでWEB上の入力項目に値をいれたいのですがフォームのタイプがhiddenにはどのようにいれたらよいでしょうか?
WEB上では
(1)「選択」ボタンを押す。
(2)別の画面が開き、そこで、値を選択してOK
(3)元の画面に戻ると(2)の値が反映されている。
WEBのソース的にみると
(1)の状態
<TD bgcolor="#cccccc">
<INPUT type="image" name="s_otherto" alt="選択" src="/image/s_choice.gif" border="0">
</TD>
(2)別の画面で値を選択
(3)の状態
<TD bgcolor="#cccccc">
<INPUT type="image" name="s_otherto" alt="選択" src="/image/s_choice.gif" border="0">
<INPUT type="hidden" name="otherto" value="(2)で選択したID"><FONT size="2">(2)で選択した個人名</FONT>
</TD>
やりたいことは、今は、手で、(1)~(3)を実行しているのですが、
VBAでどのようにしたら、自動で
(1)の状態から(3)の(<INPUT type="hidden" name="otherto" value="(2)で選択したID"><FONT size="2">(2)で選択した個人名</FONT>)が追加された状態にするにはどのようにしたらよいのでしょうか?
typeがtextの場合は、
objIE.Document.getElementsByName("memo")(0).Value = "文章"
で入れれることがわかったのですが、
objIE.Document.getElementsByName("otherto")(0).Value するとエラーが出ます。。。
お手数ですがよろしくお願いします。
No.2ベストアンサー
- 回答日時:
objIE.Document.getElementsByName("otherto")
↑これはオブジェクトです。
(1)の時まだありません。
(2)の処理を施し
(3)で初めて現れるオブジェクトです。
※Value参照で落ちているのではない
※objIE.Document.getElementsByName("otherto")(0)という配列が存在していないのに、0番目を参照しているから落ちている
という事を理解しましょう
オブジェクト参照は、こまめに変数にセットしてあげると、どこで落ちているかがわかりやすくなりますよ。
「otherto」などを作成して、TDに追加してあげないといけません。
Dim l_htmDoc As Object
Set l_htmDoc = objIE.Document
Dim l_objImg As Object
Dim l_tblTD As Object
'イメージを取得
Set l_objImg = l_htmDoc.getElementsByName("s_otherto")(0)
'イメージの親のTDを取得
Set l_tblTD = l_objImg.parentNode
'TDにHIDDENを追加
Dim l_htmHdn As Object
Set l_htmHdn = l_htmDoc.createElement("input")
With l_htmHdn
.Type = "hidden"
.Name = "otherto"
.Value = "(2)で選択したID"
End With
Call l_tblTD.appendChild(l_htmHdn)
'TDにFONTを追加
Dim l_htmFont As Object
Set l_htmFont = l_htmDoc.createElement("font")
With l_htmFont
.Size = "2"
.innerText = "(2)で選択した個人名"
End With
Call l_tblTD.appendChild(l_htmFont)
No.1
- 回答日時:
要するにサブウィンドウの設定値を
開いた親ウィンドウの隠し項目に反映するすればいいのですね。
ちなみに質問内容に<FORM></FORM>タグが無いですけど???
サブウィンドウの選択画像ボタンが押下された時に
下記処理をする。
window.opener.document.FORM名.otherto.value="選択ID";
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript javascript作成してます。ラジオボタンで判定するコードを書いてます。 1 2023/07/18 11:03
- HTML・CSS CSSが効かずどのように指定すれば良いか分からないのでアドバイスお願い致します 2 2023/06/07 12:25
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
- JavaScript clear機能を失わずにファイルアップロード機能を作成したい 3 2023/06/10 16:12
- PHP 入力した部分を表示させたまま(保持)するにはどうすれば良いでしょうか? 1 2023/01/25 11:14
- JavaScript javascriptのちょっとした動作不良(原因は突き止めたのですが) 1 2023/06/15 19:58
- JavaScript sessionStorageを調べています。 1 2023/06/20 12:41
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- PHP PHPで画像の渡しが上手く行きません。 1 2023/02/02 09:39
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルのデータをwebフォームに転記したい
Excel(エクセル)
-
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
エクセルのデータを自動的にwebブラウザ上のフォームに入力
その他(プログラミング・Web制作)
-
-
4
VBAでHTTPログイン
Visual Basic(VBA)
-
5
Excel VBAでのIE操作でクリックができないボタンはあるのでしょうか
Visual Basic(VBA)
-
6
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
7
VBAでIEのボタンを押してメッセージ応答したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
Powershellのparamについて
-
VB.NETでコンボボックスの1行目...
-
VBA ドロップダウンリストを残...
-
VBで電卓のメモリー機能はどの...
-
【C++/CLI.NET】コンボボックス...
-
変数名の取得
-
Excel VBAのリストボックスの値...
-
ISDBNULLをスルーしてDBNULLが...
-
C言語 1から20までの逆数の和を...
-
マクロ 特定のセル値のみクリ...
-
VBAで、オートフィルタで非表示...
-
DataGridViewのコンボボックス...
-
VB.NETでアクティブなformを知...
-
VBAでメッセージボックスにセル...
-
ハッシュテーブル(連想配列)が...
-
ユーザーフォームのテキストボ...
-
Excel VBA 複数選択したリスト...
-
UPDOWNコントロールについて
-
marginとpaddingにマイナス
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
マクロ 特定のセル値のみクリ...
-
VB.NETでコンボボックスの1行目...
-
変数名の取得
-
値を返さないコード パス
-
Excel VBAのリストボックスの値...
-
VB初心者。小数点以下の表示で...
-
ハッシュテーブル(連想配列)が...
-
textboxとLabelを動的に変更する
-
PL/SQLでのTO_DATEの時間取得に...
-
VB.NETでアクティブなformを知...
-
Excel vba ユーザーフォームテ...
-
DataTableに対するLINQについて
-
マクロで奇数と偶数の値を2か所...
-
【C++/CLI.NET】コンボボックス...
-
[VBA]選択範囲の下から上に処理...
-
変数に代入してある数値を表示...
-
vbscriptを使いexcelを参照して...
-
範囲が指定されている乱数について
-
[VB.net] DataGridViewのコンボ...
おすすめ情報