| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1078 人关注过本帖, 1 人收藏
标题:新手遇到点小问题,请大家帮助纠错,谢谢了
只看楼主 加入收藏
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
是的,就是這麽做測試,期間就會學到東西,瞭解很多事。新手尤其需要這種積纍過程,貪圖“一句指令”是永遠學不到這些的,經驗多了,再轉向那些高級一句指令,至少到時出了問題也能大致猜到是什麽方面原因引起的。看到那些求得高級指令就像獲得屠龍術般千恩萬謝的人,就知道他們絕對成不了事,都不是學編程的,是學操作的。

授人以渔,不授人以鱼。
2014-02-19 11:08
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
优化了一下:
set defa to ('d:\data')
SET SAFETY OFF
IF used('dylx')
    select dylx
ELSE
     use dylx IN 0
 ENDIF
 zap
 myexcel=CREATEOBJECT("excel.application")
 myexcel.visible=.f.
 FOR  m = 1 to adir(afiles,'*.xlsx')
     findfiles='D:\data\'+afiles[m,1]
     ? findfiles
     mybook=myexcel.workbooks.open("&findfiles")
     usedrange=mybook.worksheets(1).usedrange
     nrows=usedrange.rows.count   
     FOR i=2 to nrows
          m1=myexcel.cells(i,1).value               
          m2=myexcel.cells(i,2).value                 
          m3=myexcel.cells(i,3).value         
          m4=myexcel.cells(i,4).value                  
          m5=myexcel.cells(i,5).value            
          APPEND BLANK        
          REPLACE DATE WITH m1,SELLER WITH m2,BUYER WITH m3,quantity WITH m4,PRODUCT WITH m5
      ENDFOR
       myexcel.workbooks.close
ENDFOR
myexcel.quit
set defa to ('d:\vfp')

相互学习,互相交流,共同提高。
2014-02-19 12:03
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
set defa to ('d:\data')
SET SAFETY OFF
IF used('dylx')
    select dylx
ELSE
     use dylx IN 0
 ENDIF
 zap
 myexcel=CREATEOBJECT("excel.application")
* myexcel.visible=.F.
 FOR  m = 1 to adir(afiles,'*.xlsx')
     findfiles='D:\data\'+afiles[m,1]
     ? findfiles
     mybook=myexcel.workbooks.open("&findfiles")
     usedrange=mybook.worksheets(1).usedrange
     nrows=usedrange.rows.count   
     IF nrows<=1
         MESSAGEBOX(findfiles+"是空表!")
         EXIT
     ENDIF  
     FOR i=2 to nrows
          m1=myexcel.cells(i,1).value               
          m2=myexcel.cells(i,2).value                 
          m3=myexcel.cells(i,3).value         
          m4=myexcel.cells(i,4).value                  
          m5=myexcel.cells(i,5).value            
          APPEND BLANK        
          REPLACE DATE WITH m1,SELLER WITH m2,BUYER WITH m3,quantity WITH m4,PRODUCT WITH m5
      ENDFOR
       myexcel.workbooks.close
ENDFOR
myexcel.quit
set defa to ('d:\vfp')

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

相互学习,互相交流,共同提高。
2014-02-19 15:32
快速回复:新手遇到点小问题,请大家帮助纠错,谢谢了
数据加载中...
 
   



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

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