Tag: hp uft

无法在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 / 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单元格，而不是删除已经存在的单元格？ 所以只需添加已经在那里。 所以例如，我有一个每个循环获取差异值，我希望它都进入一个单元格。 那可能吗？

如何保存工作簿和处理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中获取更新的值？

获取给定的列号和单元格数据在Excel中的行号

如果我知道单元格数据和我希望数据所在的列号，请让我知道如何检索该单元格的行号。 谢谢。

testing一个SOAP WSDL在vb脚本中是启动还是closures？

我正在尝试validationWSDL是否在运行或不在VB脚本中。 如果我们在浏览器中打开WSDL，如果我们得到一个XML，那么WSDL就是UP和Running 如果它是空白/超时/不响应，那么WSDL是closures的 我想写一个VB脚本程序呢？ 我期待在VB脚本中这样的东西在QTP / UFT或EXCEL VBA MACRO中运行。 这个程序是用Java编写的 public static void main(String args[]) { String wsdl = "http://lxomavnat005.dev.qintra.com:10301/icl/services/ICL_2_0?wsdl"; URL url = null; URLConnection urlConnection = null; try { url = new URL(wsdl); urlConnection = url.openConnection(); if (urlConnection.getContent() != null) { System.out.println("GOOD URL"); } else { System.out.println("BAD URL"); } } catch (IOException ex) { […]

如何使用vbscript以读/写模式打开qtp（.usr）文件

我能够打开使用VB脚本的QTP应用程序，但是当我尝试打开文件，它是在只读模式下打开，当我运行脚本，它不会从Excel表中读取数据，它应该已经读取。 Set oShell = CreateObject ("WScript.Shell") Dim qtpAppObj,qtpTest 'Create the QTP Application object Set qtpAppObj = CreateObject("QuickTest.Application") 'Open the test in read-only mode qtpAppObj.Open c:\test, True 'set run settings for the test Set qtpTest = qtpAppObj.Test 我正在使用上面的代码 所以我想读一个excel文件，我认为它不能被读取，因为只读模式。

如果Err.Description =“…”然后…在VBscript

我正在修复波纹pipe错误“数据表导入操作失败。无效的文件”使用这种方式： On error resume next DataTable.ImportSheet Environment("STPFilePath"),Environment("TestScriptName"),"Action2" If Err.Description = "The DataTable.ImportSheet operation failed. Invalid file." \n "Line (20): "DataTable.ImportSheet Environment("STPFilePath"),Environment("TestScriptName"),"Action2""." Then list of instructions end if 但是我得到这个错误： 由于语法错误，testing运行无法继续。 Expected 'Then' Line (24): "If Err.Description = "The DataTable.ImportSheet operation failed. Invalid file." \n "Line (20): "DataTable.ImportSheet Environment("STPFilePath"),Environment("TestScriptName"),"Action2""." Then". 一切看起来不错。 请帮忙吗？ 我错了？

如何使XL文件的第二个选项卡可见？

我的XL（VISA和MasterCard）有两个标签。 我能够从VISA和MasterCard标签读取数据。 当我的脚本从“MasterCard”标签读取数据[这是我的XL的第二个标签]，它显示我'VISA'标签[它正确地从'MasterCard'读取数据]。 当脚本读取数据“万事达卡”标签时，应显示“万事达”标签而不是“签证”标签。 我需要这个，因为我想要分开的两个选项卡的屏幕截图。 注意：我正在使用UFT读取XL文件