- 博客(29)
- 资源 (9)
- 收藏
- 关注
RSS订阅转载 将文本文件导入到Excel数据表中
将文本文件导入到Excel数据表中：Sub ImportFromTextFile() Dim fso AsObject, sFileAsObject, blnExistAsBoolean Dim FileName AsString, LineTextAsVariant, iAsInteger, iColAsInteger Const
2014-05-16 14:31:32
721
转载 激活单元格列名称
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrange myrange = Split(ActiveCell.Address, "$")(1) MsgBox myrangeEnd Sub
2014-05-15 14:45:00
452
转载 遍历文件夹下文件写入文本
set f=ofso.opentextfile("D:\print.txt",2,true)f.write af.closemsgbox "完成。"Function TreeIt(sPath) on error resume next Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder =
2014-04-24 13:16:37
435
转载 QTP加载Lib
'创建qtp对象 Set qtApp = CreateObject("QuickTest.Application") qtApp.Launch qtApp.Visible = False '打开qtp文件 On Error Resume Next qtApp.Op
2014-04-24 11:29:10
456
转载 VB选择文件夹
Set spShell = CreateObject("Shell.Application") Set spFolder = spShell.BrowseForFolder(0, "选择目录:", 0, ssfDRIVES) Set spFolderItem = spFolder.Self spPath = spFolderItem.Path
2014-04-24 11:28:29
1452
转载 判断PC是否存在.Net
Public Function IsMSFrameworkInstalled() On Error Resume Next Dim objWMIService Dim colItems Dim objItem Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
2014-04-15 11:19:45
416
转载 MsgBox vbYesNo
Dim Rtn&Private Sub Command1_Click()Rtn = MsgBox("您确定要删除本笔资料吗 ?", vbYesNo, "厂商管理作业")'MsgBox IIf(Rtn = 6, "您选择了 Yes", "您选择了 No") '简单的写法If Rtn = 6 ThenMsgBox "您选择了 Yes"ElseMsgBox "您选择了 No"
2014-03-29 14:33:36
3324
转载 QTP写Log文件
'*******************************'@Description 打印Log '********************************Public Sub WriteLogs(result) Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fileSystemObj, fi
2014-03-04 09:49:01
1247
转载 Dictionary Object (Scripting Runtime Library)
Add Method:Dim d ' Create a variable.Set d =CreateObject("Scripting.Dictionary")d.Add "a","Athens" ' Add some keys anditems.d.Add "b","Belgrade"d.Add "c","Cairo"Exists Method:Functio
2014-02-28 13:26:47
763
转载 检查界面层对象是否存在并写入测试报告
' 检查界面层对象是否存在并写入测试报告Public Function IsContextLoaded(ByRef htContext)Dim ix, items, keys, strDetails, strAdditionalRemarksIsContextLoaded=trueitems = htContext.Itemskeys = htContext.KeysFor
2014-02-27 13:30:09
413
转载 QTP-FunctionPointer-DesignPattern
Public Function tt1 msgbox "tt1"End FunctionPublic Function tt2 msgbox "tt2"End FunctionPublic Function tt3 msgbox "tt3"End FunctionPublic Function TestFlow(ByRef LoadFuns) F
2014-02-21 11:29:19
454
转载 Eval 方法
在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试x 和 y 是否相等。如果相等，result 为 True；否则 result 为 False。Eval 方法总是采用第二种解释，而 Execute 语句总是采用第一种。注意 在Microsoft(R) JScript 中不存在这种比较与赋值的混淆，因为赋值运算符(=
2014-02-21 10:26:27
439
转载 datediff()统计两个日期时间段之间的间隔
' datediff()统计两个日期时间段之间的间隔Public Function TimeSpace()'datediff("d","起始日期","结束日期"),其中"d"代表以天为单位,"M"以月为单位,"H"代表小时；now代表当前日期 a=datediff("H",now,"2008-8-8") MsgBox(a)End Function
2014-02-21 08:43:04
1859
转载 QTP设计模式-命令包装模式
Class oCommand 'input Private VarIntNum Public property Get Number Number=VarIntNum End Property Public property Let Number(ByVal oNum) VarIntNum=oNum End Property 'output Priv
2014-02-20 19:08:58
435
转载 VBScript Round 函数
定义和用法Round 函数可对数字进行四舍五入。语法Round(expression[,numdecimalplaces])参数描述expression必需的。需要被四舍五入的表达式。numdecimalplaces可选的。规定对小数点右边的多少位进行四舍五入。默认是 0。
2014-01-17 11:10:10
621
原创 自定义Class类注入测试对象
'***********************************************************''脚本名称：自定义Class类注入测试对象'脚本功能：归类SwfTable对象常用基本方法'编写日期：2014/01/10'***********************************************************'Class c
2014-01-11 10:54:21
603
转载 QTP-Rescovery出错截屏函数
Public Function QTP_Capture(Object, Method, Arguments, retVal ) Dim PathWay,myTime,FileName PathWay="F:\" myTime=now( ) TimeStamp=year(myTime)&month(myTime)&day(myTime)&hour(myT
2014-01-09 11:27:08
446
转载 Dictionary对象
1．Dictionary对象的成员概要表5-2和表5-3列出了Dictionary对象的属性和方法及相应的说明。当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。表5-2 Dictionary对象的属性和说明属 性 说明CompareMode
2014-01-08 09:40:31
404
转载 VBScript 运算符
运算符优先级当表达式包含多个运算符时，将按预定顺序计算每一部分，这个顺序被称为运算符优先级。可以使用括号越过这种优先级顺序，强制首先计算表达式的某些部分。运算时，总是先执行括号中的运算符，然后再执行括号外的运算符。但是，在括号中仍遵循标准运算符优先级。当表达式包含多种运算符时，首先计算算术运算符，然后计算比较运算符，最后计算逻辑运算符。所有比较运算符的优先级相同，即按照从左到右的顺序计算比
2014-01-07 10:06:26
662
转载 VBScript编码规范
格式化代码应尽可能多地保留屏幕空间，但仍允许用代码格式反映逻辑结构和嵌套。以下为几点提示：标准嵌套块应缩进 4 个空格。 过程的概述注释应缩进 1 个空格。 概述注释后的最高层语句应缩进 4 个空格，每一层嵌套块再缩进 4 个空格。例如： '********************************************************* ' 目的：
2014-01-07 10:01:44
617
转载 VBScript变量名、对象命名约定
下表列出了 VBScript 中可能用到的对象命名约定（推荐）： 对象类型前缀示例3D 面板pnlpnlGroup动画按钮anianiMailBox复选框chkchkReadOnly组合框、下拉列表框
2014-01-07 09:53:53
985
转载 GetOpenFilename的使用方法和示例
GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。'注:此方法并不会真正打开文件?'Application.GetOpenFilename(文件类型筛选规则,优先显示第几个类型的文件,标题,是否允许选择多个文件名) '二、示例 '1 打开类型只限excel文件 '设置打开某类文件可以
2014-01-06 17:00:02
16139
1
转载 RepositoriesCollection方法
RepPath = "C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\MyTest\Action1\ObjectRepository.bdb"RepositoriesCollection.RemoveAll() RepositoriesCollection.Add(RepPath) Pos = Re
2014-01-03 17:00:11
586
原创 QTP测试对话框窗体模板
'***********************************************************''脚本名称：QTP测试对话框窗体模板'脚本功能：'输入参数：'输出参数：'编写日期：'修改日期：'***********************************************************''***********
2014-01-03 16:42:35
396
原创 RegisterUserFunc方法
1.为“WinEdit”创建一个新的copy方法：Sub Copy (edit) Edit.Click 3, 3 Edit.SetSelection 0, Len(Edit.GetROProperty("text")) Edit.Type micCtrlDwn + "c" + micCtrlUp End Sub '注册RegisterUserFu
2014-01-03 16:33:53
617
转载 VBScript字符串函数
1. Split(expression, delimiter, count, compare)返回基于 0 的一维数组，其中包含指定数目的子字符串。expression：必选。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。 delimiter：可选。用于标识子字符串界限的字符。如果省略，使用空格 ("
2013-12-30 16:54:46
993
转载 QTP DEV控件相关
'@【DEV相关】 点击DevExpress MenuBar上的Button(根据ButtonNum)Function ClickMenuButtonByNum(menuBarH, buttonNum) menuButtonBounds = menuBarH.Object.VisibleLinks.Item(buttonNum).Bounds boundsArray = S
2013-12-30 16:28:56
661
转载 QTP常用函数
'********************************'是否匹配正则表达式'********************************Function RegExpTest(patm,strng)Dim regEx,retValSet regEX = New RegExpregEx.Pattern=patmregEx.IgnoreCase=False
2013-12-30 16:20:58
564
转载 VB随机函数
'********************************'随机函数生成'输入值：生成值范围 fromNum～toNum'返回值：随机数'********************************Public Function Get_RandNum(fromNum,toNum) If (fromNum MsgBox "只接受大于零的输入" Else
2013-12-30 15:58:07
2805
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人