createobject函数 可以创建excel中的哪些对象

2024-11-29 08:48:42
推荐回答(2个)
回答(1):

可以在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

回答(2):

Dim excelApp As Object
Set excelApp = CreateObject("Excel.APPLICATION")
excelapp.workbooks.add '建立新的workbook
excelapp.activeworkbook.sheets.add after:=excelapp.activeworkbook.sheets(1) '在第一个sheet后建立新的worksheet