vba如何提取sql里面的数据

会用vb数据库连接，你在vba种直接使用vb的方式即可

可参考下面的代码

－－－－－－－－－－－－－－－－－－

Public Function ConnectDB()

cs = "Provider=Microsoft.jet.OLEDB.4.0Data Source="

'conn.ConnectionString = CS &app.Path &"\Score5.mdb"

conn.ConnectionString = cs &"F:\Scview\score4.mdb"

'cs="Provider=SQLOLEDBServer=JF705Database=mytestUid=sapwd=lmlm"

'cs="Provider=SQLOLEDBServer=JF705\ETSERVERDatabase=mytestUid=sapwd=lmlm"

'cs="Provider=SQLOLEDBServer=JF705Database=mytestUid=sa1pwd=lmlm"

'conn.ConnectionString=cs

conn.Open

'response.write conn

'response.end

End Function

高级筛选不就好了

 Sub shaixuan() 

Sheets("Sheet4").rows("2:10000").clearcontents

sheets("sheet1").Range("A:X").AdvancedFilter Action:=xlFilterCopy, criteriarange:=Worksheets("Sheet3").Range("D1:Dn"), copytorange:=Worksheets("sheet4").Range("A2"), unique:=False  'D1:Dn改为实际范围

MsgBox "筛选完毕"

End Sub

---