标题:用编程的方法可以做到,打开excel表格,然后另存5.0/95格式的excel文档吗, ...
取消只看楼主
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
结帖率:16.67%
已结贴  问题点数:20 回复次数:7 
用编程的方法可以做到,打开excel表格,然后另存5.0/95格式的excel文档吗,请高手帮忙。tks!
用编程的方法可以做到,打开excel表格,并另存5.0/95格式的excel文档吗,请高手帮忙。tks!
搜索更多相关主题的帖子: excel表格 
2017-03-07 15:23
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
得分:0 
因为我有很多excel表格,需要导入vfp数据库中,但客户给的excel档有很多是带有宏的,我必须手工打开,然后另存为5.0/95格式的excel文档,才能导入vfp中,手工的工作量比较大,希望用编程的方法解决,不知道行不行。tks!
2017-03-07 16:47
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
得分:0 
以下是引用sdta在2017-3-7 17:13:34的发言:

上传EXCEL文件看看,以及要导入的VFP表结构
170230-2.rar (25.41 KB)
bzb.rar (639 Bytes)

170230-2是包装表,bzb是vfp数据库
2017-03-07 17:28
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
得分:0 
以下是引用sdta在2017-3-7 17:34:22的发言:

要导出那些数据
将整个excel导入bzb。dbf中,
bzb.rar (2.24 KB)
,我将包装表另存后,就能导入的
2017-03-07 17:46
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
得分:0 
以下是引用sdta在2017-3-7 18:12:26的发言:

oExcel=CreateObject('Excel.Application')
oExcel.WorkBooks.Open("D:\170230-2.xls")
oExcel.DisplayAlerts = .f.
oExcel.ActiveWorkbook.SaveAs("D:\170230-3.xls",39)
oExcel.DisplayAlerts = .t.
oExcel.Quit
RELEASE oExcel
可以用了,谢谢啊!
2017-03-08 09:55
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
得分:0 
以下是引用jjoojj在2017-3-8 09:55:42的发言:

可以用了,谢谢啊!
又有问题了,以上代码在编译后再win10系统中运行出错,请帮忙看看怎么解决。tks!
未命名.rar (36.83 KB)
2017-04-25 09:48
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
得分:0 
回复 19楼 wangzhiyi
是编译后运行的,错误的结果是无法保存excel档
2017-04-26 09:15
jjoojj
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2014-8-12
得分:0 
回复 21楼 wangzhiyi
不知道什么原因,编译后运行,有2台电脑运行正常,另有3台电脑出错提示
2017-04-26 18:03



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-474827-1-1.html




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

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