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

原创

于 2019-11-16 22:50:09 发布 · 411 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#AS400自动化 #VBA编程

这段代码展示了一个使用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 = CatchKey(jobNo, GetStringLines(pageString))
If Len(lineStr) > 0 Then
GetLine = lineStr
Exit Function
End If