eole=CREATEOBJECT('Excel.application')  &&创建Excel对象
eole.visible=.F.      &&&不显示EXCEL对象
eole.Workbooks.Open('D:\TEST.XLS')     &&打开文件
之后，VFP代码如何探测EXCEL表数据区域的范围？
探知后选中，接看就可以做后续的处理

你在Excel中記錄Ctrl+End的宏，就是那個指令。

以下是我在Excel2010中錄到的宏，各種版本自己參考一下：

ActiveCell.SpecialCells(xlLastCell).Select

定位到最右下角的單元格，就有辦法取得全部數據的範圍。

[ 本帖最后由 TonyDeng 于 2012-1-12 12:41 编辑 ]

首先感谢TonyDeng的帮助。
  kz = 6
  Do While Not (IsEmpty(Sheets("上1").Cells(kz, 1).Value))
    sn = 0
    smax = 0
    smin = 9999
    For i = 2 To 8
      If Sheets("上1").Cells(kz, i).Value > smax Then
        smax = Sheets("上1").Cells(kz, i).Value
      End If
      If Sheets("上1").Cells(kz, i).Value < smin Then
        smin = Sheets("上1").Cells(kz, i).Value
      End If
      sn = sn + Sheets("上1").Cells(kz, i).Value
    Next
    Sheets("上1").Cells(kz, 9).Value = sn - smax - smin
    Sheets("上1").Cells(kz, 10).Value = (sn - smax - smin) / 5   
    kz = kz + 1
  Loop

未染红的几行是用来求7个评委打分去掉最高分和高低分后的总分和平均分的代码。
以上染红的几行是我在EXCEL中的VBA里判断数据的依据，如何转换成VFP中能用的？

我用的是EXCEL2003

eole.Worksheets(〃上1〃).Activate 　
kz=6
Activate 　
kg=.t.
Do While kg
  if Not (IsEmpty(eole.Worksheets(〃上1〃).Cells(kz, 1).Value))
    kz = kz + 1
  else
    kg=.f.
enddo
没试过，不知道行不行

eole=CREATEOBJECT('Excel.application')
eole.visible=.F.
eole.Workbooks.Open('D:\TEST.XLS')
&& 以上是你打開文件的原代碼，然後用以下代碼
with eole
    .Worksheets("上1").Activate    && 激活到工作表
    kz = 6
    Do While Not (IsEmpty(.Cells(kz, 1).Value))
        && 仍用.Cells(row,col)引用Excel單元格
    EndDo
endwith

eole.ActiveSheet.UsedRange.Select                  &&选择整个数据区
eole.ActiveSheet.UsedRange.Copy                  &&拷贝数据区

剛開始我也以為是選擇整個表格數據的問題，後來看到3樓，才知道不是，呵呵~

楼主大概是要知道表中数据有多少行？多少列吧？下面是第一个表中的行、列数。
eole.Workbooks.WorkSheets[1].UsedRange.Rows.Count &&行数
eole.Workbooks.WorkSheets[1].UsedRange.Columns.Count  &&列数

没图，要把真相表述清晰，实际是很难的。
最合初宗的答案是6楼，其他楼的答案也是我喜欢的。

非常感谢各位朋友的帮助。再次感谢！

[ 本帖最后由 wengjl 于 2012-1-13 08:30 编辑 ]