| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 265 人关注过本帖
标题:如何从EXCEL文件中采集数据 ?
取消只看楼主 加入收藏
sarge_xp
Rank: 2
等 级:论坛游民
帖 子:122
专家分:13
注 册:2006-4-30
结帖率:58.06%
收藏
已结贴  问题点数:20 回复次数:1 
如何从EXCEL文件中采集数据 ?
table.rar (533 Bytes)


怎样才能把EXCEL中的列L、M、N、S、T、U中的数据采集到同一DBF中 ?
搜索更多相关主题的帖子: 文件 DBF EXCEL 数据 采集 
2025-10-23 21:55
sarge_xp
Rank: 2
等 级:论坛游民
帖 子:122
专家分:13
注 册:2006-4-30
收藏
得分:0 
回复 4楼 wengjl
SET DEFAULT TO C:\TEST
SET TALK OFF
SET SAFETY OFF
CLOSE DATABASES
ADIR(ABC)
? ALEN(ABC)
IF ALEN(ABC)>5
    FOR I=1 TO ALEN(ABC)/5
        IF JUSTEXT(ABC(I ,1))#"XLS" OR !(ISDIGIT(LEFT(ALLTRIM(JUSTFNAME(ABC(I ,1))),1))) &&获得文件扩展名
            ? ABC(I ,1)
            DELETE FILE  ABC(I ,1) RECYCLE
        ENDIF
    ENDFOR
ENDIF


OEXCEL = CREATEOBJECT("EXCEL.APPLICATION")
WITH OEXCEL
    .WORKBOOKS.OPEN(SYS(5) + SYS(2003) +"\"+ALLTRIM(ABC(1,1)))
    .DISPLAYALERTS = .F.
    .ACTIVEWORKBOOK.SAVEAS(SYS(5) + SYS(2003) + "\771.dbf",8)  && 保存为以制表符分隔的文本文件
    .ACTIVEWORKBOOK.CLOSE
    .DISPLAYALERTS = .T.
    .QUIT
ENDWITH


将EXCEL数据转为771.DBF后,数据都被取整了,是不是有些参数没设好 ?
2025-10-29 13:14
快速回复:如何从EXCEL文件中采集数据 ?
数据加载中...
 
   



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

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024841 second(s), 12 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved