ヤフオク エクセル VBA 通常入力 HTMLタグ入力 切り替え方法について

ヤフオク　VBA 自動プログラムを作成していますが、途中の　通常入力　とHTMLタグ入力　の切り替えのプログラムが書けず、困っています。。。

どなたか、ご存知の方がいらっしゃいましたら、ご教授いただけたら幸いです。

JAVAが使用されているようで、どのように突破していったらよいか悩んでいます。。。

よろしくお願いいたします。

▽元のソース▽

<div id="htmlMode" style="display:block;">
<div class="decFormTab">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="decFormTab01On"><p>通常入力</p></td>
<td class="decTabSp"></td>
<td class="decFormTab01Off"><p><A id="aucHTMLtag" href="javascript:void(0);" onclick="ModeTabTEXTON(false);">HTMLタグ入力</A></p></td>
<td></td></tr></table>
</div>

<div class="decFormTxtArea">
<script type="text/javascript">
if (YAHOO.env.ua.ie || YAHOO.env.ua.gecko || YAHOO.env.ua.chrome || (YAHOO.env.ua.webkit && !YAHOO.env.ua.android)) {
var formName = "auction";
var controlName = "Description_rte";
var documentFragmentRTE = "<div id=\"RTEContainer\" style=\"left: 0px; position: relative; top: 0px; height: auto; width: 400px;\">\n";
var idGenerator = null;
var editor = true;
var isDesignMode = true

document.write(documentFragmentRTE);
idGenerator = new RTEIDGenerator(0);
editor = new RTEEditor(idGenerator);

editor.SetLocation("jp");
editor.SetIconVersion("1");
editor.Instantiate();
document.write('</div>');
} else {
var documentFragmentTextarea = "<div style=\"font-size: 90%; margin: 4px 0;\">お使いのブラウザでは「通常入力」機能をご利用いただけません。<\/div>\n";
document.write(documentFragmentTextarea);
}
</script>
</div>
</div>

<div id="textMode" style="display:none;">
<div class="decFormTab">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="decFormTab01Off"><p><A href="javascript:void(0);" onclick="ModeTabTEXTON(true);">通常入力</A></p></td>
<td class="decTabSp"></td>
<td class="decFormTab01On"><p>HTMLタグ入力</p></td>
<td></td>
</tr></table>
</div>
<div class="decFormTxtArea">
<textarea name="Description_plain_work" cols="60" rows="10"></textarea>
<textarea name="Description_plain" style="visibility:hidden;height:1px;"></textarea>
<p class="decTx03"><a href="http://rdsig.yahoo.co.jp/auction/aucfun/RV=1/RE= …^ADAS8JnuQbzPEM1iV_t8OsxijLos6Y-" target="new">かんたん、きれいに入力できるテンプレートを使う</a>（外部リンク）</p>
</div>
</div>

<script type="text/javascript">




▽試してみたPG▽


For Each objINPUT In objIE.document.All.tags("input") 'Inputのタグを.allから抜く

If objINPUT = "HTMLタグ入力" Then
'見つけたINPUTオブジェクト(ボタン)を.Clickクリックする
objINPUT.Click
'用が済んだので(見つかったので)ループを抜ける
Exit For
End If
Next


'ページの表示完了を待ちます。
While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents
Wend



普通に、マウスでクリックすると切り替わるのですが、　VBA　で　HTML　をクリックしようとしてもできません。。。


わかる方いましたら、よろしくお願いいたします。

No.1 回答者： WindFaller 回答日時： 2015/06/20 08:27

似たような質問はいくつも出ていても解決しませんね。

質問に不完全なHTMLのコードなどは不要です。

ヤフオクのどこの場所なのか『URL』を教えてください。
そして、何をクリックしたいか書くだけで、わかる人には分かります。
ただし、そこが、特別な会員資格の登録や条件が必要だとしたら、少なくとも私には無理です。