用vba 写一个查询程序

好的，以下是一个简单的 VBA 查询程序的示例：

首先，打开 Excel 并进入 Visual Basic 编辑器。在“插入”菜单中选择“模块”以创建新模块。在模块中编写以下代码：

Sub QueryData()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim i As Integer

    '连接到数据库
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open

    '执行 SQL 查询语句
    sql = "SELECT * FROM Customers WHERE Country='USA' AND City='New York'"
    Set rs = conn.Execute(sql)

    '将查询结果输出到 Excel 表格中
    For i = 0 To rs.Fields.Count - 1
        Worksheets("Sheet1").Cells(1, i + 1).Value = rs.Fields(i).Name
    Next i

    Worksheets("Sheet1").Range("A2").CopyFromRecordset rs

    '关闭数据库连接
    rs.Close
    conn.Close
End Sub

请确保将上面代码中的数据库文件路径替换为您自己的路径，并且将查询语句替换为您自己的查询语句。

然后，在 Excel 工作表中创建一个名为“Sheet1”的新工作表，并将该工作表设置为活动工作表。在“开发人员”选项卡中选择“宏”，然后选择“QueryData”并点击“运行”。

这将执行查询并将结果输出到“Sheet1”工作表中。请注意，此示例代码仅用于演示目的，您需要根据您的具体需求进行相应的修改才能实现您想要的功能。