新手遇到点小问题，请大家帮助纠错，谢谢了 - VFP论坛

得分:0

是的，就是這麽做測試，期間就會學到東西，瞭解很多事。新手尤其需要這種積纍過程，貪圖“一句指令”是永遠學不到這些的，經驗多了，再轉向那些高級一句指令，至少到時出了問題也能大致猜到是什麽方面原因引起的。看到那些求得高級指令就像獲得屠龍術般千恩萬謝的人，就知道他們絕對成不了事，都不是學編程的，是學操作的。

授人以渔，不授人以鱼。

第 22 楼

得分: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')

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

第 23 楼

得分: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 编辑 ]

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