我目前只能给这么多分，如果解决了在加一倍，关于一个错误

Question

excelapplication1.ActiveSheet这是整形，而sheet.cells[i,j]='' 这又是何意思？

Answer 1

sheet:=excelapplication1.ActiveSheet;  
改成
sheet:=(excelapplication1.ActiveSheet)as _workSheet;  
试试？

Answer 2

excelapplication1.ActiveSheet  我取的是当前已经激活的excel中的sheet，
而sheet.cells[i,j]则是具体第i行第j列的表格的值
有问题吗？我就是想判断表格是否为空（无内容）

Answer 3

先谢yxjjx(孤行者)　和Nicky_he(尼克)　二位了
sheet:=(excelapplication1.ActiveSheet)as _workSheet;  是否就是激活当前工作页