大名鼎鼎的鼎有几画:QTP专用函数

　　序列号 函数名 函数作用 第一参 第二参 第三参 第四参 第五参 返回值

　　1 QTP_Small() 让QTP运行时保持最小化

　　2 QTP_Big() '恢复QTP窗口

　　3 "QTP_WriteFile(pathway,words)" '写文件函数(追加) 文件路径 写入内容

　　4 "Function QTP_WriteFile_Change(pathway,words)" '写文件函数(改写) 文件路径 写入内容

　　5 "QTP_Read_Excel(pathway,sheetname,x,y)" '读Excel文件元素 文件路径 工作表名 行值 列值

　　6 "QTP_Write_Excel(pathway,sheetname,x,y,content)" '写Excel文件元素并保存退出 文件路径

　　工作表名 行值 列值 写入内容

　　7 "QTP_Msgbox(Value,waitTime,Title)" 定时停留弹出框函数 弹出值 弹出框停留时间 弹出框标题

　　8 "QTP_Change_Color(pathway,sheetname,x,y,color)" '改变Excel的单元格颜色 文件路径 工作表名

　　行值 列值 颜色(只接受red和green)

　　9 QTP_Capture(pathway) '捕获当前屏幕（截图） 保存图片路径

　　1 Function CreateExcel() 生成Excel对象和默认新工作表 Excel对象

　　2 Sub CloseExcel(ExcelApp) 关闭指定的Excel Excel对象

　　3 "Function SaveWorkbook(ExcelApp, workbookIdentifier, path)" 保存工作表 Excel对象 工作表名

　　Excel文件路径 1成功，0失败

　　4 "Sub SetCellValue(excelSheet, row, column, value)" 给Excel元素赋值 工作表名 行 列 值

　　5 "Function GetCellValue(excelSheet, row, column)" 获得指定元素值 工作表名 行 列 值，0未找到元素

　　6 "Function GetSheet(ExcelApp, sheetIdentifier) 返回工作表 工作表

　　7 "Function InsertNewWorksheet(ExcelApp, workbookIdentifier, sheetName)" 插入一个新的工作表 Excel对象

　　工作表名 新工作表名 新工作表对象

　　8 Function CreateNewWorkbook(ExcelApp) 建立一个新表 Excel对象

　　9 "Function OpenWorkbook(ExcelApp, path)" 打开一个之前保存过的工作表 Excel对象 路径

　　10 "Sub ActivateWorkbook(ExcelApp, workbookIdentifier)" 激活工作表 Excel对象 工作表名

　　11 "Sub CloseWorkbook(ExcelApp, workbookIdentifier)" 关闭工作表 Excel对象 工作表名

　　12 "Function CompareSheets(sheet1, sheet2, startColumn, numberOfColumns, startRow, numberOfRows, trimed)" 比较工作表

　　1工作表一2工作表二 3起始列 4列数 5起始行 6行数 默认参数 true一致 false不一致

　　QTP与Robot通用函数:

　　序列号 函数名 函数作用 第一参 第二参 第三参 第四参 返回值

　　1 Get_Data() 获取当前日期

　　2 Get_Time() 获取当前时间

　　3 "Get_RandNum(fromNum,toNum)" 随机函数生成 起始生成值 结束生成值 随机数

　　4 "Swap(byref a,byref b)" 值交换函数 交换参数1 交换参数2 (引用调用)

　　5 IsPrimeNumber(num) 是否是质数函数 '是质数返回true，否则返回false

　　6 "ReadLine(pathway, rowcount)" 读指定文本文件指定行内容 文件路径 行数

　　"返回指定行内容，""文本越界"",""文件不存在"""

　　7 Function MakeString(inputlength) 随机生成字符串 字符串长度 随机字符串

　　8 Sub ZYGLQ() 启动资源管理器

　　9 Sub Run() 启动运行

　　10 "SendMail(SendTo, Subject, Body, Attachment)" 调用outlook发送电子邮件 收件人 主题 邮件内容 附件

　　11 "Function NoRepeat(Inp,Sp)" 去掉字符串中的重复项 输入字符串 字符串分隔符 无重复的字符串

　　12 Function GetLen(Str) 求字符串长度（中文算2个西文字符） 输入字符串

　　13 Sub RunApp(command) 运行指定程序 运行程序名

　　14 Function Nextday(ByVal inputday) 求下一天是几号的函数 原始日期 原始日期后一天的日期

　　15 Function ISLeapYear(ByVal inYear) 判断是否闰年 年份 true:是闰年 false:非闰年

　　16 "Function Days(SourceData, DesData)" 计算两个日期之间相隔几天 初时日期 目的日期 相隔天数

　　17 Function Identification(Text1) 检查身份证号是否正确 身份证号 正确：true 错误：false

　　18 "Access_GetCount(DBlocation,TableName,Value)" 查询Access数据库字符出现次数 数据库存放位置 表名

　　查询的值 返回值出现的次数

　　19 Function checkString (myString) 检查是否存在数字 输入字符串 true：存在数字 false：不存在数字

　　20 "Function BubbleSort(VString,Spl,Func)" 按ASCII码值冒泡排序 待排序的字符串 分隔符 排序方式：

　　1降序，2升序 排序完的序列