VBA IEで該当のHPを開きボタンをクリックしたい

発生している問題・エラーメッセージ

VBAでIE上のHPのボタンがクリックできない

問題
エラーは出ないが、クリックもできていない

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)

Sub MySub()

Dim objIE As InternetExplorer
Dim objTag As Object

Dim win As Object
Dim winshell As Object
Set winshell = CreateObject("Shell.Application")

'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True
objIE.navigate "https://SSSSSSSSSSSSSSSSSSSSSSSS" '管理画面ページのURLを指定
    
 
'■シェルオブジェクトを使用し、IEを再度掴みなおす。
For Each win In winshell.Windows
    If win.Name = "Internet Explorer" Then
        Set objIE = win
        Exit For
    End If
Next
 
'■IE読み込み表示待ち
Do While objIE.Busy = True
    DoEvents
Loop
Do While objIE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop

'開始(submit)をクリック
For Each objTag In objIE.document.getElementsByClassName("btn btn-big btn-primary")

If InStr(objTag.outerHTML, "開始") > 0 Then

  '送信ボタンクリック
  objTag.Click

  'IEが完全表示されるまで待機
  Call ieCheck(objIE)

  'ループ脱出
  Exit For
        
End If

End Sub

Sub ieCheck(objIE As InternetExplorer)

Dim timeOut As Date

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

timeOut = Now + TimeSerial(0, 0, 20)

Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop

End Sub

以下の、質問のエラーは回避できたので、上記に
新しい問題を記載します。以下は読み飛ばしてください。

該当のソースコード

ソースコード

Sub MySub()

Dim objIE As InternetExplorer
Dim objTag As Object

'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True
objIE.Navigate "https://XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" '管理画面ページのURLを指定

'始業(submit)をクリック
For Each objTag In objIE.document.getElementsByClassName("btn btn-big btn-primary")　→ここでエラーが発生する

If InStr(objTag.outerHTML, "開始") > 0 Then

  '送信ボタンクリック
  objTag.Click

  'IEが完全表示されるまで待機
  Call ieCheck(objIE)

  'ループ脱出
  Exit For
        
End If

End Sub

エラーが発生する理由は、引用しているソースコードがおかしいからでしょうか？

yshima1129

2021/05/18 12:00

どのようなエラーが出るのでしょうか。 HTMLもあるとよいかもしれません。

abcdefg12345

2021/05/18 12:08

オートメーションエラーです。エラーを特定できませんとでます。 HTML <input type="submit" value="開始" class="btn btn-big btn-primary" onclick="return doLabel('KAISHI');">

yshima1129

2021/05/18 12:15

objIE.Navigate "https://XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" '管理画面ページのURLを指定の下に 'IEが完全表示されるまで待機 Call ieCheck(objIE) 上を入れてみるとどうなんでしょうか。

yshima1129

2021/05/18 12:17

VBA オートメーションエラー検索すると、いっぱい出てきますね。そのあたりを参考にしてもいいかもしれないですね。

abcdefg12345

2021/05/18 12:38

objIE.Navigate "https://XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" '管理画面ページのURLを指定の下に 'IEが完全表示されるまで待機 Call ieCheck(objIE) 上記やってみましたでも以下のえらーが・・ Do While objIE.Busy = True Or objIE.readyState <> 4 で、リモートサーバーがないか、使用できる状態にありませんと出ます。。そして以下を追加してみました Sub ieCheck(objIE As InternetExplorer) Dim timeOut As Date timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.document.readyState <> "complete" DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop End Sub

yshima1129

2021/05/18 13:16

リモートサーバー・・・嫌なエラーですね・・・。個人的には、IEを起動して操作するのは、操作対象のサイトやユーザーの環境に左右されるので避けていますね・・・。差し支えなければ、起動済みIEを検索してから、操作するようにしたほうが良いかもしれません。中途半端にコメントしてごめんなさい。全然違うかもしれないですが、Power Automate Desktopなどを使ったほうがやりたいことが実現しやすいかもしれないです。遠くから応援しています。

abcdefg12345

2021/05/18 13:21

リモートサーバーは嫌なエラーなんですね。Power Automate Desktopこんなツールもあるのですね！Pythonを使うことも考えたんですが、初心者なんで、こっちのほうがいいかと思いました・・ありがとうございました。

yshima1129

2021/05/19 09:28

リモートサーバーのエラー解消できてよかったですね。私も同じような症状の対策を考えていなかったので、参考になりました。(otnさんありがとうございます。) ソースが増えていたので、ちょっと疑問が出たのですが・・・パット見、どのIEをつかんでいるのか不明かつ、ハズレてもエラーも出ないような流れになっていますね。 IEを全部閉じた状態で実行してみてはどうでしょうか？あと、どのウインドウをつかんでいるか知りたい場合は、「MsgBox objIE.document.title」などを入れてみるといいと思います。遠くから応援しています。