| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1887 人关注过本帖
标题:EXCL文件转DBF文件的问题
只看楼主 加入收藏
MH8899
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-12-24
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
EXCL文件转DBF文件的问题
如位早上好,本人在使用程序把EXCL转换成DBF文件时,OFFICE是2003版本时是成功的,但在OFFICE2007以上版本时则不成功(发生错误行: .ACTIVEWORKBOOK.SAVEAS(DBFNAME,11) ),代码如下:
FILENAME=allt(thisform.Text2.value)
OEXCEL=CREATEOBJECT("EXCEL.APPLICATION")       && 创建 EXCEL
WITH OEXCEL
   .WORKBOOKS.OPEN(FILENAME)                   && 在 EXCEL 中打开指定的工作簿
   .DISPLAYALERTS=.F.                          && 关闭提示信息
   .WORKSHEETS("SHEET1").SELECT                       && 选中 SHETT1 为当前工作表(1 可改为 "SHEET1")
   R=OEXCEL.SHEETS("SHEET1").USEDRANGE.ROWS.COUNT     && 有数据的行
   C=OEXCEL.SHEETS("SHEET1").USEDRANGE.COLUMNS.COUNT  && 有数据的列
   .CELLS(R,C).SELECT                          && 选中 R 单元到 C 单元的区域
   DBFNAME = FORCEEXT(FILENAME,"DBF")          && 将扩展名 XLS 替换为 DBF
   .ACTIVEWORKBOOK.SAVEAS(DBFNAME,11)          && 保存为 DBF4 格式
   .WORKBOOKS.CLOSE
   .QUIT
ENDWITH

RELEASE OEXCEL




搜索更多相关主题的帖子: 提示信息 OFFICE EXCEL 
2016-09-01 09:29
MH8899
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-12-24
收藏
得分:0 
请问各位高手如何可以解决此问题,谢谢
2016-09-01 09:32
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:10 
以下是引用MH8899在2016-9-1 09:32:09的发言:

请问各位高手如何可以解决此问题,谢谢
传你个txt
EXCL文件转DBF.rar (1.65 KB)
2016-09-01 10:03
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 

坚守VFP最后的阵地
2016-09-01 10:55
MH8899
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-12-24
收藏
得分:0 
两位版主中午好,两各方法都试了,都可以转换成功,非常感谢。
tlliqi版主的程序虽然有点长,但转换字段长度与原文基本一样
sdta版主的程序简短,但转换后字段长度变得很长,每个字段约有100位,虽然不影响使用,若能调整下字段长度就完美了
2016-09-01 12:35
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用MH8899在2016-9-1 12:35:20的发言:

两位版主中午好,两各方法都试了,都可以转换成功,非常感谢。
tlliqi版主的程序虽然有点长,但转换字段长度与原文基本一样
sdta版主的程序简短,但转换后字段长度变得很长,每个字段约有100位,虽然不影响使用,若能调整下字段长度就完美了

代码仅供参考,不足之处自行修改,这样才能不断提高自己的编程水平。

坚守VFP最后的阵地
2016-09-01 13:15
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:391
专家分:896
注 册:2004-11-23
收藏
得分:0 
学习了。
2016-09-03 19:40
快速回复:EXCL文件转DBF文件的问题
数据加载中...
 
   



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

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