按键精灵表格操作模板2

Dim a1

Set a1 = CreateObject("Excel.Sheet")



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



' 通过 Application 对象使 Excel 可见。

a1.Application.Visible = True



' 在工作表的第一个单元中放置文本。

a1. ActiveSheet.Cells(1,1).Value = "这是 A 列第一行"



' 保存工作表。

a1.SaveAs "C:\Users\Administrator\Desktop\2.xls"



' 在 Application 对象中使用 Quit 方法退出 Excel。

a1.Application.Quit



' 释放对象变量。

Set a1 = Nothing