qtp - Web ページから QTP の値を取得し、Outlook から誰かにメールで送信する方法

Question

レポートページから値を取得しようとしています:

これは私が生成しているレポートであり、Web ページにエラーの番号があります。その値を QTP で取得し、Excel ファイルにコピーして、ファイルを電子メールで送信するにはどうすればよいですか。

レポートのウェブページの参考写真を添付し​​ます。

Answer 1

エラーのテキスト値の出力値を作成することができますWebElement。エラー要素を識別するために、テキストに一致する正規表現（のようなもの\d+(\s\(\d+\))?）を使用できます。

また、Visual Relations Identificationを使用して、TotalErrorsヘッダーの下にある最初のフィールドを取得する必要があります。

その時点からあなたは価値を持っており、それは電子メールを送信するか、またはExcelに入るという簡単な問題です。

Answer 2

WebTable の場合は、QTP を使用して WebTable(“TableName”).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