Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4642 / 76807

←次へ　｜　前へ→


	【77784】IE操作におけるテーブル行の選択について

失礼します - 15/12/22(火) 11:13 -


	引用なし

	パスワード

質問失礼いたします。

Web画面上において、

【スクロールテーブルの中から一行選択】

といった処理を行おうとしております。

Javascriptで記述されているページのBodyのinnnerHTMLを調査した結果、以下のような構造をしているようです。

<TABLE>
　<TR>
　　<TD>
　　　<SPAN>AAA</SPAN>
　　</TD>
　　　…
　</TR>
　　…
</TABLE>

ここで、「AAA」の文字列を含まれる行をクリックして選択状態としたいのですが、
以下のような手段を試したものの選択状態とはならず、困っております。

1. タグを"SPAN"で検索し要素に対してFor文を回して"AAA"に該当するSPANをClick()

(例)
　Dim objTag As Object
　For Each objTag In objIE.document.all.tags("SPAN")
　　If objTag.innerText = "AAA" Then
　　　　objTag.Click
　　　　Exit For
　　End If
　Next objTag

　'※getElementsByTagNameも同様にして試行

2. 該当SPANを含むTRオブジェクトに対してClick()

(例)
　Dim flg As Boolean = False
　Dim objRow As Object
　For Each objRow In objTable.getElementsByTagName("TR")
　　Dim objSpan As Object
　　For Each objSpan In objRow.getElementsByTagName("SPAN")
　　　If objSpan.innerText = "AAA" Then
　　　　objRow.Click
　　　　flg = True
　　　　Exit For
　　　End If
　　Next objSpan
　　If flag Then Exit For
　Next objSpan

Clickイベントでは選択してフォーカスを当てることが出来ない仕様なのか。。。と悩んでおります。

もし、Objectプロパティの値を書き換えれば済むなど別の方法があればご教示頂けませんでしょうか。

拙い質問で申し訳ありませんが、どうぞよろしくお願いいたします。

0 hits

▼

【77784】IE操作におけるテーブル行の選択について 失礼します 15/12/22(火) 11:13