＃動かないコードを書いてしまったので投稿しなおしました。
ＩＥ９ ＆ 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
お礼
かなり悩んでいたのですが、教えて頂いた方法で一気に解決致しました。 本当にありがとうございました。