Excel宏

'定义从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"