上一个帖子在大家的指点下，我总算做了个我所需要的程序。
我试了N次，可以运行并且达到我要的效果。
请哪位大哥帮个忙，解决我以下几个问题：
1.使用zap命令，会有提示窗口，怎么才能不跳出窗口，默认选择“是”
2. for i=2 to nrows， 在这个循环之前，我想做判断行数<=1时，用messagebox（），并且退出循环。 我尝试了N次，都提示嵌套错误。
3.如有发现其他不妥的地方，还请大家直接纠正，谢谢。

if used('dylx') then
select dylx
else
select 0
use dylx
endif
zap
set defa to ('d:\data')
for m = 1 to adir(afiles,'*.xlsx')
    findfiles='d:\data\'+afiles[m,1]
    ? findfiles
    myexcel=CREATEOBJECT("excel.application")
    myexcel.visible=.f.
    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
       myexcel.quit
endfor
       set defa to ('d:\vfp')

1.提示什麽，就針對什麽解決；
2.當nrows<=1時，for循環不會執行，不需判斷，不需退出。

版主，我发现一个问题
只要有一个文件，里面行数=2，就会报错，“date的值不能是 null”
什么是什么情况？

SET SAFETY OFF

m1的值爲null，檢查當時Excel文件中Cell(2,1)的值。

谢谢

我在很多帖子中説過不要隨便執行zap，不再重覆。

我把其中一个文件的内容改成一下这样，就会出错，但是我检查了，第二行的内容都正确的。

恩，牢记的
我现在为了测试我每次抓取数据是否成功，所以每次清空表的内容

你怎麽知道第二行的内容正確？vfp中date字段的數據類型是日期型，有固定的格式，你這個是Excel格式化過呈現給人看的表面形式，用value讀出來的未必是可以轉換爲日期型的格式數據呀。在程序中檢查，把m1的值用messagebox()顯示出來看看。