摘要：'计算器一位加法计算，并将实际值，测试结果输出，最终导入到本地 Dim iDim inputDim expertvalue,actualvaluedatatable.ImportSheet "C:\Users\Administrator\Desktop\UFT活动讲课资料\加法运算case.xlsx 阅读全文

摘要：自动化对象模型AOM的应用（使用AOM的方式运行UFT中的脚本）'定义qtapp对象变量Dim qtapp'创建qtapp对象Set qtapp =CreateObject("quicktest.application")'启动uftqtapp.Launch'设置uft显示类型qtapp.Visib 阅读全文

摘要：创建excel文件Sub addexcel(excelpath) '定义excel文件对象 Dim exlapp '定义excel工作簿 Dim exlworkbook '定义excel表格 Dim exlworksheet '创建excel对象 Set exlapp = CreateObject( 阅读全文

摘要：'根据两个数进行加法和减法运算'1、输入+号，则进行加法运算'2、输入-号，则进行减法运算 Dim opera,operb,result,operMsgBox "+.加法功能"&vbcrlf&"-.减法功能"oper=InputBox("请选择功能")opera=InputBox("输入a数据")o 阅读全文

摘要：'创建日志文件并在该文件里添加内容 Sub writelog(log) Const forreading =1,forwriting =2,foraddpending=8 Dim fso,f Dim filepath filepath ="C:\log\log.txt" Set fso =creat 阅读全文

摘要：调用 createfolder函数createfolder("C:\Users\lcy\Desktop\UFTtest\test")<!--EndFragment-->'在本地创建一个文件夹的封装函数Function createfolder(folderpath) Dim sfo,f Set sf 阅读全文