vbaでnanacoにログイン（ie操作）

Question

私は「緑のパスワードがなくnanacoをお持ちの方」です。カード記載の番号にはvbaで値を入れることはできるのですが、 nanaco番号に値を入れることとログインボタンを押すことができません。 ********************************************** Sub nanaco() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://www.nanaco-net.jp/pc/emServlet" Do While objIE.Busy = True DoEvents Loop Do While objIE.document.readyState <> "complete" DoEvents Loop objIE.document.all("XCID").Value = "12345" objIE.document.all("SECURITY_CD").Value = "Password" 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 ********************************************** これだとまずall("XCID").Value でエラーになります。ソースでは、となっておりますが、同じコードが二つあるからエラーになるのでしょうか？ all("SECURITY_CD").Value は問題なくできます。ソースにも、SECURITY_CDは一つしかないです。次にログインボタンも二つあるのですが、 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 このコードを実行すると、多分上の方のログインボタンが押されてるようです。なので、 Dim 二つ目 As Boolean For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then If 二つ目 = True Then myObj.Click Exit For End If 二つ目 = True End If End If Next に変更してみたのですが、どうやら If myObj.alt = "ログイン" Then になるのは、1回しかないようです。うーん、うまくできません。ご教授よろしくお願いします。

jcctaira · Accepted Answer

rvnaclnvlhmrさん
こんにちは。

nameは普通ユニークだと思ったのですが同じ名前を２つ使っているのですね。
それでもnameで定義されているので簡単に対処できます。

objIE.document.all("XCID").Value = "12345"
objIE.document.all("SECURITY_CD").Value = "Password"
For Each myObj In objIE.document.forms(0).all
　　：
Next
　　　　　　↓↓↓↓↓↓
objIE.document.all.XCID(1).Value = "12345"
objIE.document.all.SECURITY_CD.Value = "Password"
objIE.document.all.ACT_ACBS_do_LOGIN2.Click

※objIE.document.all.XCID(0).Value …　１つ目のanaco番号入力エリアです。
注）objIE.document.all("XCID")(1).Value = "12345"
   でもOKですが、上記の方がちょっとはスッキリしている？と思います。

お試し下さい。

kumatti1 · Answer

# 上手く行ったなら解決済みにされた方がいいのではと。

objIE.document.forms(1).Item("XCID").Value = "12345"
objIE.document.forms(1).Item("SECURITY_CD").Value = "Password"
objIE.document.forms(1).all("ACT_ACBS_do_LOGIN2").Click
とも書けますね。

---
> nameは普通ユニーク

Idの方はUI Automationの AutomationId として検索としても使われるのでユニークなのですが、nameはForm毎に同名なのは結構ある様です。
(Twitterのログインページも同じ類)

vbaでnanacoにログイン（ie操作）

rvnaclnvlhmrさん

# 上手く行ったなら解決済みにされた方がいいのではと。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング