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

草履虫程序员 2014-12-22 03:06:42
想请教各位,如何将vb6里的listview里显示的数据导出到excel。
...全文
735 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2015-01-08
  • 打赏
  • 举报
回复
将数据写到一个纯文本文件.csv中,半角逗号间隔列,回车换行间隔行,在Excel里面读此.csv文件即可。
蓝海 2015-01-08
  • 打赏
  • 举报
回复
这个问题,其实可以用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 运行环境就不得而知了,需要进一步验证。
草履虫程序员 2015-01-04
  • 打赏
  • 举报
回复
我晚上贴上代码。
一如既往哈 2014-12-23
  • 打赏
  • 举报
回复
引用 3 楼 ruan1978 的回复:
自己解决,谢谢楼上的。
咋解决的,分享分享呗......
草履虫程序员 2014-12-23
  • 打赏
  • 举报
回复
自己解决,谢谢楼上的。
一如既往哈 2014-12-22
  • 打赏
  • 举报
回复
这个似乎没有捷径的。如果listview的数据来源于数据库,那就用excel直接导入数据库即可,否则只能一个一个导入.....
草履虫程序员 2014-12-22
  • 打赏
  • 举报
回复
求人指导!希望有做过的人指点!

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧