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

leopeng_0330

于 2019-11-16 22:50:09 发布

阅读量374

点赞数

分类专栏： VBA 文章标签： AS400自动化 VBA编程

本文链接：https://blog.csdn.net/leopeng_0330/article/details/103104133

版权

这段代码展示了一个使用VBA编写的宏，用于自动化查询AS400系统中DSPMSG命令的任务状态。通过模拟页面翻动和查找关键字，脚本可以定位到指定任务的状态，如'运行中'或'已完成'。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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 &#

最低0.47元/天解锁文章