食べログに価格ドットコムのIDでログインしたい

質問

食べログにvbaを使ってログインしたいのですが、
どうしてもログインボタンを押せません。

クリックできない状態です。
Enabledプロパティと同じような状態です。

Dim objIE As InternetExplorer
Sub Sample1()

Dim SiteName As String
Dim myObj As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.navigate "https://ssl.tabelog.com/account/kakakuid_entry/"

With objIE.document
.all("mail_address").Value = "test"
.all("password").Value = "test"
End With

For Each myObj In objIE.document.all.tags("input")
If myObj.alt = "ログイン" Then
myObj.Click
Exit For
End If
Next

Set objIE = Nothing
End Sub

こうしても、なぜかログインボタンが選択状態になりません。
手動でIDとPWを入力すると、ボタンが青くなり、押せるようになりますが
VBAで情報を入力すると、選択不可状態のままです。

これが原因で、vbaでログインボタンがクリックできないのでしょうか？

回答No.2

eden3616 · ベストアンサー

SendKeysで送らないとだめなのかな？
Busy判定してるのにたまに失敗するのはなぜってことで
Sleepいれてますが。

■VBAコード

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim objIE As Object

Sub Sample1()
Dim SiteName As String
Dim myObj As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.navigate "https://ssl.tabelog.com/account/kakakuid_entry/"

'読込待機
Do While objIE.Busy
　　DoEvents
Loop

'念のため（無いとたまに失敗）
Call Sleep(1000)

With objIE.Document
　　.all("password").Value = "test"
　　.all("mail_address").Focus
　　SendKeys "test@test.com", True

　　'何故かないと失敗する時がある
　　Call Sleep(1000)
　　.all.Commit.Click
End With

Set objIE = Nothing
End Sub

お礼

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

回答No.1

kumatti1

# ページの読み込み待ちが抜けてるのは投稿時のミスとして。

取り合えず要素をフォーカスしてSendKeysでお茶を濁すとか。
With objIE.document
.all("mail_address").Value = "test"
.all("password").Focus
.all("password").Value = "test"
SendKeys "{ENTER}"
End With

上手い解決法もあるのでしょうけど。

お礼

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