机房收费系统—调用Excel表

Dim excelApp As excel.Application      ’Excel对象

Dim exBook As excel.Workbook           ’工作簿  

Dim exSheet As excel.Worksheet         ’工作表
 

因为Excel是以层次结构组织的，所以定义的时候先定义好各层

• 第一层：Application对象------即Excel表本身

• 第二层：workbooks对象集------Excel的工作簿文件

• 第三层：worksheets对象集------即Excel的一个工作表

---

而下面这部分代码是对Excel进行的简单的操作

Set excelApp = CreateObject("excel.application")     ’创建Excel对象
    
    excelApp.Visible = True                          ’显示Excel窗口                                       
	
    excelApp.Caption = "学生查看上机记录"             ’更改Excel标题栏

Set exBook = excelApp.Workbooks.Add            ’新建一个Excel的工作簿

Set exSheet = exBook.Worksheets(1)                   ’设置工作表                                                                                                        

这里的（1）表示的就是当前工作簿的第一页

 Set exSheet = exBook.Worksheets(1)                 

 在这里不仅可以打开Excel表，还可以在指定位置打开
 
 Set exBook = excelApp.Workbooks.Open("C:\Users\gg\Desktop\工作簿1.xlsx")
 Set exSheet = exBook.Worksheets(1)                 

虽然导出Excel表这里没有什么难度，但是从这里我们能知道很多的小细节是应该去注意的地方。