首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 如何把数据窗口中的数据导入EXCEL中 [已结贴,结贴人:qing20]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • qing20
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 揭贴率：
    发表于：2008-08-21 10:56:28 楼主
    如何把数据窗口中的数据导成EXCEL放到桌面上,最好有个例子.越详细给的越多.试过对了就结贴
    100  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • SummerHeart
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-08-21 11:05:571楼 得分:20
    最简单的用saveas(),若要求非常严格，用dw2excel(第三方工具)呵呵
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • hangzhou6274
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 11:21:522楼 得分:5
    或者自己调用ole写也可以，网上例子一搜一大堆
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • eviler
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 11:31:353楼 得分:5
    呵呵，资源区我有上传的有，可以看看
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • byfq
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 11:33:394楼 得分:5
    楼上说的都对，结贴吧。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • sdhylj
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 4
    发表于：2008-08-21 11:37:495楼 得分:5
    saveas()
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • ybkenan
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 12:08:156楼 得分:5
    如果要求不嚴格，就用Saveas().要求嚴格點，就自己調用OLE（百度搜一下就知道怎麼用）。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • kenryu3450
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 12:43:287楼 得分:0
    引用 6 楼 ybkenan 的回复:
    如果要求不嚴格，就用Saveas().要求嚴格點，就自己調用OLE（百度搜一下就知道怎麼用）。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • AFIC
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 18

      3
    发表于：2008-08-22 11:07:148楼 得分:5
    google搜dw2xls
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • kingover
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-22 15:54:439楼 得分:30
    给你一个函数，希望对你有帮助
    自定义函数uf_dwexcel

    //返回值1:成功；0:用户取消；-1:程序错误
    //只有列标题为中文时，excel列标题才是中文。所以应该用AS将列名改为中文。

    integer li_rtn
    string ls_name,ls_pathname

    if dwc_datawin.RowCount() < 1 then
    MessageBox("提示信息","请先检索数据再导出至Excel!")
    return -1
    end if

    li_rtn=GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")

    if li_rtn=1 then
    IF FileExists(ls_pathname) then
    li_rtn = MessageBox("保存", ls_pathname+"已经存在,是否覆盖?",Exclamation!, YesNo!)
    end if
    if li_rtn=1 then
    //当文件存在用户选择覆盖，或是文件本就不存在时。注意变量li_rtn
    li_rtn=dwc_datawin.SaveAs(ls_pathname,Excel!,true)
    if li_rtn=1 then
    MessageBox("提示信息","导出数据成功!")
    else
    MessageBox("错误信息","导出数据失败!")
    return -1
    end if
    else
    return 0
    end if
    else
    return 0
    end if
    return 1


    在需要使用的地方用这函数uf_dw2excel(dw)
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • kingover
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-22 15:56:0710楼 得分:0
    给你一个函数，希望对你有帮助
    自定义函数uf_dw2excel
    在需要使用的地方用这函数uf_dw2excel(dw)
    刚才少打了个数字，呵呵
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • ybkenan
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-22 17:34:5411楼 得分:5
    暈。樓上的不就是一個saveas嗎？用得著寫函數？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • starsong
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-22 18:12:1012楼 得分:5
    dw2xls
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • lllyyymmm
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-23 12:05:5413楼 得分:10
    这种问题已经问过好多遍了，你找一下以前贴子就有很多了，老是浪费分数
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved