zhangzhiwei911-CSDN博客

转载将文本文件导入到Excel数据表中

将文本文件导入到Excel数据表中：Sub ImportFromTextFile() Dim fso AsObject, sFileAsObject, blnExistAsBoolean Dim FileName AsString, LineTextAsVariant, iAsInteger, iColAsInteger Const

2014-05-16 14:31:32 696

转载激活单元格列名称

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrange myrange = Split(ActiveCell.Address, "$")(1) MsgBox myrangeEnd Sub

2014-05-15 14:45:00 431

转载遍历文件夹下文件写入文本

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 409

转载 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 428

转载 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 1404

转载判断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 395

转载 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 3212

转载 QTP写Log文件

'*******************************'@Description 打印Log '********************************Public Sub WriteLogs(result) Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fileSystemObj, fi

2014-03-04 09:49:01 1218

转载 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 740

转载检查界面层对象是否存在并写入测试报告

' 检查界面层对象是否存在并写入测试报告Public Function IsContextLoaded(ByRef htContext)Dim ix, items, keys, strDetails, strAdditionalRemarksIsContextLoaded=trueitems = htContext.Itemskeys = htContext.KeysFor

2014-02-27 13:30:09 395

转载 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 429

转载 Eval 方法

在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试x 和 y 是否相等。如果相等，result 为 True；否则 result 为 False。Eval 方法总是采用第二种解释，而 Execute 语句总是采用第一种。注意在Microsoft(R) JScript 中不存在这种比较与赋值的混淆，因为赋值运算符(=

2014-02-21 10:26:27 413

转载 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 1825

转载 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 413

转载 VBScript Round 函数

定义和用法Round 函数可对数字进行四舍五入。语法Round(expression[,numdecimalplaces])参数描述expression必需的。需要被四舍五入的表达式。numdecimalplaces可选的。规定对小数点右边的多少位进行四舍五入。默认是 0。

2014-01-17 11:10:10 568

原创自定义Class类注入测试对象

'***********************************************************''脚本名称：自定义Class类注入测试对象'脚本功能：归类SwfTable对象常用基本方法'编写日期：2014/01/10'***********************************************************'Class c

2014-01-11 10:54:21 582

转载 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 423

转载 Dictionary对象

1．Dictionary对象的成员概要表5-2和表5-3列出了Dictionary对象的属性和方法及相应的说明。当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。表5-2 Dictionary对象的属性和说明属性说明CompareMode

2014-01-08 09:40:31 386

转载 VBScript 运算符

运算符优先级当表达式包含多个运算符时，将按预定顺序计算每一部分，这个顺序被称为运算符优先级。可以使用括号越过这种优先级顺序，强制首先计算表达式的某些部分。运算时，总是先执行括号中的运算符，然后再执行括号外的运算符。但是，在括号中仍遵循标准运算符优先级。当表达式包含多种运算符时，首先计算算术运算符，然后计算比较运算符，最后计算逻辑运算符。所有比较运算符的优先级相同，即按照从左到右的顺序计算比

2014-01-07 10:06:26 633

转载 VBScript编码规范

格式化代码应尽可能多地保留屏幕空间，但仍允许用代码格式反映逻辑结构和嵌套。以下为几点提示：标准嵌套块应缩进 4 个空格。过程的概述注释应缩进 1 个空格。概述注释后的最高层语句应缩进 4 个空格，每一层嵌套块再缩进 4 个空格。例如： '********************************************************* ' 目的：

2014-01-07 10:01:44 579

转载 VBScript变量名、对象命名约定

下表列出了 VBScript 中可能用到的对象命名约定（推荐）：对象类型前缀示例3D 面板pnlpnlGroup动画按钮anianiMailBox复选框chkchkReadOnly组合框、下拉列表框

2014-01-07 09:53:53 957

转载 GetOpenFilename的使用方法和示例

GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名。'注:此方法并不会真正打开文件?'Application.GetOpenFilename(文件类型筛选规则,优先显示第几个类型的文件,标题,是否允许选择多个文件名) '二、示例 '1 打开类型只限excel文件 '设置打开某类文件可以

2014-01-06 17:00:02 15949 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 567

原创 QTP测试对话框窗体模板

'***********************************************************''脚本名称：QTP测试对话框窗体模板'脚本功能：'输入参数：'输出参数：'编写日期：'修改日期：'***********************************************************''***********

2014-01-03 16:42:35 377

原创 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 587

转载 VBScript字符串函数

1. Split(expression, delimiter, count, compare)返回基于 0 的一维数组，其中包含指定数目的子字符串。expression：必选。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。 delimiter：可选。用于标识子字符串界限的字符。如果省略，使用空格 ("

2013-12-30 16:54:46 947

转载 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 633

转载 QTP常用函数

'********************************'是否匹配正则表达式'********************************Function RegExpTest(patm,strng)Dim regEx,retValSet regEX = New RegExpregEx.Pattern=patmregEx.IgnoreCase=False

2013-12-30 16:20:58 541

转载 VB随机函数

'********************************'随机函数生成'输入值：生成值范围 fromNum～toNum'返回值：随机数'********************************Public Function Get_RandNum(fromNum,toNum) If (fromNum MsgBox "只接受大于零的输入" Else

2013-12-30 15:58:07 2755