用意した文章をgooブログにワンクリックで投稿できるマクロを作成しています。

しかし途中でエラーが起きて困っています。
タイトル入力、本文入力が失敗します。
良い解決策は無いでしょうか。


'----------------------------ブログgoo投稿
Sub blog11goo()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart"
IE_Complete IE
IE.Document.all.uname.Value = "---メールアドレス---"
IE.Document.all.Pass.Value = "---パスワード---"
For Each obj In IE.Document.getElementsByTagName("input")
obj.Click
Next
IE_Complete IE
Sleep 2000
IE.Navigate "http://blog.goo.ne.jp/admin/newentry/"
IE_Complete IE
Sleep 4000
Set ti = IE.Document.getElementsByName("entry/entry_title")(0)
Set ho = IE.Document.getElementsByName("entry/entry_text")(0)
ti.Value = "タイトルtest"  '---タイトル入力---
ho.Value = "本文test"  '---本文入力 ---
IE_Complete IE
End Sub



Public Sub IE_Complete(ByVal IE As Object) 'IE読み込みが完了するまで待つ
Do While IE.Busy = True
DoEvents
Loop
Do While IE.Document.ReadyState <> "complete"
DoEvents
Loop
End Sub


回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2016/10/09 20:26:00
  • 終了:2016/10/16 20:30:03

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません