CreateObject 函数 使用
时 间:2008-04-03 08:07:37
作 者:钱玉炜 ID:16 城市:江阴
摘 要:CreateObject 函数
正 文:
创建并返回一个对 ActiveX 对象的引用。
语法
CreateObject(class,[servername])
CreateObject 函数的语法有如下部分:
部分 | 描述 |
class | 必需的; Variant (String). 要创建的应用程序名称和类。 |
servername | 可选的; Variant (String). 要在其上创建对象的网络服务器名称。 |
class 参数使用 appname.objecttype 这种语法,包括以下部分:
部分 | 描述 |
appname | 必需的;Variant(字符串)。提供该对象的应用程序名。 |
objecttype | 必需的;Variant(字符串)。待创建对象的类型或类。 |
说明
每个支持自动化的应用程序都至少提供一种对象类型。例如,一个字处理应用程序可能会提供 Application 对象,Document 对象,以及 Toolbar 对象。
要创建 ActiveX 对象,只需将 CreateObject 返回的对象赋给一个对象变量:
'
声明一个对象变量来存放该对象'
的引用。Dim as Object
采用后期绑定方式。Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
上述代码将启动该应用程序创建该对象,在本例中就是创建一个 Microsoft Excel 电子数据表。对象创建后,就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中,可以使用对象变量 ExcelSheet
来访问新建对象的属性和方法,以及访问 Microsoft Excel 的其它对象,包括应用程序对象和单元格集合。
'
设置Application
对象使Excel
可见ExcelSheet.Application.Visible = True
'
在表格的第一个单元中写些文本ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
'
将该表格保存到C:\test.doc
目录ExcelSheet.SaveAs "C:\ TEST.DOC"
'
使用应用程序对象的Quit
方法关闭Excel
。ExcelSheet.Application.Quit
'
释放该对象变量Set ExcelSheet = Nothing
使用 As Object
子句声明对象变量,可以创建一个能包含任何类型对象引用的变量。不过,该变量访问对象是后期绑定的,也就是说,绑定在程序运行时才进行。要创建一个使用前期绑定方式的对象变量,也就是说,在程序编译时就完成绑定,则对象变量在声明时应指定类 ID。例如,可以声明并创建下列 Microsoft Excel 引用:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.A
Access软件网QQ交流群 (群号:483923997)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)