（2）创建Automation对象

CreateObject Function
创建并返回一个对 Automation 对象 的引用（即该对象的句柄）。
CreateObject(servername.typename [, location])
    servername ，The name of the application providing the object.
    typename ，The type or class of the object to create.
    location ，The name of the network server where the object is to be created.

提供Automation对象的应用程序称为Automation server ，每个server提供至少一种对象。
例如，一个字处理应用程序可能提供 application object，document object 和 toolbar object。

例子：
Dim ExcelSheet
'使用set语句引用CreateObject函数创建的Automation 对象。
Set ExcelSheet = CreateObject("Excel.Sheet")
' 使 Excel 在整个 Application 对象中都可见。
ExcelSheet.Application.Visible = True
' 将一些文本放入工作表的第一个单元格中。
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' 保存工作表。
ExcelSheet.SaveAs "C:\TEST.XLS"
' 关闭 Excel，使 Quit 方法处于 Application 对象中。
ExcelSheet.Application.Quit
' 释放对象变量。
Set ExcelSheet = Nothing

在Microsoft Windows 应用程序编程中，OLE Automation (随后被微软改名Automation ，虽然旧词条保持广泛使用），是一个基于Component Object Model (COM) 的进程间通信机制。COM  本来是打算给脚本编程语言使用——起初是Visual Basic ，但是现在已经被运行在Windows上的各个语言使用。Automation提供一个基础结构，以供名为Automation控制器的应用程序可以访问和操作（比如设置属性和调用方法）  由其他应用程序共享的Automation 对象。它取代了 Dynamic Data Exchange (DDE)，一个用于应用程序控制另一个应用程序的机制。与DDE一样， Automation中， Automation控制器是 "client" ，输出 Automation对象的应用程序是"server"。

我没有学过C，delphi和VB也忘差不多了～
说啥概念都知道一点，但是啥都不精通～
所以，我只想知道怎么使用 ...
applba 发表于 2012-1-19 15:30