ＶＢＡでファミマＴポイントカードのサイトにログイン

ＶＢＡでファミマＴポイントカードのサイトにログインしたいですが
うまくいきません。

https://service.famimacredit.co.jp/ftps/top.do
のＵＲＬを開いて、

---------------------------------------------------------
Sub test()
Set ObjIE = CreateObject("InternetExplorer.application")

ObjIE.Visible = True
ObjIE.Navigate "https://service.famimacredit.co.jp/ftps/top.do"

ObjIE.Document.all.loginID.Value = ""
ObjIE.Document.all.pswd.Value = ""

ObjIE.Document.forms(0).submit

End Sub
---------------------------------------------------------
をすると、エラーになってしまいます。
ログインだけがうまくいきません。
ObjIE.Document.forms(0).submit
が間違ってると思います。

ご教授よろしくお願いします。

No.2 回答者： watabe007 回答日時： 2012/05/01 22:20

表示が完了する前に

T会員番号、暗証番号を入力しようとしているのでは

Set ObjIE = CreateObject("InternetExplorer.application")
With ObjIE
　　.Visible = True
　　.Navigate "https://service.famimacredit.co.jp/ftps/top.do"
　　Do While .Busy = True Or .ReadyState <> 4
　　　　DoEvents
　　Loop
　　.Document.all.loginID.Value = "******"
　　.Document.all.pswd.Value = "****"
　　.Document.Links(0).Click
End With

No.1 回答者： jcctaira 回答日時： 2012/05/01 15:17

nhbghnbg333さん

はじめまして。
　　　
ログインのボタンをクリックすれば良いかと思います。
　　　　
ObjIE.Document.Links(0).Click


注）私はファミマＴポイントカードを持っていませんので正常にログインは確認できていませんが…
　　お試しください。

この回答へのお礼

はじめましてこんばんは。
できました！助かりました！
ありがとうございました。

お礼日時：2012/05/01 22:16