1343357054 ポップアップのような動きに見えますけれど、画像にありますテキストボックスに文字を入れるのとボタンをクリックさせたい。


これのHTMLは、下記の通り。
<div class="entrytable_wrap">
<dl class="modalformlist clearfix">
<dt>リンクタイトル</dt>
<dd>
<input class="inputtext" type="text" size="30" name="content_link__title" style="ime-mode:active;">
</dd>
</dl>
<dl class="modalformlist clearfix">
<dt>リンクURL</dt>
<dd>
</dl>
<dl class="modalformlist clearfix">
<input type="hidden" name="id" value="111863236">
<div class="buttonarea buttonsingle clearfix">
</div>

VBAでプログラムを組んでいますが、"content_link__title"を捕まえることが出来ません。
その時のこーどがこちら ↓
For Each c In objSRC.getElementsByTagName("input")
If b.Name = "content_link__title" Then
Debug.Print "=========================="
End If
End If
Next
どうしたら"content_link__title"に文字を渡せるかを
教えて下さい。

よろしくお願いします。

回答の条件
  • 1人5回まで
  • 登録:
  • 終了:2012/08/03 11:45:03
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答2件)

id:a-kuma3 No.1

回答回数4971ベストアンサー獲得回数2153

ポイント100pt

For Each を回している変数が c で、If の判定は b だからうまくいかない、ということではないですか?

For Each c In objSRC.getElementsByTagName("input")
  If b.Name = "content_link__title" Then
    Debug.Print "=========================="
  End If
Next

id:taokato

"If b.Name"は、"If c.Name"の転記ミスです。
でも、動作はうまくいきませんでした。

2012/07/27 13:18:31
id:Cherenkov No.2

回答回数1504ベストアンサー獲得回数493

ポイント100pt
For Each c In objSRC.getElementsByTagName("input")
  If c.Name = "content_link__title" Then
    Debug.Print "=========================="
  End If
Next

End Ifが多いのでは?

他31件のコメントを見る
id:Cherenkov

その後うまくいったのでしょうか

2012/08/02 00:41:15
id:taokato

ポップアップをせずに、リンクURLを挿入できるモードがSeesaブログにあることを発見しました。

お陰様で、問題解決に至りました。
ありがとうございました。

2012/08/02 08:52:39
  • id:ken3memo
    失礼しました
    http://q.hatena.ne.jp/1343183308
    の続きだったんですね。(無料から→有料に変更しての質問だったんですね)

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません