VBA脚本查找AS400 DSPMSG任务执行状态

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Excel VBA 编程
'  AS400 DSPMSG 翻页查找任务状态
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Test()
    
    driver.pageNo = 3
    
    Dim status As String
    
    status = GetJobStatus("440002")
    
End Sub

Public Function GetJobStatus(ByVal jobNo As String) As String
    Dim line As String
    line = GetLine(jobNo)
    If Len(line) > 0 Then
        GetJobStatus = Replace(line, jobNo, "")
        Exit Function
    End If
    GetJobStatus = "no data"
End Function

Private Function GetLine(ByVal jobNo As String) As String
    Dim allLog As String
    Dim pageString As String
    Dim lineStr As String
    Do
        driver.PageDown '你自己在driver中实现好翻页的动作
        pageString = driver.getScreenString()
    Loop While (Not IsLastPage(pageString))
    Do
        pageString = driver.getScreenString()
        lineStr &#