如何将列表框中的查询结果导出到excel?

chinapv

大家好，请问如何将查询结果导出到excel?我的查询结果显示在列表框中,不是通过子窗体显示的。哪位指导下，3Q

lanseqingren

Private Sub Command17_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim I As Integer
    Dim x As Integer
    Dim oExcel As Object
    Dim oBook As Object
strSQL = "SELECT * FROM 数据Data WHERE  查询条件
If strSQL = "" Then Exit Sub
        Set conn = CurrentProject.Connection
        rs.Open strSQL, conn, 1, 3
        If rs.RecordCount = 0 Then rs.Close: Exit Sub
        Set oExcel = CreateObject("Excel.Application")
        Set oBook = oExcel.Workbooks.Add()
        Set xlSheet = oBook.Worksheets(1)
        oExcel.Visible = True
        For I = 0 To rs.Fields.Count - 1
        xlSheet.Cells(1, I + 1).Value = rs.Fields(I).Name
        Next
        xlSheet.Cells(2, 1).CopyFromRecordset rs
        rs.Close
End Sub

chinapv

lanseqingren 太棒了，解决了，非常感谢