会员登录 用户名： 密码： 登录 新会员注册 [找回密码]
当前位置：编程论坛 >> C/S程序开发专区 >> PB编程论坛 >> 发一个把数据窗口导出到Excel的代码!
首页
中资源
  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 3550 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子 浏览下一篇主题
 * 贴子主题：发一个把数据窗口导出到Excel的代码! 报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 baishui555 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：160
  专家分：10
  提问帖：2/1
  回答帖：2
  总帖数：8
  经验值：66
  注　册：2007-9-26
给baishui555发送一个短消息 把baishui555加入好友 查看baishui555的个人资料 搜索baishui555在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子楼主
发贴心情 

发一个把数据窗口导出到Excel的代码!

这个版块的人好少啊~~~

        //要保存的位置!Session["repmc"]存的是报表的名称
        string HTMLname = "d:\\" + Session["repmc"] + ".htm";
        //动态的给你要保存的文件取你数据窗口中报表的名字
        string XLSname = HttpUtility.UrlEncode(System.Text.Encoding.UTF8.GetBytes(Session["repmc"] + ".xls"));
        //把窗口保存成为HTML的Table格式以便于能所见既所得
        dw.SaveAs(HTMLname, Sybase.DataWindow.FileSaveAsType.HtmlTable);
        //已文件流的形式保存成Excel
        string fullName = HTMLname;
        Response.ClearHeaders();
        Response.BufferOutput = false;
        Response.ContentType = "application/octet-stream";
        Response.AppendHeader("Content-disposition", "attachment;filename=" + XLSname);
        Response.WriteFile(fullName);
        Response.Flush();
        Response.End();

        期待高手的更好方法!

发帖：2007-9-26 14:34:00
  鲜花(0)  鸡蛋(0)
 werty542 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：214
  专家分：0
  提问帖：0/0
  回答帖：0
  总帖数：3
  经验值：56
  注　册：2007-11-8
给werty542发送一个短消息 把werty542加入好友 查看werty542的个人资料 搜索werty542在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第2楼
发贴心情 

反正樓主的方法我沒用過..
PB中轉Excel用ole或直接寫到Excel中,應該好點吧..
发帖：2007-11-8 21:20:00
 xdnice 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：210
  专家分：0
  提问帖：0/0
  回答帖：0
  总帖数：4
  经验值：57
  注　册：2007-8-6
给xdnice发送一个短消息 把xdnice加入好友 查看xdnice的个人资料 搜索xdnice在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第3楼
发贴心情 

crosstab 怎么导出成Excel呀！！
发帖：2007-11-23 10:17:00
 yubinhui 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：210
  专家分：0
  提问帖：0/0
  回答帖：0
  总帖数：1
  经验值：51
  注　册：2007-12-7
给yubinhui发送一个短消息 把yubinhui加入好友 查看yubinhui的个人资料 搜索yubinhui在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第4楼
发贴心情 

发帖：2007-12-7 9:06:00
 lyylxc 美女呀，离线，快来找我吧！
  
  
  等　级：初出江湖
  积　分：200
  专家分：0
  提问帖：0/0
  回答帖：0
  总帖数：1
  经验值：53
  注　册：2007-12-4
给lyylxc发送一个短消息 把lyylxc加入好友 查看lyylxc的个人资料 搜索lyylxc在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第5楼
发贴心情 

问楼主一个问题：
我的程序运行时，有时候图片就不见了。所有图片文件都放在img文件夹中。
发帖：2007-12-11 10:38:00
 whyisgood 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：210
  专家分：0
  提问帖：0/0
  回答帖：0
  总帖数：2
  经验值：53
  注　册：2008-1-17
给whyisgood发送一个短消息 把whyisgood加入好友 查看whyisgood的个人资料 搜索whyisgood在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第6楼
发贴心情 

楼主写的东西一点也看不懂啊
发帖：2008-1-24 9:26:00
 zxz107 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：225
  专家分：0
  提问帖：0/0
  回答帖：3
  总帖数：6
  经验值：55
  注　册：2008-1-25
给zxz107发送一个短消息 把zxz107加入好友 查看zxz107的个人资料 搜索zxz107在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第7楼
发贴心情 

用dw2xls吧，方便·
发帖：2008-1-25 16:37:00
 tomandllj 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：200
  专家分：0
  提问帖：0/0
  回答帖：0
  总帖数：2
  经验值：52
  注　册：2008-3-13
给tomandllj发送一个短消息 把tomandllj加入好友 查看tomandllj的个人资料 搜索tomandllj在PB编程论坛的所有贴子  引用回复这个贴子 回复这个贴子第8楼
发贴心情 

帮不上忙,没导过这么麻烦的,顶下!
发帖：2008-3-13 15:21:00
 bangwenx 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：207
  专家分：0
  提问帖：0/0
  回答帖：1
  总帖数：3
  经验值：53
  注　册：2008-5-15
给bangwenx发送一个短消息 把bangwenx加入好友 查看bangwenx的个人资料 搜索bangwenx在PB编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第9楼
发贴心情 

如果需要我这边有一套完整通用的DW导出到EXCEL的PBL，如果需要和我联系。mail:xingbangwen@sinotrans.com
发帖：2008-5-15 9:36:00
 suxiukai1 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：206
  专家分：0
  提问帖：0/0
  回答帖：1
  总帖数：2
  经验值：52
  注　册：2008-5-29
给suxiukai1发送一个短消息 把suxiukai1加入好友 查看suxiukai1的个人资料 搜索suxiukai1在PB编程论坛的所有贴子  引用回复这个贴子 回复这个贴子第10楼
发贴心情 

OLEObject newoleobject,newoleworkbooks
newoleobject=create OLEObject
if newoleobject.connecttonewobject( "excel.application")<>0 then
 messagebox("提示","OLE链接失败！请联系系统管理员！")
 return
end if
newoleobject.workbooks.add
newoleobject.visible=false
newoleworkbooks=newoleobject.worksheets(1)
newoleworkbooks.cells(1,1).value="申请单号"
newoleworkbooks.cells(1,2).value="三号位"
newoleworkbooks.cells(1,3).value="四号位"
newoleworkbooks.cells(1,4).value="五号位"
newoleworkbooks.cells(1,5).value="六号位"
newoleworkbooks.cells(1,6).value="申请人"
newoleworkbooks.cells(1,7).value="适用机种"
newoleworkbooks.cells(1,8).value="参考"
newoleworkbooks.cells(1,9).value="备注"
long rownumber
for rownumber=1 to dw_1.rowcount( )
 newoleworkbooks.cells(rownumber,1).value=dw_1.getitemstring( rownumber, 1)
 newoleworkbooks.cells(rownumber,2).value=dw_1.getitemstring( rownumber, 2)
 newoleworkbooks.cells(rownumber,3).value=dw_1.getitemdecimal( rownumber, 3)
 newoleworkbooks.cells(rownumber,4).value=dw_1.getitemstring( rownumber, 4)
 newoleworkbooks.cells(rownumber,5).value=dw_1.getitemstring( rownumber, 5)
 newoleworkbooks.cells(rownumber,6).value=dw_1.getitemstring( rownumber, 6)
 newoleworkbooks.cells(rownumber,7).value=dw_1.getitemstring( rownumber, 7)
 newoleworkbooks.cells(rownumber,8).value=dw_1.getitemstring( rownumber, 8)
 newoleworkbooks.cells(rownumber,9).value=dw_1.getitemstring( rownumber, 9)
next
//String   DocName,NameFile   
//  Int   Value     
//  Value=GetFileSaveName("另存为",DocName,NameFile,"xls","Excel文件(*.xls),*.xls")   
//  If   Value=1   Then   
//  Dw_1.SaveAsAscii(DocName,"~t","")   
//  End   If   
//有点小问题
//newoleworkbooks.saveas("d:\系统导出\excelfile.xls")
newoleobject.quit()
newoleobject.disconnectobject( )
destroy newoleobject
destroy newoleworkbooks
//getfilesavename

这样写虽然麻烦，但是比较通用对于没有框架的编程更直接方便

发帖：2008-5-29 10:26:00

本主题贴数14，分页：[上一页] [1] [2] [下一页]
 *快速回复：发一个把数据窗口导出到Excel的代码!  [ 回帖是一种美德 :) ]
会员账号 用户名：    还没注册?    密码：    忘记密码?
内容
  • HTML标签： 不可用
  • UBB标签： 可用
  • 贴图标签： 可用
  • 多媒体标签：可用
  • 表情字符转换：可用
  • 上传图片：不可用
  • 最多15KB
    		•
    点击表情图即可在帖子中加入相应的表情
                                
    邮件回复 显示签名   [Ctrl+Enter直接提交贴子]

    管理选项： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告