ほんわか回答ポイント 200ptウォッチ 1

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

これの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"に文字を渡せるかを
教えて下さい。

よろしくお願いします。

• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• a-kuma32012/07/27 12:55:11

  満足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

  スター

  • 

    1件のコメントを見る

  • ほんわか 2012/07/27 13:18:31

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

    スター

Cherenkov2012/07/27 13:56:35

満足100pt

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

End Ifが多いのでは？

スター

• 

  33件のコメントを見る

• ほんわか 2012/07/27 14:07:12

  すみません。
  こちらも、転記ミスです。　m(__)m
  
  残念ながら、動作はうまくいきませんでした。

  スター

• Cherenkov 2012/07/27 14:20:59

  うまくいきません
  てエラーはでないの？

  スター

• Cherenkov 2012/07/27 14:21:36

  For Each c In objSRC.Document.getElementsByTagName("input")
  にしてみるとか

  スター

• Cherenkov 2012/07/27 14:31:01

  objSRCがなんなのかわからん

  スター

• ほんわか 2012/07/27 14:34:17

  >てエラーはでないの？
  はい、出ません。
  
  For Each c In objSRC.Document.getElementsByTagName("input")
  →　これは、エラー438になる。
  
  書き忘れがあった。
  For Each ～の前に
  Set objSRC = ie.document　があった。　失礼しました。　m(__)m

  スター

• Cherenkov 2012/07/27 14:39:40

  Set objSRC = ie.documentなら
  objSRC.Document.getElem～は無視してください。
  
  objSRC.getElementsByName("content_link__title")
  これで捕まえることができるのでは。

  スター

• Cherenkov 2012/07/27 14:41:34

  IEがビジー状態の間待つ処理は入っていますか？

  スター

• ほんわか 2012/07/27 14:46:29

  objSRC.getElementsByName("content_link__title") = "AAA"
  こうしてみると、エラー445になってしまう。
  
  見つからなかったって、事でしょう。

  スター

• Cherenkov 2012/07/27 14:55:47

  MsgBox objSRC.getElementsByName("content_link__title").Name
  これでcontent_link__titleがでないならちょっとわかりません

  スター

• Cherenkov 2012/07/27 14:56:55

  objSRC.getElementsByName("content_link__title") = "AAA"

  その操作は間違ってますよ。
  DOMオブジェクトとDOMオブジェクトの属性の関係

  スター

• Cherenkov 2012/07/27 14:58:02

  やりたいことは

  objSRC.getElementsByName("content_link__title").value = "AAA"

  なのかな

  スター

• ほんわか 2012/07/27 15:02:43

  そうです。
  でも、実行してみるとエラー438になる。

  スター

• ken3memo 2012/07/27 15:06:19

  content_link__title で google検索すると
  
  http://social.msdn.microsoft.com/Forums/ja-JP/vbgeneralja/thread/4dfafba3-e076-47df-94b4-9888f989bcbb/
  などが見つかり、
  気になるのは

  HTMLの内容をもう一度調べ直すと、確かに<iframe>がありました。

  とありますが、最後で解決しているみたいなので、参考にしてみるとか？
  
  あとは、同じような処理が
  content_link__title で google検索すると
  この質問も含め他の質問が多数引っ掛かるので参考にしてみては？
  
  解決の糸口となれば幸いです。

  スター

• ken3memo 2012/07/27 15:07:22

  objSRC.getElementsByName("content_link__title").value = "AAA"

  リンク集なので同じ content_link__title の 入力行が複数あるのかなぁ...

  スター

• Cherenkov 2012/07/27 15:13:40

  なるほど、iframeの可能性もあると。
  質問にある画像をみるとポップアップのようなので、動的に生成してるから表示されるまで存在しないのかも。
  HTML全文かURL提示してもらったほうが速いですね。

  スター

• ほんわか 2012/07/27 15:21:02

  了解しました。
  
  
  Seesaブログの管理画面で、URLは
  http://blog.seesaa.jp/cms/content/regist/index
  
  リンク集のモジュールを、アドオンさせてから「リンク集」ボタンをクリックすると画像と同じになります。

  スター

• Cherenkov 2012/07/27 15:41:35

  確認したところ、
  ポップアップを表示されるまで対象のDOMオブジェクトは存在しません。
  かつポップアップの内容はiframeの奥です。
  
  一部JavaScriptで擬似コードを書いていきます。
  まず「リンク集」画像をクリックしてポップアップを表示。

  document.querySelector('.plugin_drop .link .title_child a').click()

  
  

  その後、以下のように、iframeにアクセスすればいいはず。

  MsgBox objSRC.getElementById('content_iframe').contentWindow.document.getElementsByName("content_link__title")[0].Name

  スター

• ほんわか 2012/07/27 15:48:41

  objSRC.getElementById('content_iframe').contentWindow.document.getElementsByName("content_link__title").Name = "AAA"
  
  と挿入してみたら、'content_iframe'でコンパイルエラーとなった。
  
  また、
  document.querySelector('.plugin_drop .link .title_child a').click()
  も、'.plugin_drop .link .title_child a'でコンパイルエラーとなった。

  スター

• Cherenkov 2012/07/27 15:51:04

  document.querySelectorの部分を対象のIEでも動くように書き換える必要があります。

  スター

• ほんわか 2012/07/27 15:54:37

  document.querySelectorの部分を、objSRC.querySelectorにしてみましたけれど
  合ってますよね？

  スター

• Cherenkov 2012/07/27 16:02:39

  IE9なら動くかも。それ以下だと多分だめなんじゃ

  スター

• Cherenkov 2012/07/27 16:06:02

  IE8からか

  スター

• ほんわか 2012/07/27 16:07:20

  今、当方は、IE8で動かしています。
  コンパイルエラーとなったのは、VBA側だからIEとは無関係ではないでしょうか。

  スター

• Cherenkov 2012/07/27 16:23:59

  エラーになりそうなコードは消しておいて、
  MsgBox objSRC.querySelector('.plugin_drop .link .content_title_link')
  すると取得できるんですかね。
  地道にMsgBoxで確認していく。取得できたらclick()。
  その後、ポップアップはiframeなので読み込み待ちの処理を入れる必要がある。

  スター

• ほんわか 2012/07/27 16:30:12

  ('でコンパイルエラーとなった。→　文法ミス？
  
  querySelectorは、参照設定が必要ですか？

  スター

• Cherenkov 2012/07/27 16:32:32

  ("で囲んでみたら？")

  スター

• ほんわか 2012/07/27 16:37:52

  動いたけど、
  MsgBox objSRC.querySelector(".plugin_drop .link .content_title_link")
  ここで、エラー438となって止まった。

  スター

• Cherenkov 2012/07/27 16:49:27

  querySelector使わない方法で

  var plugin_drop = document.getElementsByClassName('plugin_drop');
  for (var i = 0, l = plugin_drop.length; i < l; i++) {
    var link = plugin_drop[i].getElementsByClassName('link');
    if (link.length) {
      var a = link[0].getElementsByClassName("content_title_link");
      if (a.length) {
        a[0].click();
        break;
      }
    }
  }
  

  とか

  スター

• ほんわか 2012/07/27 17:23:54

  当方で使っている言語が、Excel VBAなので教わったコードを変換すると
  
  Dim plugin_drop As Variant
  Dim l, a As Variant
  Dim ii As Variant
  Dim link As Variant
  
  
  Set plugin_drop = objSRC.getElementsByClassName("plugin_drop")
  l = plugin_drop.Length
  For ii = 0 To ii < l
  link = plugin_drop(ii).getElementsByClassName("link")
  If (link) Then
  a = link(0).getElementsByClassName("content_title_link")
  If (a) Then
  'a.Click()
  Exit For
  End If
  End If
  Next
  
  といった感じになる筈。
  
  でも、動かしてみると
  l = plugin_drop.Length　の部分の「Length」が存在しない様子。
  エラー438で止まってしまった。

  スター

• ken3memo 2012/07/27 18:23:17

  VBAでのgetElementsByClassNameについて
  http://q.hatena.ne.jp/1335028581

  を読むと
  コメント欄の自己解決の部分
  互換表示オン
  とか怪しそうですが・・・
  .
  あっ、
  2012/07/27 16:07:20 の コメントを見ると、

  今、当方は、IE8で動かしています。
  コンパイルエラーとなったのは、VBA側だからIEとは無関係ではないでしょうか。
  2012/07/27 16:07:20

  なるほど、IE8ですか...IE9からみたいですねgetElementsByClassNameが？
  (試していないのでなんとも言えませんが、過去の質問 http://q.hatena.ne.jp/1335028581 を見るとIE9から？)
  
  でも
  Set plugin_drop = objSRC.getElementsByClassName("plugin_drop")
  が通って
  l = plugin_drop.Length でえらーって感じが？
  あっ、
  Set plugin_drop = objSRC.getElementsByClassName("plugin_drop")
  で NULLが入っているのかなぁ。
  
  原因として考えられるのはこんな感じです(外していたらスミマセン)
  
  あとは、対策ですよね...

  スター

• ほんわか 2012/07/27 20:05:39

  マシンを代えました。
  今までは、XP IE8だったのをwin7 IE9にしました
  
  Debug.Print objSRC.querySelector(".plugin_drop .link .content_title_link")
  を有効にした所、次のメッセージが出ました。
  
  「http://blog.seesaa.jp/cms/content/regist/return%20false;」
  
  IE9じゃないと使えないコマンドだったのね。

  スター

• Cherenkov 2012/08/02 00:41:15

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

  スター

• ほんわか 2012/08/02 08:52:39

  ポップアップをせずに、リンクURLを挿入できるモードがSeesaブログにあることを発見しました。
  
  お陰様で、問題解決に至りました。
  ありがとうございました。

  スター
• その他の回答を読む

この質問へのコメント

• ken3memo2012/07/27 15:14:55
  失礼しました
  http://q.hatena.ne.jp/1343183308
  の続きだったんですね。(無料から→有料に変更しての質問だったんですね)
  

質問の情報

登録日時

2012-07-27 11:44:14

終了日時

2012-08-03 11:45:03

回答条件

1人5回まで

この質問のカテゴリ

• ウェブ制作

この質問に含まれるキーワード

人気の質問

• RAZKIZについて stats（これはstarsのスペル間違いか）の中にあるstars to spend は使ったstarsのことです…aRascal1日前
• 以前読んだことのある書籍のタイトルが思い出せません。 ・WEB開発のプロが書いたもの ・実際の開発現場で…匿名質問者111日前
• はてなブログのコメントの日付の表示形式を変更したくて、 　https://q.hatena.ne.jp/1537238088 こちらの…匿名質問者15日前
• 「先生と呼ばれる（言われる）ほどの馬鹿でなし」　　 というのは出典はどこ？。 江戸落語とか上方落語？　…匿名質問者112日前
• vb.netのDataSetについての質問です。 Visual studio 2015からVisual studio 2019へバージョンアップをしま…SyuIt4日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ