精华内容
下载资源
问答
  • QTP脚本语言VBS编程VBScript的基础全面整理,QTP脚本语言VBS的编程能力的操作教程,文档中的图文解说非常详细,很适合初学者和QTP能力的进阶提升
  • vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程实例vbs 编程...
  • vbs编程入门

    2020-04-01 08:38:23
    由于本经验是针对初次学习VBScript的小伙伴而定制的一篇... 先来说下什么是解释器:编程编程,无非就是让电脑运行写的代码对不对?这个过程又分两种,第一种就是直接生成可执行文件exe,那是windows能直接运行的代...
    1. 由于本经验是针对初次学习VBScript的小伙伴而定制的一篇经验,看完本经验。小编的目的是希望小伙伴能学会2点:

      1、VBScript的解释器在哪

      2、VBScript为什么能直接解释运行

      3、第一个VBS函数——msgbox

      先来说下什么是解释器:编程编程,无非就是让电脑运行写的代码对不对?这个过程又分两种,第一种就是直接生成可执行文件exe,那是windows能直接运行的代码,第二种就是脚本解释器,也就是说,windows是无法运行脚本代码的,需要一个翻译官来做这件事,这个翻译官就是所谓的脚本解释器,它把脚本代码解释为windows可运行的代码格式。

      我们新建一个HelloWorld.vbs文件,然后用记事本打开,之后随便输入几个字母(反正不是代码就对了)。

      如图

      教你怎么用VBScript(VBS)写一个HelloWorld

    2. 2

      此时,我们保存文件,然后双击HelloWorld.vbs运行。

      可以看到,报错了,没错,这就是解释器报错了。

      现在知道vbs报错是什么样的吧?

      教你怎么用VBScript(VBS)写一个HelloWorld

    3. 3

      OK,我们现在要获得VBS解释器的位置,报错窗口先不要关闭。

      我们打开任务管理器,什么?你不知道在哪里?

      按下ctrl + alt + Delete

      就可以看到怎么启动它。

      我们找到一条任务名为windows script host的任务,右键 -> 转到进程。

      教你怎么用VBScript(VBS)写一个HelloWorld

    4. 4

      此时进程定位到一条叫wscript.exe的进程,右键该进程,打开文件位置

      教你怎么用VBScript(VBS)写一个HelloWorld

    5. 5

      此时我们便找到了VBScript的解释器位置。

      如图,可见VBScript解释器的路径在C:\Windows\System32下,解释器名为wscript

      教你怎么用VBScript(VBS)写一个HelloWorld

    6. 6

      我们开始写我们第一个Hello World程序:

      再次编辑我们刚刚创建的那个HelloWorld.vbs文件,输入以下代码

      msgbox "HelloWorld"

      保存后双击HelloWorld.vbs运行看到结果。

      要注意的是:""是引文双引号。

      msgbox是VBS的一个函数,用于创建一个小对话窗口,""内的内容为窗口内的正文。

      用法为:msgbox 窗口正文,窗口图标和按钮,窗口标题

      我们可以尝试使用以下代码:msgbox "HelloWorld",vbOKCancel,"这是我的第一个VBScript脚本"

      运行试试看,可以加深对msgbox的理解

      教你怎么用VBScript(VBS)写一个HelloWorld

      教你怎么用VBScript(VBS)写一个HelloWorld

    7. 7

      为什么能直接双击运行vbs脚本?

      原因是因为vbs这个扩展名和wscript的路径被写入到环境变量:

      右键我的电脑(或计算机) -> 属性 -> 高级 -> 环境变量

      或者按下win + r打开运行 -> 输入cmd -> 输入set

      其中有一个叫PATHEXT的环境变量,定义了vbs扩展名可直接运行,而Path这个环境变量则定义了C:\Windows\System32路径(%SystemRoot%\System32),我们在cmd命令行内直接echo %SystemRoot%这个变量的内容。

      可以看到是C:\windows

      教你怎么用VBScript(VBS)写一个HelloWorld

      教你怎么用VBScript(VBS)写一个HelloWorld

      教你怎么用VBScript(VBS)写一个HelloWorld

      教你怎么用VBScript(VBS)写一个HelloWorld

    展开全文
  • VBS编程教程第一部

    2020-09-06 02:36:16
    VBS编程教程第一部
  • vbs编程实例.txt

    2012-12-13 12:54:29
    vbs编程实例
  • 关于vbs编程的基础。我觉得这个是我见到过的最好的VBS的教程了。
  • VBS脚本开发程序是一款可视化脚本VBS编程开发工具。 主要功能:将VBS脚本编译成EXE文件,方便您的使用同时又保护vbs代码不被他人偷窥,支持操作系统:XP/2003/vista本程序的开发环境:Vista+Delphi 2007 提示:本...
  • 几年前在校内论坛无意间找到的,有很多作者自己的思考和理解在里面,讲的非常详细,但联系不上原作者,侵删
  • 2007年某某县小学生VBS编程竞赛试卷(xdf格式) 内容完整,但是是xdf格式的,请自行使用工具转码或者下载对应阅读器
  • VBS自动化编程UFT采用VBScript作为脚本开发语言,能够设计强大、灵活的自动化测试脚本。熟练掌握VBScript语言是做好UFT自动测试的关键。使用UFT实施本次OA系统自动化测试前,先介绍下UFT编程时常用的VBScript语法,...

    VBS自动化编程

    UFT采用VBScript作为脚本开发语言,能够设计强大、灵活的自动化测试脚本。熟练掌握VBScript语言是做好UFT自动测试的关键。使用UFT实施本次OA系统自动化测试前,先介绍下UFT编程时常用的VBScript语法,更多知识读者可参考微软官方文档。

    VBScript简介

    VBScript是微软开发的一种脚本语言,全称Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版),VBScript是Visual Basic的的一个抽象子集,用它编写的脚本代码不能编译成二进制文件,直接由Windows系统执行(实际是一个叫做宿主HOST的解释源代码并执行),高效、易学,大部分高级语言能干的事情,它基本上都具备,它可以使各种各样的任务自动化,可以使你从重复琐碎的工作中解脱出来,极大的提高工作效率。

    目前很多自动化测试工具为用户提供的测试脚本编程语言都是所谓的“厂商语言”,即对某种编程语言的有限实现,或经过改造的编程语言的子集,这些语言会有很多方面的限制。而UFT基本完全使用了VBScript。编写一个自动化测试脚本基本由VBScript支持的函数库和UFT自带对象和函数库组成。因此,想写出好的脚本,必须熟悉VBScript和UFT相关的函数库。

    VBScript基础

    本节介绍的VBScript编程全部以案例介绍,不对具体语言做深入解析。常量定义

    Const MyVar = 123 ' 常数默认为公共变量。

    Private Const MyString = "erbao" ' 定义私有常数。

    Const MyStr = "hello,uft", MyNumber = 1 '在一行上定义多个常数。变量定义

    声明变量的一种方式是使用Dim、Public语句和Private语句在脚本中显式声明变量。例如:

    Dim username

    声明多个变量时,使用逗号分隔变量。例如:

    Dim Top, Bottom, Left, Right

    另一种方式是直接在脚本中使用变量名,隐式声明,但这不是一个好的编程习惯,这样有时会由于变量名被拼错而导致在运行脚本时出现意外的结果,如“ExceptValue”误写成“ExpectValue”。因此,最好使用Option Explicit语句显式声明所有变量,如果变量未定义就使用,则会提示“变量未定义”错误,每次编写脚本时在第一行加入“Option Explicit”。

    Option Explicit

    Dim username,password

    创建如下形式的表达式给变量赋值:变量在表达式左边,要赋的值在表达式右边。例如:

    B = 200数组变量定义

    数组变量声明:

    Dim A(10)

    “10”表示定了包含10个元素的数组,但每个元素的下标从0开始,即A(10)数组包括A(0)、A(1)、 A(2)、 A(3)、 A(4)、 A(5)、 A(6)、 A(7)、 A(8)、 A(9)共计10个元素。

    数组变量赋值:

    在数组中使用索引为数组的每个元素赋值,从0到9,如果写A(10)则会超过数组边界。如下所示:

    A(0) = 12

    A(1) = 324

    A(2) = 100

    . . .

    A(9) = 55数据类型

    VBScript只有一种数据类型,称为Variant。Variant是一种特殊的数据类型,根据使用的方式,可以包含不同类别的信息。因为Variant是VBScript中唯一的数据类型,所以它也是VBScript中所有函数的返回值数据类型。

    最简单的Variant可以包含数字或字符串信息。Variant用于数字上下文中时作为数字处理,用于字符串上下文中时作为字符串处理。这就是说,如果使用看起来象是数字的数据,则VBScript会假定其为数字并以适用于数字的方式处理。与此类似,如果使用的数据只可能是字符串,则VBScript将按字符串处理,也可以将数字包含在引号 (" ") 中使其成为字符串。

    除简单数字或字符串以外,Variant可以进一步区分数值信息的特定含义。例如使用数值信息表示日期或时间。此类数据在与其他日期或时间数据一起使用时,结果也总是表示为日期或时间。从Boolean值到浮点数,数值信息是多种多样的。Variant包含的数值信息类型称为子类型。大多数情况下,可将所需的数据放进Variant中,而Variant也会按照最适用于其包含的数据的方式进行操作。

    下表显示Variant包含的数据子类型:

    表7- 1 VBScript数据类型

    子类型

    描述

    Empty

    未初始化的Variant。对于数值变量,值为0;对于字符串变量,值为零长度字符串 ("")。

    Null

    不包含任何有效数据的Variant。

    Boolean

    包含True或False。

    Byte

    包含 0 到 255 之间的整数。

    Integer

    包含 -32,768 到 32,767 之间的整数。

    Currency

    -922,337,203,685,477.5808 到 922,337,203,685,477.5807。

    Long

    包含 -2,147,483,648 到 2,147,483,647 之间的整数。

    Single

    包含单精度浮点数,负数范围从 -3.402823E38 到 -1.401298E-45,正数范围从 1.401298E-45 到 3.402823E38。

    Double

    包含双精度浮点数,负数范围从 -1.79769313486232E308 到 -4.94065645841247E-324,正数范围从 4.94065645841247E-324 到 1.79769313486232E308。

    Date (Time)

    包含表示日期的数字,日期范围从公元 100 年 1 月 1 日到公元 9999 年 12 月 31 日。

    String

    包含变长字符串,最大长度可为 20 亿个字符。

    Object

    包含对象。

    Error

    包含错误号。

    可以使用转换函数来转换数据的子类型。另外,可使用VarType函数返回数据的Variant子类型。VBScript运算符

    VBScrit也同样存在各种运算符:算数运算符、比较运算符、连接运算符和逻辑运算符。这里仅列出常用的运算符。算数运算符

    表7- 2 VBScript算数运算符

    描述

    符号

    负号

    -

    *

    /

    +

    -

    字符串连接

    &比较运算符

    表7- 3 VBScript比较运算符

    描述

    符号

    等于

    =

    不等于

    <>

    小于

    <

    大于

    >

    小于等于

    <=

    大于等于

    >=

    对象引用比较

    Is逻辑运算符

    表7- 4 VBScript逻辑运算符

    描述

    符号

    逻辑非

    Not

    逻辑与

    And

    逻辑或

    Or运算符优先级

    在一个表达式中进行多个运算时,每一部分都会按预先确定的顺序进行计算求解,这个顺序被称为运算符优先级。括号可改变优先级的顺序,强制优先处理表达式的某部分。括号内的操作总是比括号外的操作先被执行。但是在括号内,仍保持正常的运算符优先级。

    当表达式有多种运算符时,先处理算术运算符,接着处理比较运算符,然后再处理逻辑运算符。所有比较运算符有相同的优先级,即按它们出现的顺序从左到右进行处理。算术运算符和逻辑运算符按下列优先级进行处理:

    表7- 5 VBScript运算符优先级

    算术

    比较

    逻辑

    指数运算 (^)

    相等 (=)

    Not

    负数 (-)

    不等 (<>)

    And

    乘法和除法 (*, /)

    小于 (

    Or

    整除 (\)

    大于 (>)

    Xor

    求余运算 (Mod)

    小于或等于 (<=)

    Eqv

    加法和减法 (+, -)

    大于或等于 (>=)

    Imp

    字符串连接 (&)

    Is

    &

    当乘法和除法同时出现在表达式中时,按照从左到右出现的顺序处理每个运算符。同样,当加法和减法同时出现在表达式中时,也按照从左到右出现的顺序处理每个运算符。

    字符串连接运算符(&)不是算术运算符,但是就其优先级而言,它在所有算术运算符之后,而在所有比较运算符之前。Is运算符是对象引用的比较运算符,它并不比较对象或对象的值,而只判断两个对象引用是否引用了相同的对象。

    数据类型转换ASC函数

    Dim MyNumber

    MyNumber = Asc("A") '返回 65。

    MyNumber = Asc("a") '返回 97。

    MyNumber = Asc("Apple") '返回 65。Chr函数

    Dim MyChar

    MyChar = Chr(65) '返回 A。

    MyChar = Chr(97) '返回 a。

    MyChar = Chr(62) '返回 >。

    MyChar = Chr(37) '返回 %。CBool函数

    Dim A, B, Check

    A = 5: B = 5 ' 初始化变量。

    Check = CBool(A = B) ' 复选框设为 True 。

    A = 0 ' 定义变量。

    Check = CBool(A) ' 复选框设为 False 。CInt函数

    Dim MyDouble, MyInt

    MyDouble = 2345.5678 ' MyDouble 是 Double。

    MyInt = CInt(MyDouble) ' MyInt 包含 2346。

    输入输出函数Msgbox输出函数

    Dim MyVar

    MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")

    ' MyVar 包含 1 或 2,这取决于单击的是哪个按钮。InputBox输入函数

    Dim Input

    Input = InputBox("输入名字")

    MsgBox ("输入:" & Input)

    类型判断函数IsNull函数

    Dim MyVar, MyCheck

    MyCheck = IsNull(MyVar) ' 返回 False。

    MyVar = Null ' 赋为 Null。

    MyCheck = IsNull(MyVar) ' 返回 True。

    MyVar = Empty ' 赋为 Empty。

    MyCheck = IsNull(MyVar) ' 返回 False。IsDate函数

    Dim MyDate, YourDate, NoDate, MyCheck

    MyDate = "October 19, 1962": YourDate = #10/19/62#: NoDate = "Hello"

    MyCheck = IsDate(MyDate) ' 返回 True。

    MyCheck = IsDate(YourDate) ' 返回 True。

    MyCheck = IsDate(NoDate) ' 返回 False。IsNumeric函数

    Dim MyVar, MyCheck

    MyVar = 53 '赋值。

    MyCheck = IsNumeric(MyVar) ' 返回 True。

    MyVar = "459.95" ' 赋值。

    MyCheck = IsNumeric(MyVar) ' 返回True。

    MyVar = "45 Help" ' 赋值。

    MyCheck = IsNumeric(MyVar) ' 返回 False。IsArray函数

    Dim MyVariable

    Dim MyArray(3)

    MyArray(0) = "Sunday"

    MyArray(1) = "Monday"

    MyArray(2) = "Tuesday"

    MyVariable = IsArray(MyArray) ' MyVariable 包含 "True"。IsEmpty函数

    Dim MyVar, MyCheck

    MyCheck = IsEmpty(MyVar) ' 返回 True。

    MyVar = Null ' 赋为 Null。

    MyCheck = IsEmpty(MyVar) ' 返回 False。

    MyVar = Empty ' 赋为 Empty。

    MyCheck = IsEmpty(MyVar) ' 返回 True。

    字符串处理函数Len函数

    Dim MyString

    MyString = Len("VBSCRIPT") 'MyString 包含 8。LTrim函数

    Dim MyVar

    MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。

    MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。

    MyVar = Trim(" vbscript ") 'MyVar 包含 "vbscript"。Rtrim函数

    Dim MyVar

    MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。

    MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。

    MyVar = Trim(" vbscript ") 'MyVar 包含 "vbscript"。Trim函数

    Dim MyVar

    MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。

    MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。

    MyVar = Trim(" vbscript ") 'MyVar 包含 "vbscript"。Split函数

    test=Split(userinfo,”,”) ‘userinfo中包含“username,password”,则test(0)=“username”,test(1)=“password”

    时间处理函数Date函数

    Dim MyDate

    MyDate = Date ' MyDate 包含当前系统日期。Day函数

    Dim MyDay

    MyDay = Day("October 19, 1962") 'MyDay 包含 19。Month函数

    Dim MyVar

    MyVar = Month(Now) ' MyVar 包含与当前月对应的数字。Year函数

    Dim MyDate, MyYear

    MyDate = #October 19, 1962#

    MyYear = Year(MyDate) ' MyYear 包含 1962。Hour函数

    Dim MyTime, MyHour

    MyTime = Now

    MyHour = Hour(MyTime)Minute函数

    Dim MyVar

    MyVar = Minute(Now)Second函数

    Dim MySec

    MySec = Second(Now)Now函数

    MyVar = Now ' MyVar 包含当前的日期和时间。Time函数

    Dim MyTime

    MyTime = Time ' 返回当前系统时间。

    语句逻辑结构If …then

    Sub FixDate()

    Dim myDate

    myDate = #2/13/95#

    If myDate < Now Then myDate = Now

    End SubIf…then…elseif …

    Sub ReportValue(value)

    If value = 0 Then

    MsgBox value

    ElseIf value = 1 Then

    MsgBox value

    ElseIf value = 2 then

    Msgbox value

    Else

    Msgbox "数值超出范围!"

    End IfSelect Case

    Dim Color, MyVar

    Sub ChangeBackground (Color)

    MyVar = lcase (Color)

    Select Case MyVar

    Case "red" document.bgColor = "red"

    Case "green" document.bgColor = "green"

    Case "blue" document.bgColor = "blue"

    Case Else MsgBox "选择另一种颜色"

    End Select

    End SubDo…loop

    Sub ChkFirstWhile()

    Dim counter, myNum

    counter = 0

    myNum = 20

    Do While myNum > 10

    myNum = myNum - 1

    counter = counter + 1

    Loop

    MsgBox "循环重复了 " & counter & " 次。"

    End SubFor...Next

    For...Next语句用于将语句块运行指定的次数。在循环中使用计数器变量,该变量的值随每一次循环增加或减少。

    Sub DoMyProc50Times()

    Dim x

    For x = 1 To 50

    MyProc

    Next

    End Sub

    关键字Step用于指定计数器变量每次增加或减少的值。在下面的示例中,计数器变量j 每次加2。循环结束后,total的值为2、4、6、8和10的总和。

    Sub TwosTotal()

    Dim j, total

    For j = 2 To 10 Step 2

    total = total + j

    Next

    MsgBox "总和为 " & total & "。"

    End Sub

    Exit For语句用于在计数器达到其终止值之前退出For...Next语句。因为通常只是在某些特殊情况下(例如在发生错误时)要退出循环,所以可以在If...Then...Else语句的True语句块中使用Exit For 语句。如果条件为False,循环将照常运行。For Each...Next

    For Each...Next循环与 For...Next循环类似。For Each...Next不是将语句运行指定的次数,而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。

    例如:定义一个数组,数组中存放5个员工的编号,其中只有一个编号为空。

    需要编写For each循环,对每个变量进行判断:

    如果找到该信息,就退出循环,并把编号为空的数组元素所在的位置打印出来。

    Dim myArray(4),count

    For count = 0 To 4

    myArray(count) = InputBox ("请输入员工编号")

    Next

    count = 0

    For Each i In myArray

    If i = "" Then

    MsgBox "数组中第" & count + 1 & "个员工编号为空"

    Exit For

    End If

    count = count+1

    Next

    VBScript过程函数

    在VBScript中,过程被分为两类Sub过程和Function过程。Sub 过程

    Sub无返回值,输出过程需在Sub过程内完成。

    Sub username()

    username= InputBox("请输入用户名。", 1)

    MsgBox "用户名为:"&username

    End Sub

    Call username()Function 过程

    可以返回结果,返回数据赋值给Function过程名。

    Function addcalc(a,b)

    result = a+b

    addcalc= result

    End Function

    test=addcalc(1,2)

    Msgbox test

    文件操作文本文件操作

    VBScript对文件操作使用FileSystemObject对象完成。FileSystemObject对象提供了大量的属性、方法和事件,来处理文件夹和文件。

    创建FileSystemObject对象:

    Set fso = CreateObject ("Scripting.FileSystemObject")

    文本文件读取:

    Option Explicit

    Const ForReading = 1

    Const ForWriting = 2

    Const ForAppending = 8

    Dim fso, file, msg

    Set fso = CreateObject ("Scripting.FileSystemObject")

    Set file = fso.OpenTextFile (“c:\UFT_file\testdata.txt", ForReading)

    Do While Not file.AtEndOfStream

    msg = file.ReadLine

    MsgBox msg

    Loop

    file.Close

    Set file = Nothing

    Set fso = Nothing

    文本文件写:

    Function WriteLineToFile

    Const ForReading = 1, ForWriting = 2

    Dim fso, fp

    Set fso = CreateObject ("Scripting.FileSystemObject")

    Set fp = fso.OpenTextFile ( "c:\UFT_file\testfile.txt", ForWriting, True)

    fp.WriteLine "Hello world!"

    fp.WriteLine "VBScript is fun!“

    fp.Close

    set fso=nothing

    set fp=nothing

    End Function

    WriteLineToFileExcel文件访问

    创建Excel对象:Set xlApp = CreateObject ("Excel.Application"),通过调用Excel对象的方法和属性来操作Excel文件。

    Excel读案例:

    Dim xlApp, xlFile, xlSheet

    Dim iRowCount, iLoop, numAdd

    Set xlApp = CreateObject ("Excel.Application")

    Set xlFile = xlApp.Workbooks.Open ("c:\login.xls")

    Set xlSheet = xlFile.Sheets("Sheet1")

    iRowCount = xlSheet.usedRange.Rows.Count

    For iLoop = 1 To iRowCount

    numAdd = xlSheet.Cells(iLoop,1)

    MsgBox numAdd

    Next

    xlFile.Close

    xlApp.Quit

    Set xlSheet = Nothing

    Set xlFile = Nothing

    Set xlApp = Nothing

    展开全文
  • Excel VBS编程 命令详细介绍 详解

    千次阅读 2016-11-07 19:51:52
    s = LoadUTF8("D:\ansoft\yang\script1.vbs") s = Replace(s, "磁芯外半径", Text1.Text) SaveUTF8 s, "D:\ansoft\yang\script1.vbs" End Sub Pirvate Sub Sub1() 'C:\Data.exe 到 C:\Data.txt Open "C:\...
    Sub xjdx()
        Dim FileName, SheetName, Text, ExcelApp, ExcelBook, ExcelSheet
        
        FileName = "D:/Book1.xls"
        SheetName = "新建表"
        Text = "Hello QTP ! 你好, QuickTestProfessional !"
        Set ExcelApp = CreateObject("Excel.Application")
        Set ExcelBook = ExcelApp.Workbooks.Open(FileName)
        Set ExcelSheet = ExcelBook.Sheets.Add '插入工作表
        Set ExcelSheet = ExcelBook.Sheets.Item(SheetName) '获得指定工作表
        Set sSheet = ActiveWorkbook.Sheets("原始数据") '获得活动工作表
        sSheet.Activate '使某工作表活动
        Cells.Clear '清楚表格内容和数据
        Cells.ClearContents
        n = inputSheet.UsedRange.Rows.Count '获得活动行数
        ' *************** 对数据表的操作 ***************
        For i = 1 To ExcelBook.Sheets.Count
            If ExcelBook.Sheets(i).Name = SheetName Then
                ExcelApp.DisplayAlerts = False
                ExcelBook.Sheets(i).Delete '删除工作表
                ExcelApp.DisplayAlerts = True
                Exit For
            End If
        Next
        ExcelSheet.Name = SheetName '重命名工作表
        ' *************** 对文字的操作 ***************
        ExcelSheet.Cells(1, 2) = Text
        ExcelSheet.Range("B2", "B20").Value = Text
        ExcelSheet.Cells(1, 2).Font.Name = "Verdana" '设置字体
        ExcelSheet.Cells(1, 2).Font.Size = 25 '设置字号
        ExcelSheet.Cells(1, 2).Font.Color = RGB(0, 0, 255) '设置字体颜色
        ExcelSheet.Cells(2, 2).Font.Bold = True '文字加粗
        ExcelSheet.Cells(3, 2).Font.Italic = True '文字倾斜
        ExcelSheet.Cells(4, 2).Font.Underline = True '文字加下划线
        ExcelSheet.Cells(5, 2).Font.Strikethrough = True '文字加删除线
        ExcelSheet.Cells(6, 2).Characters(2, 2).Font.Superscript = True '设定文字上标
        ExcelSheet.Cells(7, 2).Characters(2, 2).Font.Subscript = True '设定文字下标
       ' *************** 对单元格的操作 ***************
        ExcelSheet.Columns("B").ColumnWidth = 40 '设置列宽
        ExcelSheet.Columns("B").AutoFit '自动调整列宽
        ExcelSheet.Range("B11").RowHeight = 40 '设置行高
        ExcelSheet.Rows(11).Rows.AutoFit '自动调整行高
        ExcelSheet.Range("B8", "D8").Merge '合并单元格,水平方向     ExcelSheet.Range("B18", "B19").Merge '合并单元格,垂直方向
        ExcelSheet.Range("B8", "D8").Borders.Color = RGB(0, 255, 0) '设定单元格边框颜色
        ExcelSheet.Range("B12").Interior.Color = RGB(255, 0, 0) '设置单元格背景色
        ExcelSheet.Cells(9, 2).WrapText = True '自动换行
        ExcelSheet.Cells(10, 2).HorizontalAlignment = 3 '设置水平对齐,1常规,2靠左,3居中,4靠右
        ' 5填充,6两端对齐,7跨列居中,8分散对齐
        ExcelSheet.Cells(11, 2).VerticalAlignment = 1 '设置垂直对齐,1靠上,2居中,3靠下
        ' 4两端对齐,5分散对齐
        ExcelSheet.Range("B14").Borders(1).LineStyle = 1 '设置左边框样式
        ExcelSheet.Range("B14").Borders(2).LineStyle = 2 '设置右边框样式
        ExcelSheet.Range("B14").Borders(3).LineStyle = 3 '设置上边框样式
        ExcelSheet.Range("B14").Borders(4).LineStyle = 4 '设置下边框样式
        ExcelSheet.Range("B15").ClearContents '清除单元格内容
        ExcelSheet.Range("B16").Formula = "=1+10" '设置单元格公式
        ExcelSheet.Range("B17").AddComment ("Hello" & vbLf & "QTP") '插入批注
        ExcelSheet.Range("B17").Comment.Visible = True '显示批注
        ExcelSheet.Range("B17").ClearComments '清除批注,与删除批注效果相同
        ExcelSheet.Range("B17").Comment.Delete '删除批注,与清除批注效果相同
        ExcelSheet.SaveAs("D:\Book2.xls") '另存为
        ExcelBook.Save
        ExcelBook.Close
        ExcelApp.Quit
        Set ExcelBook = Nothing
        Set ExcelApp = Nothing
        SystemUtil.CloseProcessByName "Excel.exe" '如果仍有Excel.exe进程,可使用这句关闭进程
        If Err.Number > 0 Then
        MsgBox Err.Description
        End If
        
        ExcelApp.DisplayAlerts = False ‘关闭兼容性检查
        ExcelBook = ExcelApp.Workbooks.Add ‘新建Excel
        ExcelSheet = ExcelBook.ActiveSheet ‘激活第一个表
        ExcelSheet.Columns(“A:E”).AutoFit() ‘设置A到E列自动调整列宽
        ExcelBook.SaveAs(“D:\Book2.xls”,FileFormat:=Excel.XLFileFormat.xlAddIn) ‘文件另存为
    End Sub
    
    Function trimL(ByVal s As String)
        Do While (Left(s, 1) = " ")
            s = Right(s, Len(s) - 1)
        Loop
        trimL = s
    End Function
    Function trimR(ByVal s As String)
        Do While (Right(s, 1) = " ")
            s = Left(s, Len(s) - 1)
        Loop
        trimR = s
    End Function
    Function trim(ByVal s As String)
        trim = trimR(trimL(s))
    End Function
     
     
    Sub SaveUTF8(ByVal Text As String, ByVal FileName As String)
        Dim oStream             As ADODB.Stream
     
        Set oStream = New ADODB.Stream
        oStream.Open
        oStream.Charset = "UTF-8"
        oStream.Type = adTypeText
        oStream.WriteText Text
        oStream.SaveToFile FileName, adSaveCreateOverWrite
        oStream.Close
    End Sub
     
    Function LoadUTF8(ByVal FileName As String)
        Dim oStream     As ADODB.Stream
         
        Set oStream = New ADODB.Stream
        oStream.Open
        oStream.Charset = "UTF-8"
        oStream.LoadFromFile FileName
         
        LoadUTF8 = oStream.ReadText()
         
        oStream.Close
    End Function
     
    '调用很简单'
    Private Sub Command2_Click()
        Dim s As String
         
        s = LoadUTF8("D:\ansoft\yang\script1.vbs")
        s = Replace(s, "磁芯外半径", Text1.Text)
        SaveUTF8 s, "D:\ansoft\yang\script1.vbs"
    End Sub
     
     
    Pirvate Sub Sub1() 'C:\Data.exe 到 C:\Data.txt
        Open "C:\Data.exe" For Binary As #1
        Open "C:\Data.txt" For Binary As #2
        Dim i As Byte
        Do While Not EOF(1)
            Get #1, , i
            Put #2, , i
        Loop
        Close #1
        Close #2
    End Sub
    
    函数 CInt() Integer CLng() Long CSng() Single CBbl() Double     '类型转换
    'vbs中的struct
    Type dmT
        je As Long
        dm As Long
    End Type  
    'Type 不能在对象模板中定义 所以必须插入一个公共模块定义  并且要使用public关键字定义
    Public Type dmT
        je As Long
        dm As Long
    End Type
    ' 设置 单元格 格式
    Range("a1").Select  '选定单元格
    Selection.NumberFormatLocal = "0.00_ "          '这是设成2位小数  最后必须要有一个空格
    Selection.NumberFormatLocal = "0.00% "          '这是设成2位百分比
    Selection.NumberFormatLocal = "0%"               '这是设成整百分百小数
    'VB函数缺省
    Function f(ByVal Param1 As Long, Optional ByVal Param As Long = 10) As Long
    

    vb中如何判断变量的数据类型

    TypeName 函数 返回一个 String,提供有关变量的信息。语法TypeName(varname)必要的 varname 参数是一个 Variant,它包含用户定义类型变量之外的任何变量。说明TypeName 所返回的字符串可以是下面列举的任何一个字符串:返回字符串变量对象类型类型为 objecttype 的对象Byte位值Integer整数Long长整数Single单精度浮点数Double双精度浮点数Currency货币Decimal十进制值 Date日期String字符串布尔布尔值Error错误值Empty未初始化Null无效数据Object对象Unknown类型未知的对象 Nothing不再引用对象的对象变量如果 varname 是一个数组,则返回的字符串可以是任何一个后面添加了空括号的可能的返回字符串(或 Variant)。例如,如果 varname 是一个整数数组,则 TypeName 返回 "Integer()"。

    展开全文
  • QTP脚本语言vbs的编写操作规范教程,文档中的图文解说非常详细,很适合初学者和QTP能力的进阶提升
  • VBS编程教程

    2007-08-13 21:48:38
    VBS编程教程VBS编程教程Very Good!!!
  • 包括PowerDesigner 16.5版本所有模型的元对象信息,编写vbs脚本操作模型对象时可以查找模型对象有哪些属性和方法。
  • vbs编程工具

    2013-05-09 13:06:00
    vbs工具
  • Vbs编程高手学习手册

    2010-09-11 14:14:40
    这个是vbs脚本编程简明教程,是个pdf文件;有例子给你学,效果蛮不错的
  • VBS编程教程.zip

    2013-03-29 14:28:17
    VBS编程教程.zip
  • VBS编程工具vbsedit

    2011-07-27 13:26:35
    小巧而强悍的VBScript 与JScript 编辑工具。  支持语法高亮、参数提示以及自动完成关键字功能!支持调试以及监视变量功能!支持动态查看帮助文件
  • 表白神器(VBS编程

    万次阅读 多人点赞 2018-08-17 22:48:59
    步骤二、点击【文件】→【另存为】→【文件名:后缀改为 .vbs (示例:Play.vbs)】→【保存类型:所有文档】 注:  代码中  “ ”  内的 中文 均可以修改为你喜欢的内容。 效果如下图所示: ...

    步骤一、打开记事本,输入以下代码(建议直接复制):

    msgbox "我有一件事想跟你说",vbQuestion,"在吗"
    msgbox"自从第一天遇见你,我便对你难以忘怀了!"
    CreateObject("SAPI.SpVoice").Speak"能够遇见你,对我来说是最大的幸福。有了你,我的生活变的绚丽多彩,有了你,世界变得如此迷人。你是我的世界,我的世界是你。我愿意用自己的一生,好好的陪着你,爱着你。陪你到你想去的地方,用心走完我们人生的余下的旅程。在未来的日子里,也许什么都无法确定,但唯一可以确定的是,我爱的人是你,无论现在还是将来,我想我这里都会是你最温暖的港湾,都是为你遮风避雨的城墙。无论狂风,无论暴雨。我都会陪在你的身旁,让你不会感到丝毫的担心和惶恐。"
    msgbox"亲爱的,我喜欢你"
    dim i
    do while i<1
    Select Case msgbox("做我女朋友好吗?",68,"请郑重的回答我!")
    Case 6 i=1
    Case 7 msgbox"你再考虑一下呗"
    end Select
    loop
    msgbox"爱你一万年!"

    步骤二、点击【文件】→【另存为】→【文件名:后缀改为   .vbs  (示例:Play.vbs)】→【保存类型:所有文档】

    注:

            代码中    “   ”   内的中文均可以修改为你喜欢的内容。

    效果如下图所示:

    最后,希望大家告白成功!!

    展开全文
  • VBS编程教程 (第6篇)

    2021-05-22 01:18:30
     如果你想要继续学习vbs或通过它更详细的了解编程在转型可以跟我继续学习, 但因为我的假期结束所以更新的时间可能会比较慢, 请大家原谅.初步计划如下: 进阶篇: 变量的深入讨论 | |----变量类型 | |----变量的...
  • vbs编程和自动化测试

    2011-09-21 09:38:59
    很好的vbs编程实例和vbs脚本教程,学完后可以看看自动化测试的文档,对自动化测试的学习很有帮助。。。
  • bat编程和vbs编程入门

    千次阅读 2018-09-29 14:23:36
    先看看bat(批处理文件)中一些简单的命令 ...-----------------------------------------------------欢迎关注,共同进步---------------------------------------------------还有1999G+编程资料等你拿
  • Vbs脚本编程简明教程

    2015-11-29 23:25:00
    Vbs脚本编程简明教程 Vbs脚本编程简明教程之一 为什么要使用Vbs 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你...
  • 这是一本英文版的关于VBS编程的书籍,内容丰富,通俗易懂,对脚本编程的学习很有帮助!
  • Vbs脚本编程

    2017-11-14 21:03:31
    —为什么要使用Vbs?   在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一件事情就是打开...
  • VBS编程教程 (第2篇)第二篇:我真没想到, 第一次的作业竟然有人不会.看来要讲的非常非常细致才行, 嗯, 今天讲各种"量"和基本运算先说常量, 这个比较简单.什么是常量呢, 常量就是其值不可变化的量.常量分为两种:第一...
  • 通过vbs实现查找人气最高的用户,不仅仅针对于微博,其他应用也可以, 通过累计计算昵称出现率最高,实现人气最高的计算。
  • VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版)。 其语言类似Visual Basic(VB)

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,643
精华内容 2,657
关键字:

vbs编程