学习反馈：
*************************************************************
* 用VFP判断E表中数据区域的范围　　　　　　　　　　　　　　　*
* 探测EXCEL表数据区域范围的代码如何写？　　　　　　　　　　 *
* eole=CREATEOBJECT('Excel.application')  &&创建Excel对象   *
* eole.visible=.F.      &&&不显示EXCEL对象                  *
* eole.Workbooks.Open('D:\TEST.XLS')     &&打开文件         *
* 之后，VFP代码如何探测EXCEL表数据区域的范围？              *
* 探知后选中，接着就可以做后续的处理                        *
*************************************************************
eole=CREATEOBJECT('Excel.application')
eole.visible=.T.   &&&&为了观察，使其显示
eole.Workbooks.Open('学校名单.XLS')
****&& 以上是你打開文件的原代碼，然後用以下代碼
*!*    With eole
*!*      .Worksheets("上1").Activate    && 激活到工作表
*!*      kz = 6
*!*      Do While Not (IsEmpty(.Cells(kz, 1).Value))
*!*            && 仍用.Cells(row,col)引用Excel單元格
*!*      EndDo
*!*    Endwith
***-----论坛上TonyDeng的回答是以上注释的代码，以下为调试成功的代码
**********于2012年1月13日星期五完成*************
*----------------------------------------------------------
kg=.t.
eole.Worksheets(1).Activate    && 激活到工作表
kz=3
Do While kg
  eole.worksheets(1).cells(kz,2).select
  dyg=eole.worksheets(1).cells(kz,2).value
*  ? dyg      &&&& ************观察变化用************
  DO case
    CASE VARTYPE(dyg)="C"     &&&&VARTYPE(表对象.CELLS(行,列).VALUE)
      IF  !EMPTY(dyg) and dyg<>".UNLL."    &&&　EXCEL中的空单元格在常规格式下，VFP判断其值为“.UNLL.”
        kz=kz+1
      ELSE
        kg=.f.
      ENDIF
    CASE VARTYPE(dyg)$"N"
      IF  !EMPTY(dyg)
        kz=kz+1
      ELSE
        kg=.f.
      ENDIF
    *　还要加其他类型的内容      
    OTHERWISE
      kg=.f.
  ENDCASE
*  ? kz   &&&&&　******观察结果用******
ENDDO
*--以上完成了行的检测。　还要加上有数据列的检测就可以选定有数据的范围了
eole.Workbooks.close          &&& 关闭工作簿
eole.quit                     &&& 退出Excel
RELEASE eole                  &&& 释放对象变量以彻底结束EXCEL进程
*---------------------------------------------------------
*经历了N次的失败后才成功，共花时间3个小时。

是的，前面本來想提醒你注意IsEmpty()檢測空數據可能被偶爾的空單元格意外中斷，但見你寫出VBA的代碼，猜想你曾經用這種方式調試通過的，就不需另外提醒了。這種檢測法要求知道單元格的數據類型。不過你可以參考我曾經貼過的從Excel讀取數據到DBF的那個代碼，之所以設置某行首列的值為"{End}"作結束標誌，就是為了避免這類檢測，只要不是這個值，就一直讀下去。

在VFP中，EMPTY()函數檢測所有數據類型是否為空值，數值型、日期型均可，一般不用區分數據類型檢測，但指針不行，要用ISNULL()函數，把這兩個結合起來，就可以了。

IsEmpty()是EXCEL的VBA中行得通，VFP中不行。
再次感谢

如果想快速處理Excel單元格，可考慮讀取Cells()的.Text，而不是.Value。直接取.Value有可能因NULL值或非法值而出現運行時錯誤，但取.Text是不會錯的。

搜索不到，请问在哪？

嗯，原来还有个用“.TEXT”的，快多了，代码可减少很多。谢谢

https://bbs.bccn.net/viewthread.php?tid=344730&highlight=excel

我试下看能运行不