| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3692 人关注过本帖
标题:VFP9 关于STRTOFILE()函数
只看楼主 加入收藏
radiofan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:466
专家分:696
注 册:2006-7-30
收藏
得分:7 
以下是引用jsfchqf在2021-1-23 16:08:52的发言:

      
CLEAR
SET TALK OFF
SET SAFETY OFF
M_FILE=GETFILE("XLSX","电子表格")      
cExcel = JUSTFNAME(M_File)
M_FILEPATH=ADDBS(JUSTPATH(M_file))    &&所打开文件所在的文件路径
DBF_FILE=SUBSTR(cexcel,1,LEN(cExcel)-4)
IF M_FILE=" "
    =MESSAGEBOX("请输入待导入的电子子表格文件!",0+48,"提示")
    RETURN
ELSE
    IF JUSTEXT(M_FILE)#"XLS"
        =MESSAGEBOX("你选择的不是EXCEL格式文档!",0+48,"提示")
        RETURN
    ENDIF
ENDIF


cHDR = "YES"   
cSheet = "[sheet1$A:AB]"

cSQL = "SELECT * FROM " + cSheet
cConn = "Provider=Microsoft.ACE.OLEDB.12.0;"+"Extended Properties='Excel 12.0;HDR="+cHDR+";IMEX=1';"+ "Data Source=" + cExcel

    ** EXCEL2003及之前版本
**    cConn = "Provider=Microsoft.Jet.OLEDB.4.0;"+ "Extended Properties='Excel 8.0;HDR="+cHDR+";IMEX=1';"+ "Data Source=" + cExcel
   
    SET DEFAULT TO &M_FILEPATH
    oConn = CREATEOBJECT("ADODB.Connection")
    oConn.Open(cConn)
    oRs = CREATEOBJECT("ADODB.Recordset")
    oRs.Open(cSQL, oConn, 1, 3, 1)
    oRs.MoveFirst

    USE e:\gz\jj_stru

    COPY STRUCTURE TO &M_FILEPATH\&DBF_FILE
    USE &DBF_FILE IN 2
    zap   

cStr = oRs.GetString()
STRTOFILE(cStr, "tmp.txt")
SELECT 2
APPEND FROM tmp.txt DELIMITED WITH TAB
SELECT * FROM &DBF_FILE
oRs.Close
oConn.Close
CLOSE  ALL
RETURN

以是是我的代码
附件是生成的txt文件,工号中出现了空值



还能这么连接,高手!
2021-01-23 19:04
jsfchqf
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-8-19
收藏
得分:0 
回复 10楼 吹水佬
谢谢楼主的帮助,我是菜鸟,能不能给出具体的方法
2021-01-24 07:04
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用jsfchqf在2021-1-24 07:04:12的发言:

谢谢楼主的帮助,我是菜鸟,能不能给出具体的方法

10楼不是说了吗,有问题的列要统一数据类型
试试先将工号列所有数据改为文本格式
或者先用EXCEL另存为文本文件
2021-01-24 15:32
快速回复:VFP9 关于STRTOFILE()函数
数据加载中...
 
   



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

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