amgloon 发表于 2008-11-5 18:52:47

如何数据写入到Excel

怎么样可以把下图中列表框内的所有数据全部写入到一个Excel文件中？


[ 本帖最后由 amgloon 于 2008-11-6 12:02 编辑 ]

ken0137 发表于 2008-11-5 22:57:36

i can help you
do this

#include <Excel.au3>
Func SW2_FileOut()
        Local $yy,$xx,$qqq,$aInfo,$Columns,$flag
        Local $oExcel = _ExcelBookNew(1)
        WinSetState("Microsoft Excel - ","工作表菜单栏",@SW_DISABLE   )
        _ExcelWriteCell($oExcel, "表名", "A1")       
        $Columns= _GUICtrlListView_GetColumnCount ($ListView2_1);读取listview的列数
        ;列名
        For $xx=1 To $Columns
                $aInfo = _GUICtrlListView_GetColumn($ListView2_1, $xx-1)
                _ExcelWriteCell($oExcel, $aInfo, 2, $xx)
        Next
        ;内容
        For $yy = 3 To _GUICtrlListView_GetItemCount($ListView2_1) + 3               
                For $xx = 1 To $Columns                       
                        $qqq=ControlListView ( "备件管理系统V1.0", "导出EXCEL", 94, "GetText",$yy-3,$xx-1);
                                                 ;使用ControlListView函数取得当前listview的内容
                        _ExcelWriteCell($oExcel, $qqq, $yy, $xx)
                Next
        Next       
        _ExcelBookSaveAs($oExcel, @ScriptDir&"\"&Random(1,1000)&".xls", "xls", 0, 1);输出一个随机的文件名
        WinSetState("Microsoft Excel - ","工作表菜单栏",@SW_ENABLE)
        MsgBox(0,"信息提示","完成",1)
EndFunc

这里的WinSetState函数是为了防止在导出过程中由于鼠标的点击，造成输出excel文件终止而产生错误

[ 本帖最后由 ken0137 于 2008-11-5 23:03 编辑 ]

hhasee 发表于 2009-4-25 09:06:29

参数$ListView2_1没有定义不能调用啊？能写全点不？

zhuxxpt 发表于 2011-11-1 12:15:12

谢谢楼主提供好源码

damoo 发表于 2014-3-23 20:44:29

谢谢楼主分享。

nangua111111 发表于 2014-3-25 20:24:40

{:face (356):}先组合成一个数组，然后集体写入excel
页: [1]
查看完整版本: 如何数据写入到Excel