请帮忙，万分感谢! - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请帮忙，万分感谢!

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2408 人关注过本帖， 2 人收藏

标题：请帮忙，万分感谢!

只看楼主加入收藏

andyee

等　级：新手上路
帖　子：90
专家分：0
注　册：2014-2-12

第 31 楼

得分:0

回复 29楼 sdta

版主的意思？不太明白哦

2014-02-14 16:05

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 32 楼

得分:0

可以从网站直接下载数据，保存在DBF表中，这样数据处理更方便。

坚守VFP最后的阵地

2014-02-14 16:15

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 33 楼

得分:0

以下是引用andyee在2014-2-14 16:05:10的发言：

版主的意思？不太明白哦

意思是让你提供下你们下载数据的网站

2014-02-14 16:16

andyee

等　级：新手上路
帖　子：90
专家分：0
注　册：2014-2-12

第 34 楼

得分:0

回复 32楼 sdta

版主，这个貌似有很大的困难。
我们50多家经销商
1.每家人家都有一个网址
2.每家都有一个用户名，密码，用于登陆
3.每家下载的数据格式都不同

所以我觉得，下载和整理，这一步还是需要人工操作的。

2014-02-14 16:40

andyee

等　级：新手上路
帖　子：90
专家分：0
注　册：2014-2-12

第 35 楼

得分:0

现在就差两个步骤不会。。。瓶颈啊

2014-02-14 16:54

b土木丁口

等　级：论坛游侠
帖　子：264
专家分：189
注　册：2013-9-12

第 36 楼

得分:0

路过

2014-02-14 17:19

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 37 楼

得分:0

到CSDN论坛搜索下，上面有这方面的内容

坚守VFP最后的阵地

2014-02-14 17:22

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 38 楼

得分:5

SET PATH TO SYS(5)+SYS(2003)
USE hzb
myeole=CREATEOBJECT("Excel.application")
WITH myeole
    .workbooks.open(GETFILE("xls"))
    .ActiveSheet.UsedRange.select
    .DisplayAlerts = .F.
    .ActiveSheet.UsedRange.select
        .ActiveSheet.SaveAs("e:\temp.dbf",11)
    .quit
ENDWITH
RELEASE myeole
APPEND FROM e:\temp

收到的鲜花

tlliqi 于 2014-02-15 18:17 送鲜花 20朵附言：测试了下可行

相互学习，互相交流，共同提高。

2014-02-15 12:08

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 39 楼

得分:0

上面的代码一次只读取添加一个文件，楼主自己加点代码，1. 将文件夹下的Excel文件名读取出来；2. 然后用一个循环加上面的代码添加到一个表中。
38楼的代码用2003版 Excel测试通过。高版本的Excel VBA 以前没用过，可能不兼容。

[ 本帖最后由 qjbzjp 于 2014-2-15 12:21 编辑 ]

相互学习，互相交流，共同提高。

2014-02-15 12:13

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 40 楼

得分:0

以下是引用qjbzjp在2014-2-15 12:13:26的发言：

上面的代码一次只读取添加一个文件，楼主自己加点代码，1. 将文件夹下的Excel文件名读取出来；2. 然后用一个循环加上面的代码添加到一个表中。
38楼的代码用2003版 Excel测试通过。高版本的Excel VBA 以前没用过，可能不兼容。

高版本的也行
.workbooks.open(GETFILE("xlsx"))&&把xls 改为xlsx

2014-02-15 18:16

快速回复：请帮忙，万分感谢!