可以进行count统计
比如
Dim rs
Set rs=conn.Execute("select count(*) from cdw where dw<>'办公室')
IF rs.Fields(0).Value<>0 Then
   Response.Write "错误有记录不为办公室"
End IF
另外excel也可以像操作Access那样写代码，两者区别仅在于ADODB.Connection的连接字符串(ConnectionString）不同而已。
count是SQL的统计函数用于统计查询有多少条数据,这里conn是ADODB.Connection对象，SQL语句的意思是统计dw不是办公室的记录有多少条，如果返回数据不是0条就证明存在
 


[ 本帖最后由 yms123 于 2010-5-1 21:52 编辑 ]

换几种语句试试
语句1
Dim rs
Set rs=conn.Execute("select * from cdw where dw<>'办公室')
IF Not rs.EOF Then
   Response.Write "错误有记录不为办公室"
End IF

语句2
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from cdw where dw<>'办公室'",1,3
IF rs.reocrdcount<>0 Then
   Response.Write "错误有记录不为办公室"
End IF

可能Excel不支持那种SQL判断，那就只能用笨办法来解决循环遍历整个Excel然后判断。
Dim rs,IsHaveDW
IsHaveDW=False
Set rs=conn.Execute("select * from ckdw")
Do Until rs.EOF
   if rs("DW")<>DW2 Then
      IsHaveDW=True
   End IF
   rs.MoveNext
Loop
If IsHaveDW Then
      response.write "<script language='javascript'>alert ('Excel表中有不是本部门的记录，请修改正确后再上传！');history.go(-3);</script>"
      Response.End
        else
       .....把EXCEL中的全部数据导入到总数据库里的代码....
 end if

[ 本帖最后由 yms123 于 2010-5-2 21:22 编辑 ]