• 締切済み

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

ＶＢＡでファミマＴポイントカードのサイトにログインしたいですが うまくいきません。 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 が間違ってると思います。 ご教授よろしくお願いします。

みんなの回答

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.2

表示が完了する前に 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

  • jcctaira
  • ベストアンサー率58% (119/204)
回答No.1

nhbghnbg333さん はじめまして。 　　　 ログインのボタンをクリックすれば良いかと思います。 　　　　 ObjIE.Document.Links(0).Click 注）私はファミマＴポイントカードを持っていませんので正常にログインは確認できていませんが… 　　お試しください。

nhbghnbg333
質問者

お礼

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

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBAでサイトにログインする際について

    とあるサイト（https://www.rakuten-sec.co.jp/ITS/V_ACT_Login.html）にログインしたく、VBAにてDocumentオブジェクトで、以下のように書きましたが、クリックのところでエラーになってしまいます。 ボタン名が　submit%template　なのでそのまま入力してもうまくいきませんでした。[]で閉じてもうまくいかず悩んでいます。 どなたか教えていただけませんか。 strURL = "https://www.rakuten-sec.co.jp/ITS/V_ACT_Login.html" strLogin = "loginid" strPassword = "password" objIE.Navigate strURL With objIE.Document .all.loginid.Value = strLogin .all.passwd.Value = strPassword .all.submit%template.Click

  • VBAでサイトのsubmitボタンをクリックしたい

    とあるサイトに自動ログインするｖｂａを作っています。 （三流君を参考にしています） Sub ログイン() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True '************************************************** ObjIE.navigate "https://www" Do While ObjIE.Busy = True '表示させるまで待つ DoEvents Loop Application.Wait (Now + TimeValue("00:00:03")) ObjIE.Document.all.UserId.Value = "ID" ObjIE.Document.all.submit_l貸出照会.Click　’ここでエラーになる End Sub 上記のようなコードを書いているのですが 該当サイトのソースを読み取り、 「INPUT TYPE="text" NAME="userid" VALUE=""」 の部分は ObjIE.Document.all.UserId.Value = "ID" で出来たのですが 「<INPUT TYPE="submit" VALUE="貸出照会">」 の部分をクリックしてログインしたいのですが ObjIE.Document.all.貸出照会.Click だとエラーになってしまいます。 ObjIE.Document.Forms(0).item("貸出照会").Click もダメでした。 ご教授よろしくお願い致します。 （エクセル2003）

  • ＶＢＡでSkyDriveにログインしたい

    ＶＢＡでSkyDriveにログインしたいのですが、 --------------------------------------------------------- Sub SkyDriveにログインする() Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1340539242&rver=6.1.6206.0&wp=MBI_SSL_SHARED&wreply=https:%2F%2Fskydrive.live.com%2F%3Flc%3D1041&lc=1041&id=250206&mkt=ja-JP&cbcxt=sky" '表示終了まで共通_表示待ち Do While objIE.Busy = True DoEvents Loop objIE.Document.all.PageID.Value = "aaa" objIE.Document.all.passwd.Value = "aaa" '表示終了まで共通_表示待ち Do While objIE.Busy = True DoEvents Loop objIE.Document.Forms(0).submit Set objIE = Nothing End Sub --------------------------------------------------------- を実行すると、 objIE.Document.all.PageID.Value = "aaa" の部分で、 【オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)】 というエラーになります。 たぶん、「PageID」が間違ってると思うのですが、ソースを見てもよくわかりません。 ご教授いただけないでしょうか？ ご回答よろしくお願いします。

  • vbaでログインできない　手動だとできる

    GMO証券のでも画面にログインするｖｂａを組んでるのですが、 ｖｂａでsubmitを押すと、エラー画面になってしまいます。画像を添付します。 しかし手動でログインボタンを押すとログインできるんです。そんなこと、あり得ますか？ コードは↓です。 ****************************************************** Sub gmo() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://fx-demo.click-sec.com/ygmo/servlet/login?FAGD=1" Do Until objIE.ReadyState = 4 Loop With objIE.Document.Forms("frmMain") .elements("j_username").Value = "ID" .elements("j_password").Value = "PW" '手動ならログインできるのにvba(submit)だと「既にログインしています」になる '.submit End With End Sub ****************************************************** vbaだと、すでにログインしていなくても「既にログインしています」になってしまいます。 何かわかる方、ご回答よろしくお願いします。

  • VBA　IE操作　ログイン後ＵＲＬを取得したい

    yahooにログインするＶＢＡコードはわかるのですが、 ログインが失敗なのか正常にログインできたのかをＶＢＡで知りたいです。 結果を知るには、ログインボタン押下後のＵＲＬを取得できればいいと思うのですが その方法がわかりません。 ログイン自体は、 --------------------------------------------------------- Sub ie_test() Dim objIE As Object 'ＩＥオブジェクト参照用 'インターネットエクスプローラーのオブジェクトを作る Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) '文字列で指定したＵＲＬに飛ぶ objIE.Navigate "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.yahoo.co.jp" '表示終了まで待つ Do While objIE.Busy = True '何もしないループ（笑） DoEvents Loop '項目名を指定して、データをセットする objIE.document.all.UserName.Value = "UserName" objIE.document.all.passwd.Value = "****" objIE.document.Forms(0).submit End Sub --------------------------------------------------------- で、できました。 objIE.document.Forms(0).submitの後には、 ログインが出来ていたら http://www.yahoo.co.jp/ のページへ行き、 ログイン失敗なら https://login.yahoo.co.jp/config/login? のＵＲＬが表示され、図のように 「Yahoo! JAPAN IDまたはパスワードが正しくありません。」 と表示されます。 objIE.document.Forms(0).submitの後に MsgBox objIE.URL を入れると 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)」 になり、 MsgBox objIE.Navigate を入れると 「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」 になります。 ログイン後のソースをエクセルに書き出す方法も考えましたが、書き出しに時間がかかるのでやめました。 ご教授よろしくお願いします。

  • VBAで教えてgooに自動ログインしたい

    Sub 教えてgoo() Dim objIE As Object Const READYSTATE_COMPLETE As Long = 4 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart?Site=oshiete.goo.ne.jp&Success=http%3A%2F%2Foshiete.goo.ne.jp%2F" Do While objIE.Busy = True DoEvents Loop Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop objIE.document.all.all("uname").Value = "gooID" objIE.document.all.all("pass").Value = "gooPW" Do While objIE.Busy = True DoEvents Loop Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop objIE.document.all("ログイン").Click End Sub --------------------------------------------------------- を実行してみても、 objIE.document.all.all("uname").Value = "gooID" objIE.document.all.all("pass").Value = "gooPW" objIE.document.all("ログイン").Click の部分がエラーになってしまいます。 教えてgooは、VBAでログインできないように規制されてるのでしょうか？

  • ｖｂａ　ｉｅ操作　ログインしたい

    いつもお世話になっております。 前回ご回答いただいた方ありがとうございました。 またまた困ったことにログインしたいサイトがあるのですがうまくできません。 ＵＲＬはhttps://www.a-q-f.com/openpc/USB0100S01Action.do?aqf_id=S0000&send_url=https://www.a-q-f.com/&get_userInfo=&r=2941249539317530063 なのですが、ログインが二つあり、左側でログインしたいのですが、ボタンを押下できません。 **************************************************** Sub 永久不滅ドットコム() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "https://www.a-q-f.com/openpc/USB0100S01Action.do?aqf_id=S0000&send_url=https://www.a-q-f.com/&get_userInfo=&r=2941249539317530063" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.all.ID.Value = "test" objIE.Document.all.idPassword.Value = "test" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop For i = 0 To objIE.Document.Links.Length - 1 If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then '何も起こらない objIE.Document.Links(i).Click Exit For End If Next i objIE.Document.Forms(0).Click '何も起こらない objIE.Document.Forms(0).Submit 'エラーになる Set objIE = Nothing End Sub **************************************************** をやってみましたが無理でした・・・ ご教授よろしくお願いします。

  • ｖｂａ　ｉｅ操作　電気家計簿ログインできない

    いつもお世話になっております。 何度も質問して申し訳ございません。またまた教えてください。 電気家計簿（https://www.kakeibo.tepco.co.jp/dk/aut/login/）のログインボタンをＶＢＡで押したいのですが うまくできません。 コードは下記の通りです。 ***************************************************************** Sub test() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.kakeibo.tepco.co.jp/dk/aut/login/" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.all("id").Value = "test" objIE.Document.all("password").Value = "tset" 'objIE.Document.Forms(0).submit 'これだと更新されちゃうっぽい 'objIE.Document.Forms(0).Item(2).Click 'Item(0)とItem(1)はエラーにならないけど何も起こらない。Item(2)にするとエラー 'objIE.Document.all.submit.Click 'エラー 'エラーにならないけど何も起こらない 'For i = 0 To objIE.Document.Links.Length - 1 ' If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then ' objIE.Document.Links(i).Click ' Exit For ' End If 'Next i 'エラーにならないけど何も起こらない 'For Each myObj In objIE.Document.forms(0).all ' If TypeName(myObj) = "HTMLInputElement" Then ' If myObj.alt = "ログイン" Then ' myObj.Click ' Exit For ' End If ' End If 'Next Set objIE = Nothing End Sub ***************************************************************** 自分なりにいくつか試してみたのですが、うまくいきませんでした。 ご教授よろしくお願いします。

  • ｉｅ操作　ログインボタンを押せないです

    こんばんは。いつもお世話になっております。 ｉｅ操作でうまく行かないので教えてください。 イトーヨーカドーのサイトにログインしたいのですがログインボタンが押下できません。 Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.iy-net.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Document.all("userId").Value = ID objIE.Document.all("password").Value = PW objIE.Document.forms(0).submit Set objIE = Nothing End Sub --------------------------------------------------------- だと、 「ハイフンを除く7ケタを半角数字でご入力ください」になってしまいます。 ログインボタンが押せてないのかもしれないけど、よくわかりません。 --------------------------------------------------------- Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.iy-net.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Document.all("userId").Value = ID objIE.Document.all("password").Value = PW For i = 0 To objIE.Document.Links.Length - 1 If objIE.Document.Links(i).innerText = "ログイン" Then objIE.Document.Links(i).Click Exit For End If Next i Set objIE = Nothing End Sub --------------------------------------------------------- にすると、 https://www.iy-net.jp/nspc/logininput.do のＵＲＬが表示されて会員認証の画面になってしまいます。 だからって objIE.Navigate "https://www.iy-net.jp/" を https://www.iy-net.jp/nspc/logininput.do にして objIE.Document.forms(0).submit すると https://www.iy-net.jp/nspc/searchresult.do のページが表示されて 「再度 TOPページよりログインいただけますようお願い申し上げます。」 になってしまいます。 ログインする方法を教えていただけますか？ ご教授よろしくお願いします。

  • OCNにＶＢＡでログインしたいのですが

    OCNにＶＢＡでログインしたいのですが うまくできません。 ＵＲＬは https://login.ocn.ne.jp/auth/s2001/pc/AuthLoginDisplay.action もしくは http://www.ocn.ne.jp/ です。 objIE.Document.all("comid").Value = " tenor.ocn.ne.jp" objIE.Document.all("password").Value = "" ここまではうまくいくのですが、ログインしようと、 objIE.Document.forms(0).submit 'ダメ objIE.Document.all("action:AuthLoginLogin").Checked = True 'ダメ でもダメでした。 ソースは <p class="align-c roll"><input type="image" alt="ログイン" src="common/images/btn_login.gif" id="AuthLoginDisplay_AuthLoginLogin" name="action:AuthLoginLogin" value="Submit" class="button"/> </p></form> なのですが うまくできません。 わかる方ご教授よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する