找回密码
 加入
搜索
查看: 1272|回复: 2

如何实现数据导出呢?

[复制链接]
发表于 2009-3-11 08:56:49 | 显示全部楼层 |阅读模式
本帖最后由 nxbigdaddy 于 2010-1-31 10:27 编辑

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


请大师们指点指点
发表于 2009-3-11 09:05:21 | 显示全部楼层
从LISTVIEW导出
[au3]#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[0]
                        _ExcelWriteCell($oExcel, $excarray[$x], $y + 2, $x)
                Next
        Next
EndIf[/au3]
 楼主| 发表于 2010-1-31 10:26:55 | 显示全部楼层
谢谢楼上,非常感谢!!!!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-7-1 11:44 , Processed in 0.072331 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表