发布网友 发布时间:27分钟前
我来回答
共1个回答
热心网友 时间:1分钟前
rs.Open语句似乎缺少了连接,改成: rs.Open "SELECT * FROM [Sheet1$] WHERE Left([身份证号],2)='12", cn 试试。语句中的cn是 ADODB.Connection 用以下代码试了一下, Dim cn As New ADODB.Connection cn.ConnectionString = "Provider=Micros...