Sub asdf() Set cnn1 = New ADODB.Connection cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\data.mdb" cnn1.ConnectionTimeout = 5 cnn1.Open Range(Cells(3, 3), Cells(Range("a60000").End(xlUp).Row, Range("iv2").End(xlToLeft).Column)).ClearContents For t = 3 To Range("a60000").End(xlUp).Row For i = 2 To Range("iv2").End(xlToLeft).Column rr = Cells(1, i) arr = Cells(2, i) sqlstr = "SELECT " & arr & " from " & rr & " where 指标='" & Cells(t, 1) & "';" Set rs1 = New ADODB.Recordset rs1.Open sqlstr, cnn1, adOpenKeyset, adLockOptimistic Cells(t, i).CopyFromRecordset rs1 Next Next End Sub
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\data.mdb"
cnn1.ConnectionTimeout = 5
cnn1.Open
Range(Cells(3, 3), Cells(Range("a60000").End(xlUp).Row, Range("iv2").End(xlToLeft).Column)).ClearContents
For t = 3 To Range("a60000").End(xlUp).Row
For i = 2 To Range("iv2").End(xlToLeft).Column
rr = Cells(1, i)
arr = Cells(2, i)
sqlstr = "SELECT " & arr & " from " & rr & " where 指标='" & Cells(t, 1) & "';"
Set rs1 = New ADODB.Recordset
rs1.Open sqlstr, cnn1, adOpenKeyset, adLockOptimistic
Cells(t, i).CopyFromRecordset rs1
Next
Next
End Sub