offset,application—VBA应用

应用APPLICATION时候

dim wk as workbook

set wk = application.workbooks.open()

可以在后台打开EXCEL文件，并在前台显示

dim wk as workbook

dim app as new application

set wk = app .workbooks.open()

可以在后台打开EXCEL文件，并且不在前台显示,这样操作有个弊病，就是当读入的文件数据量很大的时候，操作的时间会比前台显示这个文件的操作时间多几百倍

application并不支持断点调试的，所以不可以在相关行设断点

offset的应用(可以通过给定的这个单元格，到达当前sheet的任一个位置)

range(“A1”).offset(row,col) ——————从某一个单元格开始通过参数前后左右的移动

range(“A1”).offset(row,col).row ————-移动后到达的单元格所在的行数

range(“A1”).offset(row,col).address ———移动后到达的单元格的绝对地址

range(“A1”).offset(row,col).col—————移动后到达的单元格所在的列数

判断给定的单元格是否存在，我一般用 not isobject来判断，如果单元格存在，则不走下一步，若不存在，则走下一步

如：

if (not isobject(range(“AA”)) THEN

msgbox “该单元格不存在”

else

msgbox “该单元格存在”

END IF

还要注意的是：

如果一个单元格里面内容为空，这个时候应用Isnumeric，返回false，这个时候我一般配合IIF函数进行组合应用，保证单元格为空时，应用Isnumeric，返回true