createobject函数 可以创建excel中的哪些对象
发布网友
发布时间：2022-04-23 03:21
共2个回答
热心网友
时间：2023-08-30 04:42
可以在VB里直接用 createobject创建的excel.application对象，
然后用application对象的集合Workbooks的open方法打开excel文件
用workbooks("excel文件名")来引用打开的workbook
然后通过workbook的worksheet集合来引用worksheet。
dim xlsApp as object, xlsWbas object ,xlsWorksheet as object
set xlsapp=createobject("excel.application") '创建excel.application对象
xlsapp.visible=true '显示excel 主界面
xlsapp.workbooks.open("c:\1.xls") '打开c:\1.xls
set xlswb=xlsapp.workbooks("1.xls") '设置xlswb变量引用1.xls 工作簿
msgbox xlswb.name '显示工作薄的名字
set xlsworksheet=xlswb.worksheets(1) '设置xlsworksheet变量引用1.xls 工作簿的第一个工作表
msgbox xlsworksheet.cells(1,1) '显示a1单元格的内容
xlsapp.quit() '关闭excel
热心网友
时间：2023-08-30 04:43
Dim excelApp As Object
Set excelApp = CreateObject("Excel.APPLICATION")
excelapp.workbooks.add '建立新的workbook
excelapp.activeworkbook.sheets.add after:=excelapp.activeworkbook.sheets(1) '在第一个sheet后建立新的worksheet追问除了application外，还有哪些对象可以通过createobject函数创建？createobject函数到底可以创建哪些对象？
追答createobject( ) 函数 : 从类定义或支持 OLE 的应用程序中创建对象。
语法 :CREATEOBJECT(ClassName [, eParameter1, eParameter2, ...])
参数
ClassName : 指定用来创建新对象的类或 OLE 对象。Visual FoxPro 按下面的顺序搜索类或 OLE 对象：
1. Visual FoxPro 基类。
2. 在内存中按加载顺序排列的用户自定义类定义。
3. 当前程序中的类。
4. 用 SET CLASSLIB 打开的 .VCX 类库中的类。
5. 用 SET PROCEDURE 打开的过程文件中的类。
6. 在 Visual FoxPro 程序执行链中的类。
7. Windows 注册表(对 OLE 对象而言)。
可对 ClassName 使用下面语法创建 OLE 对象：
ApplicationName.Class
例如，若要创建 Microsoft Excel 工作表(支持 OLE 自动化)，可用下面的语法：
x = CREATEOBJECT('Excel.Sheet')
当运行这个代码时，启动 Microsoft Excel(如果还没有运行)，并创建一个新的工作表。
一个类库有一个别名。若要用别名来指定类库中的对象，可包含类库别名，后接一个句点号和对象名。
eParameter1, eParameter2, ... :这些可选参数用来把值传给类的 Init 事件过程。当发出 CREATEOBJECT( ) 时执行 Init 事件，并进行对象初始化工作。
返回值类型 : 对象
说明 : 可用 CREATEOBJECT( ) 从类定义或支持 OLE 自动化的应用程序中创建对象，并将对象引用赋给内存变量或数组元素。
由用户自定义类创建对象之前，用户自定义类必须先用 DEFINE CLASS 来创建，或者必须是用 SET CLASSLIB 打开的 .VCX 可视类库中的类。
可用 = 或 STORE 来将对象引用赋给内存变量或数组元素。如果释放指定给内存变量或数组元素的对象，则内存变量或数组元素包含 Null 值。可用 RELEASE 从内存中移去内存变量或数组元素。
