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

打开VBA编辑器的两种方式：

Excel → 开发工具 → Visual Basic：打开VBE后，点击插入，选择模块，就可以在该项目下新建一个空白模块。

Excel → 开发工具 → 插入 → 控件 → 右键控件 → 指定宏：可以直接将宏绑定到控件上，然后进行编辑。

进行编写代码前的准备工作：

Visual Basic → 工具 → 引用：引用 Microsoft ActiveX Data Objects 2.x Library，否则运行代码会报“用户定义类型未定义”提示。

Excel中用VBA根据输入的日期从Access数据库中提取相应的数据并插入到Excel表中：

---