供参考！！

For j = 1 To ListView1.ListItems.Count
           K = .Range("A65536").End(xlUp).Row
           .Cells(K + 1, 1) = ListView1.ListItems(j)
        For z = 2 To ListView1.ColumnHeaders.Count
                .Cells(K + 1, z) = ListView1.ListItems(j).SubItems(z - 1)
       Next z
   Next j

下载学习

如何才可以实现，请详细讲解下，谢谢！

你太厉害了！！！
Private Sub Command6_Click()

    If Me.ListView1.ListItems.Count = 0 Then Exit Sub
    = False
    On Error Resume Next
    Dim xlApp As Object, Wb As Object, i&, j&, T&, h&, ar()
    T = ListView1.ListItems.Count
    h = ListView1.ColumnHeaders.Count
    If T = 0 Then Exit Sub
    DoEvents
    Set xlApp = CreateObject("Excel.Application")
    If xlApp Is Nothing Then
        MsgBox "pls install Microsoft Excel."
        Exit Sub
    Else

        ReDim ar(1 To T + 1, 1 To h)
        For i = 1 To h
            ar(1, i) = ListView1.ColumnHeaders(i)
        Next
        For i = 2 To T + 1

            ar(i, 1) = ListView1.ListItems(i - 1)
            For j = 1 To h
                ar(i, j + 1) = ListView1.ListItems(i - 1).SubItems(j)
            Next
        Next
        Set Wb = xlApp.Workbooks.Add
        Wb.ActiveSheet.Range("A:AA").NumberFormatLocal = "@"
        Wb.ActiveSheet.Range("a1").Resize(UBound(ar), h) = ar
        Wb.ActiveSheet.Cells.Columns.AutoFit
        xlApp.Visible = True
        Set Wb = Nothing
        Set xlApp = Nothing
         = True
    End If

End Sub

[此贴子已经被作者于2016-1-28 10:53编辑过]

yuk_yu老师您好！
可否在导出时，弹出保存路径对话框，再次感谢！

请问组合框下拉赋值如何做到的，刚学习VB，以前都是用的access
感觉VB很难学。

请问在查询时可否做到把三个条件联系起来，一个条件就显示这个条件的数据，二个条件就显示这二个满足的数据，三个就显示这三个都满足的数据......

我在网上找的源码，有不懂的你在论坛里提问吧！注意一个问题，那就是你的电脑里必 需安装原版offc ， 否则会提示你 MsgBox "pls install Microsoft Excel."意思是请你安装 Microsoft Excel    再次敢谢5楼的yuk_yu朋友。

[此贴子已经被作者于2016-1-28 13:35编辑过]