请版主帮我看看代码哪出错？

2217918 · 发表于 2011-4-11 13:05

Sub YZBB()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ActiveWorkbook.FullName
strsql = "select f2,f5,f6 from [数据明细$] Where f2='" & Range("D4") & "'and f5=" & Range("B5") & ""
rs.Open strsql, cnn, adOpenKeyset, adLockReadOnly
Range("D5:AT65536").ClearContents
Range("D5").CopyFromRecordset rs
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub

[ 本帖最后由 2217918 于 2011-4-11 19:08 编辑 ]

2217918 · 发表于 2011-4-11 19:08

版主，帮帮我。

2217918 · 发表于 2011-4-11 22:44

版主，帮帮我。

2217918 · 发表于 2011-4-12 09:12

版主，帮帮我。

2217918 · 发表于 2011-4-12 08:48

版主，帮帮我。

dsd999 · 发表于 2011-4-12 09:59

strsql = "select f2,f5,f6 from [数据明细$] Where f2='" & Range("D4") & "'" & "and f5=" & Range("B5") & ""

2217918 · 发表于 2011-4-12 18:12

版主，好像不行，你帮我看看，附件运行没有结果。

2217918 · 发表于 2011-4-12 20:12

再次找版主

2217918 · 发表于 2011-4-13 08:09

再次找版主

dsd999 · 发表于 2011-4-13 09:02

我只是把代码改正确了，没看运行结果。

你的要求是什么？

		自动登录	找回密码
密码			免费注册

[求助] 请版主帮我看看代码哪出错？