VBAでライブドアブログの記事を編集したい

質問

VBA(エクセル２００２）を使用して
セルA1の文章を、ライブドアのブログの
HTMLタグ編集ができる箇所に貼り付けたいのですが
やり方が分かりません。

objIE.document.getElementById("？？？").Value = Range("A1")
のように、？？？の部分をいろいろ変えて試しているのですが、うまくいきませんでした。
※失敗例：objIE.document.getElementById("editor_1").Value = Range("A1")

以下が関係ありそうなライブドアブログの記事作成ページのソースです。

■ソース１（初めに『HTMLタグ編集』というリンクをクリックしないといけないと思うのですが、方法が分かりません。）
<ul class="editorChange" style="">
<li><a id="edit_type_toggle" href="javascript:void(0)" title="HTMLタグ表示に切り替えます" onclick="javascript:pageTracker._trackPageview('clickreport/blog/edit/edit_type_toggle');">HTMLタグ編集</a></li>
</ul>

■ソース２（ 『name="body"』がブログの文章を書く部分だと思っています。）
<div id="editors" class="editorsBox">
　<div id="editor_1_w" class="punymce">
　　<table id="editor_1_c" class="punymce" cellpadding="0" cellspacing="0">
　　　<tbody><tr class="mceToolbar"><td id="editor_1_t"><ul class="punymce" id="editor_1_tb"></ul></td></tr>
　　　　　　　　<tr class="mceBody"><td><div id="editor_1_b" class="mceBody"><iframe style="width:768px;height:400px" mce_style="width:768px;height:400px" class="punymce" src='javascript:""' id="editor_1_f" frameborder="0"></iframe></div></td></tr>　　　</tbody>
　　</table>

　<div id="editor_1_p" class="mcePlaceholder"></div>
</div>

<textarea style="display: none;" name="body" id="editor_1"></textarea>
<textarea name="body_more" id="editor_2"></textarea>
<textarea name="body_private" id="editor_3"></textarea>

-----------------------------------------
良い方法があれば、宜しくお願い致します。
ブラウザはIE８を使用しています。

回答No.2

DOUGLAS_ · ベストアンサー

＃動かないコードを書いてしまったので投稿しなおしました。
ＩＥ９ ＆ Excel2003 でイケました。
サイトのポップアップブロックを解除しておいてください。

Ａ１：タイトル
Ａ２：記事本文
Ｂ１：ログインＩＤ
Ｂ２：パスワード
とします。

Option Explicit

Sub Macro1()
     Dim myURL As String
     Dim objIE As Object
     Dim i
     myURL = "http://livedoor.blogcms.jp/blog/" & [B1] & "/article/edit"
     Set objIE = CreateObject("InternetExplorer.Application")
     With objIE
         .Visible = True
         .navigate myURL
         While .Busy Or .ReadyState <> 4: DoEvents: Wend

'ログイン
         On Error Resume Next
         With .document.all
             .livedoor_id.Value = [B1]
             .Password.Value = [B2]
             .loginForm.submit
         End With
         While .Busy Or .ReadyState <> 4: DoEvents: Wend
         On Error GoTo 0
                 With .document.all

'「HTMLタグ編集」をクリック
             If .edit_type_toggle.className = "" Then _
                 .edit_type_toggle.Click

'タイトルと記事入力
             .Title.Value = [A1]
             .editor_1.Value = [A2]
         End With

'プレビュー表示
         For Each i In .document.getElementsByTagName("input")
             If i.Value = "プレビュー" Then: i.Click: Exit For
         Next
     End With
     Set objIE = Nothing
End Sub

お礼

かなり悩んでいたのですが、教えて頂いた方法で一気に解決致しました。
本当にありがとうございました。