Question

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

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

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

Web Report http://i49.tinypic.com/w9jpdf.png

Answer 1

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

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

从那时起，您就拥有了价值，这是发送电子邮件或进入Excel的直接问题。

Answer 2

如果它是使用WebTable（“TableName”）的Webtable读取值。使用QTP的GetCellData（i，ColumnName）。该表的类是什么？

将值写入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

如何从网页捕获QTP中的值并通过Outlook将其发送给某人

2 个答案: