vb6,如何将listview数据导出到excel????

[草履虫程序员]

想请教各位，如何将vb6里的listview里显示的数据导出到excel。

[草履虫程序员]

求人指导！希望有做过的人指点！

[一如既往哈]

这个似乎没有捷径的。如果listview的数据来源于数据库，那就用excel直接导入数据库即可，否则只能一个一个导入.....

[草履虫程序员]

自己解决，谢谢楼上的。

[一如既往哈]

引用 3 楼 ruan1978 的回复:

自己解决，谢谢楼上的。

咋解决的，分享分享呗......

[草履虫程序员]

我晚上贴上代码。

[蓝海]

这个问题，其实可以用vfp解决： 也就是用 vb 通过引用 fpole.ocx 调用其内部函数来实现 VB 执行 VFP 语句。 具体用到的 vfp 语句其实应该也就是 3 条，分别如下

Private Sub Command1_Click()
    Dim sCmd    As String
    Dim iRes    As Long
    
    sCmd = "CREATE DBF c:\LS.DBF (CODE C(20), NAME C(50))"
    iRes = fpolectl1.FoxDoCmd(sCmd, "i")
    
    If iRes = 0 Then
        sCmd = "Insert Into c:\ls (code, name) values (" + Chr(34) + "code-1" + Chr(34) + ", " + Chr(34) + "name-1" + Chr(34) + ")"
        iRes = fpolectl1.FoxDoCmd(sCmd, "i")
        
        If iRes = 0 Then
            sCmd = "copy to c:\xlsfile1 xl5"
            iRes = fpolectl1.FoxDoCmd(sCmd, "i")
            MsgBox iRes
        End If
    End If
    
End Sub

只是是否需要 VFP6R.DLL, VFP6CHS.DLL 等相关 DLL 注册，或甚至 VFP 运行环境就不得而知了，需要进一步验证。

[赵4老师]

将数据写到一个纯文本文件.csv中，半角逗号间隔列，回车换行间隔行，在Excel里面读此.csv文件即可。