| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 900 人关注过本帖
标题:路径问题
只看楼主 加入收藏
花花公子
Rank: 4
等 级:贵宾
威 望:10
帖 子:609
专家分:0
注 册:2007-6-7
收藏
 问题点数:0 回复次数:1 
路径问题

If Messagebox("确定要导出数据吗?",4+32,"提示")=6

SELECT 表名
COPY TO (PUTFILE( "excel文件名:","123","xls")) xl5

eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open('d:新建文件夹 (5)\123.xls')

endif

怎么保持那导出和打开EXCEL的路径的一郅....

搜索更多相关主题的帖子: 路径 eole xls EXCEL Excel 
2007-10-30 10:36
花花公子
Rank: 4
等 级:贵宾
威 望:10
帖 子:609
专家分:0
注 册:2007-6-7
收藏
得分:0 
己經解決

If Messagebox("确定要导出数据吗?",4+32,"提示")=6
select 表名
mm=(PUTFILE( "excel文件名:","123","xls"))
COPY TO '&mm' xl5
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open('&mm')
.
.
.
eole.ActiveWorkbook.Save
eole.Workbooks.Close
eole.Quit
endif

[glow=150,blue,2] 该珍惜的,好好把握;该舍去的,不再留恋; 该执著的,永不怨悔;该面对的,绝不逃避。[/glow]
2007-10-31 10:09
快速回复:路径问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.044766 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved