导出到EXEL

charliechen

     winform.static.text="体统正在倒出数据，请耐心等待！"
     fsys.createDir("\res\Export\")
     path=fsys.getCurDir()
     exce1=com.CreateObject("Excel.Application");
      var book = exce1.WorkBooks.Open( path+"\res\datatemple.xlsx")
                exce1.visible=ture;
                exce1.DisplayAlerts = False;
                sheet1 = book.sheets(1);
                sheet1.Cells(1,1).value2=winform.combobox.selText+"-"+ winform.combobox2.text
                for i=1;winform.listview.count;1{
                      for t=1;winform.listview.columnCount;1{
                          sheet1.Cells(i+2,t).value2=winform.listview.getItemText(i,t)
                          }
                      }               
                exce1.ActiveWorkbook.Save();
                exce1.ActiveWorkbook.close();
               winform.static.text="数据已经成功导出到EXEL表格！"
               fsys.copy(path+"\res\datatemple.xlsx" ,path+"\res\Export\"+winform.combobox.selText+"-"+ winform.combobox2.text+".xlsx")
               process.explore(path+"\res\Export")

charliechen

我做了一个窗体程序，需要将窗体中的LISTVIEW内容导入到一个已有的EXEL表格中，我试着编写了这个程序，跑完后，发现表格内容没有改变。请帮忙看一下，谢谢

charliechen

我想知道为什么表格内容更改后没有保存住。有高手能指点一下吗，谢谢！

charliechen

辅助说明一下：datatemple.xlsx是我已经设置好格子宽度，高度和颜色的表格，只需要将LISTVIEW的内容填写到相应的datatemple.xlsx格子里，然后将这个表格拷贝到path+"\res\Export\"+winform.combobox.selText+"-"+ winform.combobox2.text+".xlsx这个文件。

我心飞翔1995

charliechen 发表于 2018-4-19 11:58
辅助说明一下：datatemple.xlsx是我已经设置好格子宽度，高度和颜色的表格，只需要将LISTVIEW的内容填写到 ...

首先，你发帖的位置错了，这里是方分享成品源码的，不是解决问题的；
其次，你与其不断补充说明，还不如直接发完整的工程出来，大家都省事，也方便别人学习一下；
最后，搜索论坛是个好习惯，listview导出数据到Excel表格 -
http://bbs.aardio.com/forum.php? ... hlight=%B1%ED%B8%F1
PS：1、2点在发帖说明里都有提示，你不应该忽视那些红色文字。

vikon

参考你的代码直接用com操作，发现没什么问题，参写进去excel也能copy过去覆盖。没发完整调试代码过来不好说什么了。另外，excel操作标准库里面有封装了一个com.excel可以试一下。虽然直接用com createobject也是没问题的，也差不多。

1. 
   
2.         exce1=com.CreateObject("Excel.Application");
   
3.         var book = exce1.WorkBooks.Open( "aa.xlsx")
   
4.         exce1.visible=ture;
   
5.     exce1.DisplayAlerts = False;
   
6.     sheet1 = book.sheets(1);
   
7.     sheet1.Cells(1,1).value2="cccccc"
   
8.     exce1.ActiveWorkbook.Save();
   
9.     exce1.ActiveWorkbook.close();
   
10.     fsys.copy("aa.xlsx","bb.xlsx")

复制代码