注册 登录
编程论坛 VB6论坛

VB如何将ListView1里面数据导入excel

事业男儿 发布于 2016-01-28 00:09, 5615 次点击
只有本站会员才能查看附件,请 登录
8 回复
#2
yuk_yu2016-01-28 09:48


 供参考!!

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
#3
新手VB2016-01-28 09:54
回复 楼主 事业男儿
下载学习
#4
新手VB2016-01-28 10:23
回复 2楼 yuk_yu
如何才可以实现,请详细讲解下,谢谢!
#5
yuk_yu2016-01-28 10:38
你太厉害了!!!
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编辑过]

#6
新手VB2016-01-28 11:38
回复 5楼 yuk_yu
yuk_yu老师您好!
可否在导出时,弹出保存路径对话框,再次感谢!
#7
新手VB2016-01-28 11:48
回复 楼主 事业男儿
请问组合框下拉赋值如何做到的,刚学习VB,以前都是用的access
感觉VB很难学。
#8
新手VB2016-01-28 11:52
回复 楼主 事业男儿
请问在查询时可否做到把三个条件联系起来,一个条件就显示这个条件的数据,二个条件就显示这二个满足的数据,三个就显示这三个都满足的数据......
#9
事业男儿2016-01-28 13:33
回复 8楼 新手VB
我在网上找的源码,有不懂的你在论坛里提问吧!注意一个问题,那就是你的电脑里必 需安装原版offc , 否则会提示你 MsgBox "pls install Microsoft Excel."意思是请你安装 Microsoft Excel    再次敢谢5楼的yuk_yu朋友。

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

1