vba查询符合条件的数据
时间: 2024-03-12 12:43:28 浏览: 10
你可以使用 VBA 中的 SQL 查询语句来查询符合条件的数据。以下是一个示例代码,供参考:
```
Sub QueryData()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
' 连接数据库,这里以 Access 数据库为例
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\UserName\Documents\Database.accdb"
' 查询符合条件的数据
sql = "SELECT * FROM TableName WHERE Condition = 'Value'"
rs.Open sql, conn
' 将查询结果输出到 Excel 工作表中
Worksheets("Sheet1").Range("A2").CopyFromRecordset rs
' 关闭连接和记录集
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
```
在上面的代码中,你需要将 `Provider` 和 `Data Source` 参数修改为你自己的数据库信息,并将 `TableName` 和 `Condition` 分别替换为你要查询的表名和条件。然后,将查询结果输出到 Excel 工作表中。