phpcreatobject技巧_CreateObject函数创建对象方法vba编程源代码解释

文章目录 [+]

本节先容一个很有用的函数CreateObject，此函数十分强大，大略理解便是创建工具的意思。

什么是创建工具呢？

phpcreatobject技巧_CreateObject函数创建对象方法vba编程源代码解释

可以想象成新建了一个实物，如一间屋子，一个虚拟人物等等。

（图片来自网络侵删）

同理，也可以创建一个软件运用。
如Excel软件或Word软件文档。

也便是说，这个函数供应了一种可能，一种可以创造万物的可能，本来没有的东西，通过这个函数就可以创建出来了。
彷佛是上帝的工具，上帝说有人，就有了人，上帝说有天，就有了天。

那么问题来了，如何利用这个函数创建工具呢？

如上图所示，CreateObject()函数语法构造

根据语法可以创建相应的工具类型，然后再根据工具的属性方法或事宜来进行编程。
这便是此函数的神奇之处。

这样有一个好处，便是本来没有的工具，我们创建了一个，然后进行了一些工具操作，再把这个工具抹除，什么都不留下，但是，我们会得到一个结果，一个想要的结果。

神奇之处犹如来过这个天下，走了之后，创造什么都不存在，觉得没有来过一样。

详细看一下示例代码：

'利用CreateObject函数创建事情薄Dim xApp As Excel.Application '定义Excel运用工具Dim xBook As Excel.Workbook '定义事情薄工具Dim xSheet As Excel.Worksheet '定义事情表工具Set xApp = CreateObject("Excel.Application") '创建并引用Excel运用工具Set xBook = xApp.Workbooks.Add '添加事情薄Set xSheet = xBook.Worksheets(1) '引用事情表1xSheet.Cells(1, 1).Value = "这是一个新事情表！ "xApp.Application.ScreenUpdating = FalsexApp.Application.DisplayAlerts = FalsexBook.SaveAs ThisWorkbook.Path & "\newBook.xlsx"xApp.Visible = TruexBook.Close '关闭事情薄xApp.Application.ScreenUpdating = TruexApp.Application.DisplayAlerts = TruexApp.Quit '退出Excel运用Set xApp = NothingSet xBook = NothingSet xSheet = Nothing

上述代码实行之后，电脑中发生了一些变革，在当前事情目录中新建了一个newBook.xlsx事情薄，并且在第一个事情表中留下一段话"这是一个新事情表！
"，之后悄无声息地关闭Excel运用。

有什么用途呢？

最大用途在于可以跨表操作，便是在A事情薄中操作B事情薄的内容，而且神不知鬼不觉。

这只是CreateObject()函数的个中一个利用方法，严格来说，它可创建很多不同的运用工具。

如下表所示：

CreateObject() 创建如下工具：

creatobject("adodb.recordset") 数据库记录操作

creatobject("scripting.filesystemobject") 文件操作

creatobject("wscript.shell") SHELL creatobject("wscript.network") 网络操作

createobject("microsoft.xmlhttp") XMLHTTP ，远程获取文件用的

createobject ("msxml2.xmlhttp.4.0") 同上

createobject("adodb.stream") 数据流传输