| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1712 人关注过本帖
标题:VFP读入EXCEL数据怪问题,求助!!!
只看楼主 加入收藏
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
结帖率:100%
收藏
 问题点数:0 回复次数:1 
VFP读入EXCEL数据怪问题,求助!!!
程序代码:
SET talk off
SET SAFETY off
SELECT 1
USE tab3
zap
myexcel=createobject('excel.application') &&创建一个对象
myexcel.visible=.t.&&不可见
FOR i=1 TO adir(m_file1,"*.xls*")
    strFname = Addbs(SYS(5)+SYS(2003)) + m_file1(i,1)
    bookexcel=myexcel.workbooks.open(strfname)
NEXT
RETURN

这段程序可以相应文件夹下所有的EXCEL文件,但是我在循环里加入一些把数据写入到相应DBF文件的语句后,读完一个EXCEL文件写入数据后就不再打开其他的EXCEL文件了,各位大侠们帮我看看
程序代码:
SELECT 1
USE tab3
zap
myexcel=createobject('excel.application') &&创建一个对象
myexcel.visible=.t.&&不可见
FOR i=1 TO adir(m_file1,"*.xls*")
    strFname = Addbs(SYS(5)+SYS(2003)) + m_file1(i,1)
    bookexcel=myexcel.workbooks.open(strfname)
    SELECT 1
    APPEND BLANK
    REPLACE bh WITH i,mc WITH bookexcel.worksheets("PUB").cells(6,3).value
    sj1=bookexcel.worksheets("表三甲").usedrange.value
    FOR i=7 TO ALEN(sj1,1)-3
        IF TYPE("SJ1(I,5)")<>"N"
           EXIT
        ELSE
           IF sj1(i,5)>0
              APPEND BLANK 
              REPLACE bh WITH sj1(i,1),debh WITH sj1(i,2),mc WITH sj1(i,3),dw WITH sj1(i,4)
              REPLACE sl WITH sj1(i,5),jggr WITH sj1(i,6),pggr WITH sj1(i,7),zjggr WITH sj1(i,8)
              REPLACE zpggr WITH sj1(i,9),grxs WITH sj1(i,10)
           ENDIF 
        ENDIF
    NEXT
NEXT
RETURN

附件.rar (229.18 KB)


[此贴子已经被作者于2017-4-18 18:28编辑过]

搜索更多相关主题的帖子: EXCEL 
2017-04-18 18:24
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
收藏
得分:0 
晕,自己发现了。变量用重复了。
2017-04-18 19:11
快速回复:VFP读入EXCEL数据怪问题,求助!!!
数据加载中...
 
   



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

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