论坛 › 已解决问题区 › 如何实现数据导出呢？

nxbigdaddy 发表于 2009-3-11 08:56:49

如何实现数据导出呢？

本帖最后由 nxbigdaddy 于 2010-1-31 10:27 编辑

如何实现数据导出呢？比如导出成excel


请大师们指点指点

大绯狼 发表于 2009-3-11 09:05:21

从LISTVIEW导出
#include <ExcelCOM_UDF.au3>
$excnum = _GUICtrlListView_GetItemCount($ListView1)
If $excnum = 0 Then
        MsgBox(64, "提示", "没有记录可被输出.")
Else
        Local $oExcel = _ExcelBookNew(1)
        For $y = 0 To $excnum
                $excret = _GUICtrlListView_GetItemTextString($ListView1, $y)
                $excarray = StringSplit($excret, "|")
                For $x = 0 To $excarray
                        _ExcelWriteCell($oExcel, $excarray[$x], $y + 2, $x)
                Next
        Next
EndIf

nxbigdaddy 发表于 2010-1-31 10:26:55

:face (36):谢谢楼上，非常感谢！！！！

查看完整版本: 如何实现数据导出呢？