'定义从excel程序、工作表、工作簿等对象
dim XL as excel.application '定义excel程序对象变量
dim xlwb as excel.workbook '定义工作表变量
dim xlsts as excel.worksheets '定义工作簿集合变量
dim xlst as excel.worksheet '定义工作簿变量
set XL = getobject("excel.application") '获取excel对象
也可以 set XL = createobject("excel.application") '新建excel对象，后面须附上错误处理方法应对未安装excel的情况
set xlwb = XL.workbook '分配内存
set xlsts = xlwb.sheets '分配内存
set xlst = xlsts(1) '分配内存
也可以 set xlst = activesheet '获取活动工作簿
'A1单元格的几种表示方法：
cells(1,"A") '速度最快
range("A1") '速度其次
[A1] '速度最慢
'如果用 i 表示行号，将 i 嵌入上述表示方法中：
cells(i, "A")
range("A" & i)
'其实列也可以用数字表示，列A的索引就是1，B的索引就是2，以此类推：
cells(1, "A") 与 cells(1, 1) 都表示 "A1"