gpt4 book ai didi

VBS教程:函数-CreateObject 函数

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 32 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS教程:函数-CreateObject 函数由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

CreateObject 函数 。

创建并返回对 Automation 对象的引用.

CreateObject(servername.typename [, location]) 。

参数

servername 。

必选项。提供对象的应用程序名称.

typename 。

必选项。要创建的对象类型或类.

location 。

可选项。对象所在的网络服务器将被创建.

说明

Automation 服务器至少提供一种对象类型。例如,字处理应用程序可以提供应用程序对象、文档对象和工具条对象.

要创建 Automation 对象,将 CreateObject 函数返回的对象赋值给某对象变量:

?
1
2
Dim ExcelSheet
Set ExcelSheet = CreateObject( "Excel.Sheet" )

上述代码启动创建对象(在此实例中,是 Microsoft Excel 电子表格)的应用程序。对象创建后,就可以在代码中使用定义的对象变量引用此对象。在下面的示例中,可使用对象变量、ExcelSheet 和其他 Excel 对象,包括 Application 对象和 Cells 集合访问新对象的属性和方法。例如:

?
1
2
3
4
5
6
7
8
9
10
' 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 实例的版本号

?
1
2
3
4
5
Function GetVersion
  Dim XLApp
  Set XLApp = CreateObject( "Excel.Application" , "MyServer" )
  GetVersion = XLApp.Version
End Function

错误发生在指定的远程服务器不存在或无法找到.

最后此篇关于VBS教程:函数-CreateObject 函数的文章就讲到这里了,如果你想了解更多关于VBS教程:函数-CreateObject 函数的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

32 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com