打开excel及新建工作薄
'' 2. Method
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 2.1 CreateObject Method
' 语法:CreateObject(appname.objectType, [servename])
' 解释:appname, 必要, Variant(字符串)。提供该对象的应用程序名。
' objecttype, 必要,Variant。带创建对象的类型或是类。
' servename,可选,Variant。要在其上创建对象的网络服务器名称。
'
' 说明:要创建ActiveX对象,只需将CreateObject返回的对象赋给一个对象变量:
' 例子:Set oExcel = CreateObject("Excel.Application")
' 声明一个对象变量,并使用动态创建方法创建该对象
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
' 1) 使Excel可见
oExcel.Visible = true
' 2) 更改Excel标题栏
oExcel.caption = "