Counta()函数的使用
count1= Application.CountA(Sheets(1).Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(1, 11)))
上面的语句在vba 计算第1行第1列至11列的非空的单元格的个数，但是在visual studio 使用，怎么改！请指点！谢谢！ Counta()函数
[解决办法]
你在VB6中，习惯用 On Error Resume Next 的，是吧！
至少，在你的这个 Sub/Function 中，一定是用上了的！
正确写法是：
x = xlsApp.WorksheetFunction.CountA(ckBook.Sheets(1).Range(ckBook.Sheets(1).Cells(2, 1), ckBook.Sheets(1).Cells(2, 11)))
或者：
with ckBook.Sheets(1)
x = xlsApp.WorksheetFunction.CountA(.Range(.Cells(2, 1), .Cells(2, 11)))
end with
