VBS教程：函数-CreateObject 函数 _对象

文章插图
CreateObject
函数
创建并返回对
Automation
对象的引用。
CreateObject(servername.typename
[,
location])
参数
servername
必选项。提供对象的应用程序名称。
typename
必选项。要创建的对象类型或类。
location
可选项。对象所在的网络服务器将被创建。
说明
Automation
服务器至少提供一种对象类型。例如，字处理应用程序可以提供应用程序对象、文档对象和工具条对象。
要创建
Automation
对象，将
CreateObject
函数返回的对象赋值给某对象变量：
Dim
ExcelSheetSet
ExcelSheet
=
CreateObject("Excel.Sheet")
上述代码启动创建对象（在此实例中，是
Microsoft
Excel
电子表格）的应用程序。对象创建后，就可以在代码中使用定义的对象变量引用此对象。在下面的示例中，可使用对象变量、ExcelSheet
和其他
Excel
对象，包括
Application
对象和
Cells
集合访问新对象的属性和方法。例如：
'
Make
Excel
visible
through
the
Application
object.ExcelSheet.Application.Visible
=
True'
Place
some
text
in
the
first
cell
of
the
sheet.ExcelSheet.ActiveSheet.Cells(1,1).Value
=
"This
is
column
A,
row
1"'
Save
the
sheet.ExcelSheet.SaveAs
"C:\DOCS\TEST.XLS"'
Close
Excel
with
the
Quit
method
on
the
Application
object.ExcelSheet.Application.Quit'
Release
the
object
variable.Set
ExcelSheet
=
Nothing
在远程服务器上创建一个对象，当
Internet
安全关闭时只能完成。通过传递计算机名到
CreateObject
服务器名的参数，能在远程网络上创建对象。该名称如同共享部份的机器名。例如网络共享名命名为：
"\\myserver\public",
servername
是
"myserver" 。另外,只能指定
servername
使用
DNS
格式或
IP
地址。
以下代码返回运行在命名为"myserver"的远程网络计算机上
Excel
实例的版本号
:
Function
GetVersion
Dim
XLApp
Set
XLApp
=
CreateObject("Excel.Application",
"MyServer")
GetVersion
=
XLApp.VersionEnd
Function
错误发生在指定的远程服务器不存在或无法找到。
InStr
函数
返回某字符串在另一字符串中第一次出现的位置。
InStr([start,
]string1,
string2[,
compare])
参数
start
可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果
start
包含
Null，则会出现错误。如果已指定
compare，则必须要有
start
参数。
string1
必选项。接受搜索的字符串表达式。
string2
必选项。要搜索的字符串表达式。
compare
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。
设置
compare
参数可以有以下值：
常数值描述vbBinaryCompare0执行二进制比较。vbTextCompare1执行文本比较。
返回值
InStr
函数返回以下值：
如果InStr
返回string1
为零长度0string1
为
NullNullstring2
为零长度startstring2
为
NullNullstring2
没有找到0在
string1
中找到
string2找到匹配字符串的位置start
>
Len(string2)0
说明
下面的示例利用
InStr
搜索字符串：
Dim
SearchString,
SearchChar,
MyPosSearchString
="XXpXXpXXPXXP"'
String
to
search
in.SearchChar
=
"P"'
Search
for
"P".MyPos
=
Instr(4,
SearchString,
SearchChar,
1)'
A
textual
comparison
starting
at
position
4.
Returns
6.MyPos
=
Instr(1,
SearchString,
SearchChar,
0)'
A
binary
comparison
starting
at
position
1.
Returns
9.
MyPos
=
Instr(SearchString,
SearchChar)'

VBS教程：函数-CreateObject 函数

推荐阅读

八字中子午对冲

看似不相配，实则很般配，甚至天生一对的星座配对

cs怎么开启添加好友（cs:go怎么加好友)

狗牙花怎么养狗牙花怎么养才能开花?

什么叫骏枣骏枣的图片?

2020年07月19日双鱼座事业爱情运势

函怎么写邀请函怎么写

桂林的水三大特点桂林山水的特点

武汉生育津贴、护理假津贴发放标准2023大全

风暴舞一共多少集风暴舞总集数

能够嫁豪门的女人手掌特征看这3个地方就可以了

武汉积分落户怎么办理(材料+流程）

把图片处理成线稿 ps图片变线稿的几种方法

毕业了想考英语六级怎么办毕业了想考英语四级怎么办

双子座的性格该死吗?

关于杭州川一实验仪器有限公司简述杭州川一实验仪器有限公司

北京八宝咸菜的腌制方法北京八宝咸菜

羊肉怎样去除腥味羊肉怎样去除腥味百度经验

江湖悠悠将财物交给王忠和私吞怎么选,[图文攻略]

两兔一起合财吗属兔和属兔合适吗