excel可能会出现空行或者空列,判断cells(i,1)和cells(1,i)是否为空,不行。
大家有什么好办法?

解决方案 »

  1.   

    把Excel表当作数据表来读
        strFileName = dirname & filename & ".xls"
        adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strFileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
        adoRecordset.Open "select * from [tow.sheet$] where 塔号 is not null", adoConnection, adOpenKeyset, adLockOptimistic有多少记录多少字段,循环就可以知道了