Tag: qtp

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文件

我怎样才能引用内置的MS Exceltypes与OLE: 我的应用程序应该在Excel中执行一些简单的操作，比如添加图表，列表对象等等。我正在使用OLE连接。问题是，一些Excel方法将内置types（枚举）作为参数。对于提及他们我没有任何想法。例如： WorkBook.ActiveSheet.ListObjects.Add(xlSrcRange, Range("$D$5:$J$15"), , xlNo).Name = "Table1" xlSrcRange和xlNo属于内置的枚举。我试图用下面的方式来提及他们 ExcelApp.xlSrcRange ExcelApp.XlListObjectSourceType.xlSrcRange ExcelApp.XlListObjectSourceType 此代码会导致错误“对象不支持属性或方法ExcelApp.xlSrcRange ” New XlListObjectSourceType.xlSrcRange new xlSrcRange 此代码也会导致错误（未知variablesXlListObjectSourceType和xlSrcRange）我正在使用QTP，脚本语言是VB脚本

脚本工作在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冻结？或者还有其他的技术来防止这种情况发生吗？

macros代码点击通过QTP启动的input框中的OKbutton: 我正在通过Excelmacros执行几个QTP脚本。但是有时QTP会popup一些popup窗口，我们必须在input某个值后手动点击OK。我想在我的macros代码中模拟这个动作。下面是我想要处理的input框的屏幕截图：问题是这个input框是通过QTP脚本启动的，但是我想用Excelmacros代码点击OKbutton。那么，我怎样才能得到这个input框，并执行所需的操作？

在使用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）