Excel中能否想数据库那样写SQL语句查询数据???怎么操作呢?是否只能从数据筛选中弄.

[VB_XP]

请教下Excel中能否想数据库那样写SQL语句查询数据???怎么操作呢?是否只能从数据筛选中弄.我现在想通过用户选择下拉框中的一个值,然后sheet1中出现符合条件的数据

[ChinaOBS]

数据筛选还不够用吗？

[iamyuqing]

xls可以作为数据集使用，而且支持sql标准(具体版本不大清除^_^)，如果熟悉sql server，可以很快上手在xls中使用sql语句，但是注意，xls中有很多sql server的函数无法使用。最好使用标准化的sql，尽量少使用函数，这样可以避免发生错误。

Sub GetQuery()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ";" & _
"Extended Properties=Excel 8.0;"
.Open
End With
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
'Create sql string
sql_str = "select * from [sheet2$] where field1='condition'"
rs.Open sql_str
Sheets(1).CopyFromRecordset rs
rs.Close
cn.Close
End Sub

[jackeyabc]

收藏