| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3387 人关注过本帖, 1 人收藏
标题:现在的VFP9.0支持excel2003格式的导出和导入吗,
取消只看楼主 加入收藏
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
结帖率:82.14%
收藏(1)
已结贴  问题点数:20 回复次数:5 
现在的VFP9.0支持excel2003格式的导出和导入吗,
现在的VFP9.0支持excel2003格式的导出和导入吗?我的vfp9.0好像就不支持,比如 …… xls 8 就出现错误提示。是不是不支持呀?还是我vfp9.0有问题?
搜索更多相关主题的帖子: excel2003 
2011-06-09 20:52
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
没人回答,自己顶上去。
2011-06-10 08:48
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
回复 3楼 panpende
那该怎么办,每次都要事先转换一下就太麻烦了。有没有什么解决的办法呀?
2011-06-10 12:08
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
追问: 能不能用代码来进行事先转换?
       用代码先转换,然后再导入行不行?代码该怎么写呢?
2011-06-10 17:32
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
回复 7楼 TonyDeng
用Ole打开Excel(任何版本均可)文件
谢谢,我要进一步学习一下了。
2011-07-04 16:08
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
给你段vfp直接读取EXCEL文件的示例。

M_File=GETFILE('xls','订单文件')
IF M_File=""
   =MESSAGEBOX("请选择待导入的收订单文件!",0+48,"提示")
   RETURN
ELSE
   IF JUSTEXT(M_FILE)#"XLS"  &&获得文件扩展名
      =MESSAGEBOX("您选择的不是EXCEL文档!",0+48,"提示")
      RETURN
   ENDIF
ENDIF
USE 图书订单表
ZAP
myexcel=createobject('excel.application')      &&创建一个对象
myexcel.visible=.f.&&不可见
bookexcel=myexcel.workbooks.open(M_File)      &&打开指定文件
o_SheetName=myexcel.application.ActiveSheet.Name    &&获取当前激活工作表的名称
UsedRange =bookexcel.worksheets(o_SheetName).UsedRange     &&返回工作表中可使用的区域,UsedRange表的属性
o_rows=UsedRange.rows.count    &&汇总行
o_cols=UsedRange.columns.count    &&汇总列
IF o_rows<=1
   =MESSAGEBOX("待导入数据行数太少,请检查!",0+16,"提示")
ELSE
   FOR i=2 TO o_rows
       m1=myexcel.cells(i,1).value      &&书号     
       m2=myexcel.cells(i,2).value      &&书名      
       m3=myexcel.cells(i,3).value      &&出版社
       m4=myexcel.cells(i,4).value      &&作者      
       m5=myexcel.cells(i,5).value      &&定价
       m6=myexcel.cells(i,6).value      &&数量
       APPEND BLANK
       REPLACE 书号 WITH m1,书名 WITH m2,出版社 WITH m3,作者 WITH m4,定价 WITH m5,数量 WITH m6
    ENDFOR
ENDIF
myexcel.workbooks.close    &&关闭工作区
myexcel.quit    &&关闭excel
brow
2011-07-05 08:25
快速回复:现在的VFP9.0支持excel2003格式的导出和导入吗,
数据加载中...
 
   



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

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