从LISTVIEW 导出到EXCEL

charliechen

我做了一个程序将LISTVIEW导出到一个已有的EXCEL里，要求不改变EXCEL表格的行高，宽度，以及颜色。只需要将LISTVIEW的内容填入EXCEL中就好。
我的代码如下：
import win.ui;
import fsys
import com
import process
/*DSG{{*/
mainForm = win.form(text="aardio form";right=410;bottom=619)
mainForm.add(
button={cls="button";text="导出到EXCEL";left=151;top=549;right=260;bottom=589;z=3};
button2={cls="button";text="关闭";left=277;top=548;right=386;bottom=588;z=4};
listview={cls="listview";left=20;top=66;right=388;bottom=518;bgcolor=16777215;edge=1;font=LOGFONT(h=-13;weight=700);fullRow=1;gridLines=1;hscroll=1;vscroll=1;z=1};
static={cls="static";text="欢迎！";left=25;top=19;right=379;bottom=58;font=LOGFONT(h=-24;weight=700);transparent=1;z=2}
)
/*}}*/

mainForm.listview.insertColumn("名称",70)         
mainForm.listview.insertColumn("性别",50)
mainForm.listview.insertColumn("年龄",50)
mainForm.listview.insertColumn("手机",200)

mainForm.listview.addItem({"张三";"男";"28";"124 2346 1234"})
mainForm.listview.addItem({"李哲思";"男";"23";"123 2346 1267"})
mainForm.listview.addItem({"王金";"男";"29";"136 2111 1234"})
mainForm.listview.addItem({"柯伟平";"男";"3";"1344 2556 1034"})
mainForm.listview.addItem({"立马";"男";"25";"124 2326 1235"})
mainForm.listview.addItem({"吴金凤";"女";"22";"127 2006 1124"})
mainForm.listview.addItem({"张玲玲";"女";"27";"124 2355 5554"})

mainForm.button2.oncommand = function(id,event){//关闭窗体
        mainForm.close()
}

mainForm.button.oncommand = function(id,event){//从LISTVIEW导出到EXCEL
    mainForm.static.text="正在导出数据，请耐心等待！"
    fsys.createDir("\res")
        path=fsys.getCurDir()
        exce1=com.CreateObject("Excel.Application");
    var book = exce1.WorkBooks.Open( path+"\res\Data.xlsx")
    exce1.visible=ture;
    exce1.DisplayAlerts = False;
    sheet1 = book.sheets(1);
    sheet1.UsedRange.clear()//清楚表格中旧的数据
    for i=1;mainForm.listview.count;1{//将LISTVIEW中相应的数据赋值给EXCEL的对应格子
                      for t=1;mainForm.listview.columnCount;1{
                          sheet1.Cells(i+3,t).value2=mainForm.listview.getItemText(i,t)
                          }
                      }
     exce1.ActiveWorkbook.Save();
     exce1.ActiveWorkbook.close();
     mainForm.static.text="数据已经成功导出到EXEL表格！"
     process.explore(path+"\res\Data.xlsx")
     
}

mainForm.enableDpiScaling();
mainForm.show();

return win.loopMessage();

我将原文件上传到了云盘，可以下载：https://yunpan.360.cn/surl_yQa2B2RiUIU （提取码：7f00）
问题是我现在运行完程序后，EXCEL表格并没有将LISTVIEW的内容添加进去，请帮忙分析一下，哪里出错了！谢谢

alajia

问题出在你的EXCEL表格文件Data.xlsx，这个EXCEL表格你新建一个，会是一个只有几K的大小文档。然后再写入就正常了。

charliechen

alajia 发表于 2018-4-20 12:40
问题出在你的EXCEL表格文件Data.xlsx，这个EXCEL表格你新建一个，会是一个只有几K的大小文档。然后再写入就 ...

我重新建立了一个EXCEL文档，发现真的可以了，看来是跟这个EXCEL表格有关，因为我这个表格是从别人那里拷贝来的，原表很复杂，我删除了很多的东西，就留下简单的几个格子，可能是原表中有用到公式，所以会不成功。不知道是不是公式的影响呢？

alajia

XLSX是一个压缩的目录，有其规范。可以塞进去很多无用的东西，有可能就是以前的格式、公式什么的，没有完全清除。你如果有时间和精力，也可以把它打开，再用新建正常的做对比，就能查出来了。

nvt303

把这句代码

sheet1 = book.sheets(1);

修改为：

sheet1 = book.sheets(“sheet1");

就可以了。

book.sheets(1)

引用的是Excel表的顺序号，在你的文件中sheets(1)并不是“sheet1”，表隐藏看不到而已，不是导出不成功，所以直接用book.sheets(“sheet1")就可以了。