VBA 実行時エラー1004 rangeメソッドは

始めまして、VBA初心者です。

現在VBAプログラムを使って、サイトに自動ログイン出来るようにコードを作成しているのですが、『実行時エラー’1004’rangeメソッドは失敗しました。’＿global’オブジェクト』とメッセージが出て、実行できません。

デバックをすると以下の11行目で黄色のバーが出ていました。いろいろと調べてみましたが、原因がわからずに止まってしまいました。

どなかた分かる方がいらっしゃいましたら教えて頂けますようにお願い致します。

コードは下記です。

Sub 無料スペースログイン()

Set ObjIE = CreateObject("InternetExplorer.Application")
ObjIE.Visible = True
ObjIE.Navigate "http://mnnf.jp/signup/"

Do While ObjIE.ReadyState <> 4
Do While ObjIE.Busy = True
Loop
Loop


For Each Obj In ObjIE.Document.getElementsByTagName("input")

If Obj.Name = "mail" Then
ObjIE.Document.getElementsByName("mail")(0).Value = Range("A1").Value
Else
If Obj.Name = "password" Then
ObjIE.Document.getElementsByName("password")(0).Value = Range("B1").Value
Else
Exit For
If Obj.alt = "新規無料登録" Then
Obj.Click
Exit For
End If
End If
End If
Next
End Sub

No.1 ベストアンサー 回答者： web2525 回答日時： 2013/01/30 01:27

私の環境では普通に動きますね

内容も問題ないようですが、念のため
Range("A1").Value
この部分を入力しなおしてどうなるかを確認してみてください

この回答へのお礼

理由がわからないのですが、入力しなおしたら動きました。

ありがとうございました。

お礼日時：2013/01/30 07:52