Tag: qtp

在Qtp中，从全局表格的本地图表栏中打印值只有最后一行值是priint: systemUtil.run "iexplore",datatable.Value(4,1) datatable.value(5,1)=Browser("Google").Page("Google").WebElement("India").GetROProperty("innertext") a=datatable.GetSheet("Global").GetParameter("result").Value datatable.value(2,2)=a browser("Google").Close datatable.Export "C:\Users\arajput\Desktop\qtp.xlsx" 我想通过在新的工作表栏中传递不同的url来打印标志谷歌，即印度，英国等国家。我已经在全局工作表中传递不同的url，它工作正常输出在全球工作表中的国家名称，但在本地表中获得相同的值，即新的工作表，它只显示最后的url值只返回一行，因为它是覆盖前一个

无法在qtp中保存webtable内容到excel文件: 我的代码无法将数据保存到现有的Excel文件。我可以从本地窗口看到，它是从一个webtable复制到excel工作表的数据，但不能保存的细节。请你纠正，如果我在这里错过任何错误 path = "D:\Demo\TestData\Shopping_Cart.xls" set xl= CreateObject("excel.application") xl.workbooks.open(path) set nsheet=xl.sheets.item(1) Set BrwsrCheckOut= Browser("name:=Checkout","title:=Checkout – Internet Explorer").page("title:=Checkout","name:=.*") Set DesPrdChcKOut = Description.Create DesPrdChcKOut("html tag").value = "TABLE" DesPrdChcKOut("column names").value = "Product Name;Model;Quantity;Price;Total" For IteratorRow = 1 To 2 'BrwsrCheckOut.WebTable(DesPrdChcKOut).RowCount Step 1 For IteratorCol = 1 To 3 'BrwsrCheckOut.WebTable(DesPrdChcKOut).ColumnCount(1) Step 1 val = BrwsrCheckOut.WebTable(DesPrdChcKOut).GetCellData(IteratorRow, IteratorCol) Next Next 'xl.Activeworkbook.saveAs […]

在QTP文本框中添加excel / csv文件中的值: 在QTP文本框中添加excel / csv文件中的值大家好，我有一个手头的Excel文件，我试图将字段复制到文本框中，该文件具有多个列和行中的多个值。我正在select一行并尝试将这些值插入到文本框中，但无论何时在文本框中input值，下一个值都将覆盖当前值，最后只有一个值。我希望所有的值都能在文本框中反映出来，所以我可以点击提交button：代码如下： Set myxl = createobject("excel.application") myxl.Workbooks.Open "J:\Example1.csv" myxl.Application.Visible = true set mysheet = myxl.ActiveWorkbook.Worksheets("Example1") 'Get the max row occupied in the excel file Row=mysheet.UsedRange.Rows.Count 'Get the max column occupied in the excel file Col=mysheet.UsedRange.columns.count For i= 2 to Row For j= 2 to Col Msgbox mysheet.cells(i,j).value Browser("Some site").Page("Some […]

QTP / UFT：使用VB比较两个Excel表格的简单性和高性能: 我想在VB中比较2个Excel表格。我知道如何在QTP / UFT中打开这些表单我知道如何获取所有单元格的范围。但我不知道比较这两张（范围）的高效方法。如果第二张的值与第一张的相应值不同，则应插入第二张的相应单元格中。我可以parsing所有的单元格串行比较与相应的单元格，但这不是很高性能。我想用下面的方法比较一下： If not (sheet1.range() equals sheet2.range()) then if not (Sheet1.range.Row equals sheet2.range.row) then if not (Sheet1.range.Row.cells equals Sheet2.range.Row.cells) then Sheet2.range.Row.cells.value = Sheet1.range.Row.cells.value 所有的值可以在不同的行和单元格中，但是在第一列和列的标题中有相应的ID。所以我必须parsing这两个工作表中的正确的行ID和两个列标题中的对应的列。我不想在表格中使用公式，因为我必须以程序化的方式进行比较。有人可以给我一个提示，如果有一个函数，方法或属性在Excel中可以使用？提前致谢

写入已经有一个值，而不是写在先前的VAL的Excel单元格: 是否有可能写入一个已经有价值的Excel单元格，而不是删除已经存在的单元格？所以只需添加已经在那里。所以例如，我有一个每个循环获取差异值，我希望它都进入一个单元格。那可能吗？

QTP的行数和列数始终为1: 我正在写一段代码将数据从networking表复制到Excel表。我不明白为什么我得到行数和列数1.是否还有其他东西，我需要添加？这是我的代码： Dim XL Set XL=createobject("Excel.Application") XL.Workbooks.Open "D:\QTP\RailwaysforSurat.xlsx" Set nsheet = XL.Sheets.Item(1) row=Browser("title:=.*").Page("title:=.*").WebTable("html tag:=TABLE", "index:=0").GetROProperty("rows") msgbox row cols=Browser("title:=.*").Page("title:=.*").WebTable("html tag:=TABLE", "index:=1").GetROProperty("cols") msgbox cols 这不是完整的代码。我无法获得行和列数。请帮忙！ PS我正在使用这个网站进行testing“ http://www.indianrail.gov.in/cgi_bin/inet_trnnum_cgi.cgi ”

如何保存工作簿和处理TITUS（或任何其他文档分类加载项）popup？: 我在HP UFT 12中创build了一个脚本，该脚本对CSV文件执行网格数据validation，并将结果保存在带有两个工作表的Excel文件中。我正在使用Excel，因为它对用户来说更加清晰，因为它允许单元格格式化，比较数据更容易等等。我的代码在我的机器上工作，但我的客户端安装了TITUS文档分类插件，所以每次运行我的脚本时都会挂起，因为TITUSpopup消息要求用户在保存时对文档进行分类。该消息不会显示给用户，可能是因为objExcel.DisplayAlerts = False ，但脚本无法向前移动。以下是我的代码与此事有关的部分（由于保密原因，我省略了大部分代码）。 Dim objExcel : Set objExcel = CreateObject("Excel.Application") Dim objWorkbook : Set objWorkbook = objExcel.Workbooks.Add objExcel.Visible = False Dim wsGrid : Set wsGrid = objWorkbook.Worksheets(1) wsGrid.Name = "Grid Data" Dim wsExported : Set wsExported = objWorkbook.Worksheets.Add wsExported.Name = "Exported Data" ' Internal code to perform validation […]

UFT / QTP =没有从Excel中获取更新的值: 我们使用UFT12.51进行testing自动化。只有当我们把脚本用于夜间执行时，我们才面临以下问题。我们在Excel中使用了'= Today（）'函数来获得今天的date。今天的date是2016年7月19日。当我们把脚本用于夜间执行时，在晚上11:59之后，excel应该给出更新date[2016年7月20日]，但是它会在2016年7月19日发送，因此我们的validation失败。下午11:59之后，如何从Excel中获取更新的值？

如何从QTP Resultsviewer打开一个Excel文件: 我想在Reporter.ReportEvent语句中包含一个Link来打开一个Excel文件来获取TEST的更多细节。因此，额外的细节用户应该能够点击QTP结果查看器中的链接，然后将打开一个Excel文件的详细信息。我该怎么做请帮忙。

使用macros更新Quality Center使用的csv文件: 我有一个包含迭代的csv文件，这些文件将被导入HP Quality Center并用于执行自动化testing。这些文件中的一些数据必须每个月更新一次，并为每个数据创build了一个macros。我不能把macros和csv保留在一个工作簿上，因为QC不允许导入除CSV文件以外的任何东西（不是我所知道的）。我意识到我可以每次都导入macros，但是有许多csv文件和许多macros。是否有一些格式或解决方法，让我把macros保持在CSV文件，所以当我打开它，我可以打Alt + F8并运行macros？