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