レポートページから値を取得しようとしています:
これは私が生成しているレポートであり、Web ページにエラーの番号があります。その値を QTP で取得し、Excel ファイルにコピーして、ファイルを電子メールで送信するにはどうすればよいですか。
レポートのウェブページの参考写真を添付します。
レポートページから値を取得しようとしています:
これは私が生成しているレポートであり、Web ページにエラーの番号があります。その値を QTP で取得し、Excel ファイルにコピーして、ファイルを電子メールで送信するにはどうすればよいですか。
レポートのウェブページの参考写真を添付します。
エラーのテキスト値の出力値を作成することができますWebElement
。エラー要素を識別するために、テキストに一致する正規表現(のようなもの\d+(\s\(\d+\))?
)を使用できます。
また、Visual Relations Identificationを使用して、TotalErrorsヘッダーの下にある最初のフィールドを取得する必要があります。
その時点からあなたは価値を持っており、それは電子メールを送信するか、またはExcelに入るという簡単な問題です。
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