搜索
查看: 1650|回复: 5

导出到EXEL

[复制链接]

77

主题

196

帖子

1134

积分

新手入门

积分
1134
发表于 2018-4-19 11:19:25 | 显示全部楼层 |阅读模式
     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")
好久没来了
回复

使用道具 举报

77

主题

196

帖子

1134

积分

新手入门

积分
1134
 楼主| 发表于 2018-4-19 11:20:23 | 显示全部楼层
我做了一个窗体程序,需要将窗体中的LISTVIEW内容导入到一个已有的EXEL表格中,我试着编写了这个程序,跑完后,发现表格内容没有改变。请帮忙看一下,谢谢
好久没来了
回复

使用道具 举报

77

主题

196

帖子

1134

积分

新手入门

积分
1134
 楼主| 发表于 2018-4-19 11:21:50 | 显示全部楼层
我想知道为什么表格内容更改后没有保存住。有高手能指点一下吗,谢谢!
好久没来了
回复

使用道具 举报

77

主题

196

帖子

1134

积分

新手入门

积分
1134
 楼主| 发表于 2018-4-19 11:58:59 | 显示全部楼层
辅助说明一下:datatemple.xlsx是我已经设置好格子宽度,高度和颜色的表格,只需要将LISTVIEW的内容填写到相应的datatemple.xlsx格子里,然后将这个表格拷贝到path+"\res\Export\"+winform.combobox.selText+"-"+ winform.combobox2.text+".xlsx这个文件。
好久没来了
回复

使用道具 举报

4

主题

63

帖子

478

积分

二级会员

Rank: 3Rank: 3

积分
478
发表于 2018-4-19 14:01:13 | 显示全部楼层
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点在发帖说明里都有提示,你不应该忽视那些红色文字。
回复

使用道具 举报

0

主题

24

帖子

168

积分

一级会员

Rank: 2

积分
168
发表于 2018-4-19 14:24:56 | 显示全部楼层
参考你的代码直接用com操作,发现没什么问题,参写进去excel也能copy过去覆盖。没发完整调试代码过来不好说什么了。另外,excel操作标准库里面有封装了一个com.excel可以试一下。虽然直接用com createobject也是没问题的,也差不多。

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

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

手机版|未经许可严禁引用或转载本站文章|站长邮箱|aardio.com|aardio官方社区 ( 皖ICP备09012014号 )

GMT+8, 2018-10-23 08:41 , Processed in 0.109375 second(s), 23 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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