0

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

--(ここまで)ーー

YoshihitoNakata 回答した質問
回答とコメントは、会員登録(無料)で閲覧できるようになります。