VBS教程：函数-CreateObject 函数

站长资源 2024/12/26 佚名

45 1538 45

DDR爱好者之家 Design By 杰米

CreateObject 函数

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

CreateObject(servername.typename [, location])

参数

servername

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

typename

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

location

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

说明

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

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

Dim ExcelSheet
Set 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.Version
End Function

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

VBS,CreateObject

DDR爱好者之家 Design By 杰米

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

DDR爱好者之家 Design By 杰米

评论“VBS教程：函数-CreateObject 函数”

暂无评论...

P70系列延期，华为新旗舰将在下月发布

3月20日消息，近期博主@数码闲聊站透露，原定三月份发布的华为新旗舰P70系列延期发布，预计4月份上市。

而博主@定焦数码爆料，华为的P70系列在定位上已经超过了Mate60，成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢？
根据目前爆料的消息来看，华为P70系列将推出三个版本，其中P70和P70 Pro采用了三角形的摄像头模组设计，而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智，但辨识度绝对拉满。

更新日志

2024年12月26日

VBS教程：函数-CreateObject 函数

参数

说明

VBS教程：函数-CByte 函数

VBS教程：函数-CCur 函数

评论“VBS教程：函数-CreateObject 函数”

P70系列延期，华为新旗舰将在下月发布

更新日志

友情链接