指定されたウインドウが存在しません
Webサイトに顧客コードを投入し、titleタグの一部を取得してExcelに書き込むシナリオ実行中に、添付画像のエラーが出ました。
下記スクリプトがエラーが発生したノードのスクリプト内容です。
繰り返し処理の中で最初の数回はうまくいったのですが、途中でエラーが発生しました。
IEのウインドウ読み込み待ちが原因かと考えて、IEの読み込み待とあとに待ち時間を追加しましたが、状況は改善されません。エラー原因は何でしょうか?
--(ここから)ーー
' 引数を解釈する
ieTitle = GetUMSWindowTitle(@ウィンドウ識別名@)
' 戻り値
If isNull(ieTitle) Then
Err.Raise 1, "", "指定されたウィンドウが存在しません。"
WScript.Quit
End If
' 指定されたページのdocumentを取得する
Set document = Nothing
Set shell = CreateObject("Shell.Application")
For i = 0 To shell.Windows.Count - 1
Set window = shell.Windows(i)
title = Empty
On Error Resume Next
title = window.document.title
On Error Goto 0
If title <> Empty Then
If InStr(ieTitle, title) = 1 Then
Set document = window.document
Exit For
End If
End If
Next
If document Is Nothing Then
Err.Raise 1, "", "指定されたタイトルのページが開かれていません。"
WScript.Quit
End If
' document内の指定されたテキストを含むリンクオブジェクトを取得する
On Error Resume Next
Dim AS_NAME
Dim elements
Dim title
Dim count1
Dim p1
title = objIE.document.Title
count1 = Len(title)
count1 = count1 - 0
count1 = count1 - 13
p1 = Instr(title," ")
p1 = p1 - 0
AS_NAME = Mid(title, p1+1, count1-p1)
SetUmsVariable $取得文字列$, AS_NAME
If elements Is Nothing Then
Err.Raise 1, "", "Error"
WScript.Quit
End If
On Error Goto 0
--(ここまで)ーー