鈴木様
元にしたExcel VBOが古いため、ExecWithTimeoutがグローバルコードで宣言されていないためだと思われます。
以下をグローバルコードに追加してみて頂くといかがでしょうか？
またはDXから最新のExcel VBOをダウンロードいただき、それを元にしていただいても行けるかなと。
https://digitalexchange.blueprism.com/dx/entry/9648/solution/ms-excel-blue-prism-utility
' Execute a sub within a specific timeout period
'
' @param timeout The number of seconds to wait before timing out
' @param name The name of the operation
' @param operation The operation to perform
Private Sub ExecWithTimeout(timeout As Integer, name As String, operation As Action)
Dim ar = operation.BeginInvoke(Nothing, Nothing)
If Not ar.AsyncWaitHandle.WaitOne(TimeSpan.FromSeconds(timeout)) Then
Throw New TimeoutException(name & " took more than " & timeout & " secs.")
End If
operation.EndInvoke(ar)
End Sub
' Execute a function within a specific timeout period
'
' @param timeout The number of seconds to wait before timing out
' @param name The name of the operation
' @param operation The operation to perform
'
' @return The result of the operation
Private Function ExecWithTimeout(Of T)(timeout As Integer, name As String, operation As Func(Of T)) As T
Dim ar = operation.BeginInvoke(Nothing, Nothing)
If Not ar.AsyncWaitHandle.WaitOne(TimeSpan.FromSeconds(timeout)) Then
Throw New TimeoutException(name & " took more than " & timeout & " secs.")
End If
return operation.EndInvoke(ar)
End Function
確認のほど、よろしくお願いいたします。
------------------------------
Satoshi Abe
Blue Prism
------------------------------
