|
Sub a()
Dim cnn, rs As Object, Sql As String, myfile$, i%
myfile = ThisWorkbook.Path & "\数据资料\体验履历.xls"
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.Recordset")
[C6:C8] = ""
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & myfile
Sql = "select 姓名,性别,年龄 from [体验日记$A4:d] where 编号='" & [C5] & "'"
rs.Open Sql, cnn, 1, 1
If rs.RecordCount = 0 Then
rs.Close: Set rs = Nothing
cnn.Close: Set cnn = Nothing
Exit Sub
End If
For i = 0 To 2
Cells(i + 6, 3) = rs.Fields(i)
Next
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
第二问,没看懂,健康随记表格是空的,没有数据。 |
|