也可以这样,直接改SQL语句读取一列(注意,貌似Excel中读取出来的都是列是这样排列的如,F1,F2,F3....),你想读第几列就写F几objRs.Open "select F1 from [Sheet1$]", objCn, adOpenKeyset, adLockOptimistic' 读第一列读取一行,你可以建Excel文件的时候,在最前一列,加个编号然后objRs.Open "select * from [Sheet1$] where F1 = 1", objCn, adOpenKeyset, adLockOptimistic |