VBA应用实例

在这里我记录了常用的技巧。

1、常用引用Excel对象的方法（不完整，不断添加）

Sheets("指定表格名")

ActiveSheet()当前焦点的表格

ActiveWorkBook()当前焦点的工作簿，即Excel文件

下面两行用于引用指定表格

dim ws as Excel.WorkSheet

set  ws= Sheets("指定表格名")

2、Excel中判断是“空”格子

If CStr(Sheets("表格名").Cells(r, c).Value) = "" ThenEnd If

这个好处在在于不受格式影响，问题是经过转换。略显冗余