Tag: hp uft

VBscript中一个关键字的大量参数的pipe理

我正在使用关键字驱动框架进行testing自动化。 我必须添加关键字add_car。 这个关键字需要大量的参数，这些参数应该在excel表格中作为这个关键字的参数input。 我想find一个解决scheme来pipe理大量的参数（其中一些总是必需的，其他的是可选的） 下面的图片是如何在Excel工作表中input参数值的示例。 excel表格的例子 这里是我如何在UFT中调用这个关键字 关键字在UFT中调用 在我的函数库中，我定义了my_keyword的指令。 是否有任何解决scheme来pipe理这个大数目的参数（我有超过30个参数，一般来说有些是可选的，其他的都是必需的）。

脚本工作在debugging模式但不正常运行 – 错误代码：429（ActiveX组件不能创build对象）

UFT版本：12.02（Build：2374） 操作系统：Windows 7（64位） 在我的应用程序中，有一个DataGrid和一个“导出到Excelbutton”。 当我点击该button时，会打开一个包含网格中所有数据的Excel文件（Data.xlsx）。 我只需要将这个Excel文件保存到一个位置。 我正在使用“GetObject”方法来获取对打开的Excel文件的引用，如下面的代码所示。 问题：当我在debugging模式下运行这个代码，它工作正常，我没有得到任何错误，并成功保存在正确的位置的Excel。 但是，当我运行相同的代码（正常运行 – 不在debugging中），我得到错误代码：429（ActiveX组件不能创build对象），如下所示。 我不知道为什么我在正常运行中遇到此问题。 码： Dim l_objExcel, l_objExcelBook Execute "Set l_objExcel = GetObject(,""Excel.Application"")" 'getting error 429 here in Normal Run 'I could have just used- Set l_objExcel = GetObject(,"Excel.Application") but it doesn't seem to work. It throws the syntax error(Expected Expression) at this line Set l_objExcelBook = […]

有没有办法在Excelmacros中运行asynchronous方法？

我在运行excelmacros时遇到了麻烦，因为它导致我的UI冻结。 考虑下面的代码： Call Run_Test() Sub Run_Test() Set oQTP= CreateObject("Quicktest.Application") oQTP.Open "<Test Path>" oQTP.Run"<Test Path>" End Sub 这里的问题是，当运行上面的Run_Test方法“oQTP.Run”需要一些时间来完成，在这段时间，如果单击Excel表单的UI冻结。 那么有什么办法可以asynchronous运行这个方法，并防止Excel冻结？ 或者还有其他的技术来防止这种情况发生吗？

带function的Vbscript类提取Excel数据

我有一个VB脚本类，具有提取特定的Excel数据的function。 问题是，每个函数都必须打开excel，因此当打开的excel文件数量变多时，我的机器就会窒息。 有没有办法打开Excel只有一次，然后有我的function提取数据？ 这是我的代码。 Class TestData 'User Name Function usrNm(filepath) set ObjExcel = CreateObject("Excel.application") ObjExcel.workbooks.open ""&filepath& "\TestData\PosTestData.xls" U_NAME = ObjExcel.sheets(1).cells(2,1) usrNm = U_NAME End Function 'User Password Function usrPwd(filepath) set ObjExcel = CreateObject("Excel.application") ObjExcel.workbooks.open ""&filepath& "\TestData\PosTestData.xls" U_PASS = ObjExcel.sheets(1).cells(2,2) usrPwd = U_PASS End Function End Class

仅closures由UFT打开的Excel进程

我有一个UFT脚本，执行后，打开很多Excel工作簿。 （我可以在任务pipe理器中看到它）。 如何closures仅由UFT（临时工作簿）打开的Excel文件，而不closures由我打开的工作簿？ 如果这可以使用VBScript来完成，那将会更有帮助。

在使用CreateObject启动Excel后，UFT – Excel加载项无法安装

我通过UFT自动化Excel插件。 我使用CreateObject来启动excel： Set oExcel = CreateObject("Excel.Application") oExcel.Workbooks.Add oExcel.Visible = True 在继续之前，我想确保我的加载项被正确安装。 所以我这样做： For K = 1 To oExcel.AddIns.Count Step 1 If Trim(oExcel.AddIns.Item(K).Name) = "AddInName.xll" Then If oExcel.AddIns.Item(K).Installed Then oExcel.AddIns.Item(K).Installed = False wait (2) oExcel.AddIns.Item(K).Installed = True wait (2) If oExcel.AddIns.Item(K).IsOpen Then 'Reporter.ReportEvent micPass, "Add_In Successful", "Successfully loaded Add_In" Exit For End If End If End […]

如何控制XL的特定单元格？

以下是我打开XL文件的代码。 Set myxl = createobject("excel.application") myxl.Workbooks.Open "E:\Employment.xls" myxl.Application.Visible = true 这里我面临1个问题。 此代码能够打开XL文件，但它只显示在任务栏上。 我无法看到xl文件的内容。 请参阅附加屏幕截图了解更多详情 2]我的第二个问题是我想截取第300行和第8列的单元格。 我能够通过UFT阅读这个特定单元格的数据，但不能滚动到这个单元格，以便我可以截取单元格（300,8）

代码在.vbs文件中运行良好，但不在UFT脚本中运行 – 错误429

我有一行代码： Dim objExcel Set objExcel = CreateObject("Excel.Application") Msgbox Err.number 当我在.vbs文件中运行这个代码时，它会被成功的执行，而不会引发任何错误（Err.number = 0）（我在桌面上创build了一个文本文件，把它的扩展名从txt改成了vbs，并双击vbs文件 – 正确运行没有错误 – 不知道这种方法默认使用32位或64位wscript.exe我需要了解这一点。有人请解释这一点，除了主要问题之外？ ） 问题： 当我把这个代码放在一个UFT脚本中时，它会抛出错误429 – ActiveX组件不能创build对象。 它仍然卡在行Set objExcel = CreateObject("Excel.Application")一段时间，最后抛出错误429。 附加信息： Windows 7（64位） UFT – 32位 – 版本：12.02 Excel – 32位（版本 – 14.0.7181.5000） 我已经看了很多这个问题的地方，我认为这与一些在这里的答案中提到的一些架构不匹配（不知道如果我指着你们到正确的地方）。 我真的很感激如果有人解释为什么代码运行良好的VBS，但不是在UFT脚本？ 我真的需要使它在UFT脚本中工作。 感谢您的帮助。

在VBScript中创buildExcel文件生成一个损坏的文件

我有一个VBScript中的以下代码： Set ExcelObject=CreateObject("Excel.Application") ExcelObject.visible=False ExcelObject.WorkBooks.Add ExcelObject.Sheets(1).Cells(1,1).value="1" ExcelObject.Sheets(1).Cells(1,2).value="2" ExcelObject.Sheets(1).Cells(1,3).value="3" ExcelObject.Sheets(1).Cells(1,4).value="4" ExcelObject.Sheets(1).Cells(2,1).value="5" ExcelObject.Sheets(1).Cells(2,2).value="6" ExcelObject.Sheets(1).Cells(2,3).value="7" ExcelObject.Sheets(1).Cells(2,4).value="Y" For x=0 to testData.Count-1 ExcelObject.Sheets(1).Cells(x+3,1).value=testData(x) ExcelObject.Sheets(1).Cells(x+3,2).value="Constant" ExcelObject.Sheets(1).Cells(x+3,4).value="Y" Next ExcelObject.Activeworkbook.Sheets(1).Name = "Name" ExcelObject.Activeworkbook.SaveAs(path+"Data.xls") ExcelObject.Quit() Set ExcelObject=Nothing 虽然，一旦我用Excel打开这个电子表格，我得到以下错误： “Data.xls”的文件格式和扩展名不匹配。 该文件可能是correupted或不安全的 … 另外，我无法从UFT HP导入此数据表。 我相信这可能是因为如何生成Excel文件的这个问题。 我能做些什么来解决它？

如何根据条件将数据从excel导入到UFT

我有一个Excel表包含testing用例的数据，每个testing用例由一个列值分隔脚本ID，我想只加载脚本ID = 1的行。 我们如何通过DataTable.ImportSheet方法实现这一点，因为这个方法导入了脚本id = 2和3的所有行 我也尝试查询string，这是工作正常，但我想通过DataTable.ImportSheet方法（项目约束）实现这一点， 谢谢阿曼