qtp - 如何从网页中捕获 QTP 中的值并将其通过电子邮件发送给 Outlook

Question

我正在尝试从报告页面中捕获一个值：

这是我正在生成的报告，网页上有一个错误编号，我如何在 QTP 中捕获该值并将其复制到 Excel 文件中并将文件作为电子邮件发送。

附件是报告网页的参考图片

Answer 1

您可以为错误的文本值创建一个输出值WebElement。为了识别错误元素，您可以使用匹配文本的正则表达式（类似于\d+(\s\(\d+\))?）。

您还应该使用视觉关系识别来获取Total Errors标题下的第一个字段。

从那时起，您就有了价值，发送电子邮件和/或进入 Excel 是一件简单的事情。

Answer 2

如果它是使用 WebTable(“TableName”).GetCellData(i, ColumnName) 使用 QTP 的 webtable 读取值。那张桌子的类别是什么？

将值写入excel的代码

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\pathtoexcel.xlsx")
Set objWorksheet = objWorkbook.Worksheets(1)
strCellValue = objExcel.Cells(1, 1).Value
objWorksheet.Cells(1, 1).Value = Valuefromwebtable
objWorkbook.Save
objExcel.Quit

发送电子邮件的代码

Set Objoutlook = CreateObject("Outlook.Application")
Set newEmailMail = Objoutlook.CreateItem(olMailItem)
newEmailMail.Subject = "Message Subject to send"
newEmailMail.Body = "Message Body "
newEmailMail.RecipIents.Add(Email Address) 'Email Address
newEmailMail.Attachments.Add(File Attachment) ' Excel file created 
newEmailMail.Send
Set Objoutlook = Nothing