2013-01-14 152 views
2

我試圖捕捉從報告頁面的值通過電子郵件發送給別人:如何在QTP從網頁捕捉值,並將其從Outlook

這是一個報告我生成,並有一個數上如何在QTP中捕獲該值並將其複製到Excel文件中並將該文件作爲電子郵件發送。

附件爲報告網頁

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

+0

你在使用派?只是QTP?你想自動完成所有這些嗎? –

+0

是的,我在Win 7上使用QTP 11, 其實我正在尋找兩種方式,自動或手動執行此操作,因爲我試圖將其轉儲到Excel文件中,並通過電子郵件將其作爲附件發送出去 Thanks in提前 – Uska

+0

您可以使用selenium/qtp作爲Web部件,但要管理Windows需要Sikuli(基於圖像,簡單)或AutoIt(更健壯,更難)。我希望這幫助 –

回答

0

您可以創建錯誤WebElement的文本值的輸出值的參考照片。爲了識別錯誤元素,您可以使用與文本匹配的正則表達式(如\d+(\s\(\d+\))?)。

您還應該使用Visual Relations Identification獲取總錯誤標題下的第一個字段。

從這個角度來看,您有價值,並且發送電子郵件和/或進入excel是一件簡單的事情。

+0

試圖與腳本來,但我仍然遇到一個問題,同時捕獲值並將其傳遞到文件。 我嘗試過使用硒,但硒和IE不能共同工作,因此QTP自此軟件主要用於我公司的IE瀏覽器 – Uska

+0

@Umesh如果您發佈了一些HTML源代碼,我可能會幫助您創建一個QTP腳本 – Motti

0

如果它是webtable讀取值使用WebTable(「TableName」)。GetCellData(i,ColumnName)使用QTP。該表的類是什麼?

代碼來寫值到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